wie kann man die oberste Zeile einer während der Laufzeit erzeugten Listbox färben (Hintergrundfarbe z.B. rot)?
@Popov : warum so kompliziert ?
Delphi-Quellcode:
procedure TForm1.ListBox1DrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
var
begin
if Index = 1 then begin // oder Index = 0 ? selber testen
Listbox1.Canvas.Brush.Color := clRed;
Listbox1.Canvas.FillRect(Rect);
Listbox1.Canvas.TextOut(Rect.Left,Rect.Top,Listbox1.Items[Index]);
end;
end;
Es war ja nur nach 1. Zeile gefragt.
Für "Zebra-Effekt" reicht es, statt bei 1 bei (Index mod 2) dementsprechend einzugreifen.