VCL Delphi

Bir Tlistbox icerisinde bulunan satirlarin, belli sartlara göre farkli renklerde olmasi mümkündür. Asagidaki kod
örneginde bunun yapilisi gösterilmektedir. Dikkat edilmesi gereken en önemli husus, Listbox bileseninin Style özelligi lbOwnerDrawFixed olmalidir.
//Style= lbOwnerDrawFixed olmali.
procedure TForm1.ListBox1DrawItem(Control: TWinControl;
Index: Integer; Rect: TRect; State:
TOwnerDrawState);
begin
With ( Control As TListBox ).Canvas Do
Begin
Case Index Of
0:
Begin
Font.Color := clBlue;
Brush.Color := clYellow;
End;
1:
Begin
Font.Color := clRed;
Brush.Color := clLime;
End;
2:
Begin
Font.Color := clGreen;
Brush.Color := clFuchsia;
End;
End;
FillRect(Rect);
TextOut(Rect.Left, Rect.Top, ( Control As TListBox
).Items[Index]);
End;
end;