Mega Code Archive
Listbox bilesenlerinde renkli satirlar
<![CDATA[
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;
]]>