Eine dünne, kaum sichtbare Linie zwischen ListBox-Items???

[romber]

Hallo!

Wie kann ich eine dünne Linie zwieschen ListBox-Items zeichnen?

[SirThornberry]

in dem du Ownerdraw benutzt und im OnDrawItem zwischen den Items die Linien selbst malst (Canvas.LineTo)

[romber]

Denke für schnelle Antwort.

Habe noch nie etwas gezeichnet, besonders nicht in einer TListBox. Könnte mir jemand einen Kodebeispiel posten? Danke!

[teebee]

Delphi-Quellcode:

procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
  Rect: TRect; State: TOwnerDrawState);
Var lb: TListBox;
begin
  lb := Control As TListBox;
  lb.Canvas.TextOut(Rect.Left,Rect.Top,lb.Items[Index]);
  lb.Canvas.Pen.Color := clred;
  lb.Canvas.MoveTo(Rect.Left,Rect.Bottom-1);
  lb.Canvas.LineTo(Rect.Right,Rect.Bottom-1);
end;

ListBox.Style noch auf lbOwnerDrawFixed setzen.

Gruß, teebee

[romber]

Danke, super!