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

Thema durchsuchen

Ansicht

Themen-Optionen

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

Ein Thema von romber · begonnen am 11. Jun 2005 · letzter Beitrag vom 11. Jun 2005

Antwort

teebee

Registriert seit: 17. Jan 2003
Ort: Köln
460 Beiträge

Delphi 6 Professional

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

11. Jun 2005, 18:04

markieren

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;