Какой компонент использовать??

[{Shadowevil}]

Здравствуйте! Уважаемые знатоки, очень нужна помощь. Подскажите компонент, если кто знает ... нужно чтобы он содержал в себе Items и чтобы в Items можно было заносить много строчный текст с построчным форматированием:

Итем 1:
Заголовок1
информация1
информация1

Итем 2:
Заголовок2
информация2
информация2


Как то так примерно
Пробовал экспериментировать со стандартными, но ничего не выходит, пробовал делать с ListView на onDrawItem, но тоже ничего не получилось

[Slym]

RichEdit или WebBrowser(ие/геки)

[{Shadowevil}]

RichEdit не подойдет, т.к. мне на итемы надо вешать события например на onChanging + мне надо знать индекс выбранного итема чтобы передать в это событие необходимый параметр для действия

[chertovich]

Лучше всего написать свой компонент, на основе, например, TGraphicControl.
В нем в замененном методе OnPaint проприсовывать эти элементы на канве.

[{Shadowevil}]

Сообщение от chertovich

Лучше всего написать свой компонент, на основе, например, TGraphicControl.
В нем в замененном методе OnPaint проприсовывать эти элементы на канве.

это, наверное, будет самый правильный вариант, но увы, я еще не настолько владею Delphi, чтобы написать свой компонент

[kettanaito]

А чем не подойдет обычный TTreeView, скажем?
Все, что потребуется это описать разную прорисовку для разных типов узлов - и вы получите результат в первом посте (при этом будет и индекс и тд).

[{Shadowevil}]

Сообщение от kettanaito

А чем не подойдет обычный TTreeView, скажем?
Все, что потребуется это описать разную прорисовку для разных типов узлов - и вы получите результат в первом посте (при этом будет и индекс и тд).

Есть условие что нельзя использовать TTreeView (

[kettanaito]

{Shadowevil}, а почему не вышло с ListView?

[{Shadowevil}]

Сообщение от kettanaito

{Shadowevil}, а почему не вышло с ListView?

ну понимаешь, я пытался прописать все вручную на канве в onDrawItem отключив CustomDrawItem, но ничего не вышло путного, т.к. в инете совсем информации не нашел про работу в onDrawItem, там только onCustomDrawItem, а у самого получилось так, что текст вроде и прорисовывался, но после прорисовки сразу исчезал как при вызове Repaint (

[Аватар]

Если с ListBox повозиться, то вполне можно сделать - там и прорисовка есть и высота настраиваемая. ListBox1.Style=lbOwnerDrawVariable

procedure TForm1.FormCreate(Sender: TObject);
var i: Integer;
begin
  for i:=0 to ListBox1.Items.Count-1 do begin
    ListBox1.ItemIndex:=i;
    ListBox1Click(ListBox1);
  end;
  ListBox1.ItemIndex:=0;
end;

procedure TForm1.ListBox1Click(Sender: TObject);
var xHeight: Integer;
begin
  if ListBox1.ItemIndex mod 3=0 then xHeight:=24
  else if ListBox1.ItemIndex mod 3=1 then xHeight:=20
  else xHeight:=16;
  SendMessage(ListBox1.Handle,LB_SetItemHeight,ListBox1.ItemIndex,xHeight);
end;

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
var xColor: TColor;
begin
  if ListBox1.Count=0 then Exit;
  if (odSelected in State) and ListBox1.Focused then xColor:=clActiveCaption
  else if odSelected in State then xColor:=clBtnFace
  else xColor:=clWindow;
  ListBox1.Canvas.Brush.Color:=xColor;
  ListBox1.Canvas.FillRect(Rect);
  if (odSelected in State) and Control.Focused then ListBox1.Canvas.Font.Color:=clWindow
  else if Index mod 3=0 then ListBox1.Canvas.Font.Color:=clRed
  else if Index mod 3=1 then ListBox1.Canvas.Font.Color:=clLime
  else ListBox1.Canvas.Font.Color:=clBlue;
  if Index mod 3=0 then ListBox1.Canvas.Font.Size:=16
  else if Index mod 3=1 then ListBox1.Canvas.Font.Size:=12
  else ListBox1.Canvas.Font.Size:=8;
  ListBox1.Canvas.TextRect(Rect,Rect.Left+2,Rect.Top,ListBox1.Items.Strings[Index]);
end;