Визуальное разграничение строк

[zver777]

Возникла такая проблема. Надо или в memo или в richedit или в listbox визуально оградить строки друг от друга. Можно черточкой между ними. Можно цветом строк.
Подскажите в каком компоненте это лучше делать и как.
Спасибо.

[W0LF]

Непонял в чом проблема?
Memo:
добовляете после каждой строки новую с текстом допустим
"--------------------------------------------"
RichEdit:

{ Просто добовляем цветную строку: }
 procedure AddColoredLine(ARichEdit: TRichEdit; AText: string; AColor: TColor);
 begin
   with ARichEdit do
   begin
     SelStart := Length(Text);
     SelAttributes.Color := AColor;
     SelAttributes.Size := 8;
     SelAttributes.Name := 'MS Sans Serif';
     Lines.Add(AText);
   end;
 end;

 procedure TForm1.Button1Click(Sender: TObject);
 begin
   AddColoredLine(RichEdit1, 'Hallo', clRed);
   AddColoredLine(RichEdit1, 'Hallo', clGreen);
 end;

{ Зная номер строки: }
 procedure RE_ColorLine(ARichEdit: TRichEdit; ARow: Integer; AColor: TColor);
 begin
   with ARichEdit do
   begin
     SelStart := SendMessage(Handle, EM_LINEINDEX, ARow - 1, 0);
     SelLength := Length(Lines[ARow - 1]);
     SelAttributes.Color := AColor;
     SelLength := 0;
   end;
 end;

 procedure TForm1.Button1Click(Sender: TObject);
 begin
   ZeileFaerben(RichEdit1, 4, clGreen);
 end;

P.S.: Код не проверял...
P.S.S.: Или у вас уже текст есть и нужно в нем розграничить ?

[zver777]

Надо чтобы сам текст остался неизменным. Допустим есть листбокс. Стандартно итемы между собой визуально никак не ограничены. Хотелось бы как то разгранисить их визуально.

[W0LF]

Свойство DrawItem в ListBox...

[пауэрлифтинг]

у ListBox style делаеш = lbOwnerDrawFixed

потом пишеш в обработчике такой код

procedure TForm2.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
begin

  Listbox1.canvas.fillrect(rect);
  Listbox1.canvas.MoveTo(0, rect.Bottom);
  Listbox1.canvas.lineTo(rect.Right,rect.Bottom);
  Listbox1.canvas.textout(rect.left+2,rect.top, Listbox1.items[index]);



end;

[W0LF]

ListBox.Style := lbOwnerDrawFixed;

begin
  with (Control as TListBox).Canvas do
  begin
    //Pen.Style := psDash;
    Pen.Color := $000080FF;
    MoveTo(0, Rect.Bottom);
    LineTo(Rect.Right, Rect.Bottom);
    TextOut(Rect.Left + 2, Rect.Top+2, (Control as TListBox).Items[index]);
  end;
end;

Только нужно зделать что-то с выдилением ячейки, как убрать я незнаю... От неё остаються следы...

P.S.: не успел . . .