Delphi - listview

0

Witam
Czy ktos wie jak pokolorowac itemy i subitemy w listview ?? Bardzo bym prosil o jakies zrodlo !!!
Pozdrowinia i dzieki

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.

1 użytkowników online, w tym zalogowanych: 0, gości: 1, botów: 0