Witam
Czy ktos wie jak pokolorowac itemy i subitemy w listview ?? Bardzo bym prosil o jakies zrodlo !!!
Pozdrowinia i dzieki
0
0
Obsluz zdrzenia OnCustomDrawItem i OnCustomDrawSubItem listy, np w nastepujacy sposob:
procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
If Item.Caption='Red' then
ListView1.Canvas.Font.Color:=clRed
else
ListView1.Canvas.Font.Color:=clBlack;
end;
procedure TForm1.ListView1CustomDrawSubItem(Sender: TCustomListView;
Item: TListItem; SubItem: Integer; State: TCustomDrawState;
var DefaultDraw: Boolean);
begin
if Item.SubItems[Pred(SubItem)]='Red' then
ListView1.Canvas.Font.Color:=clRed
else
ListView1.Canvas.Font.Color:=clBlack;
end;
--Pawel
Delphi6
0
nie działa
:( --GeniusWarez Will Reborn.