Ten kod pokoloruje 3 pierwsze itemy w listwiew
with ListView1.Canvas.Brush do
begin
case Item.Index of
0: Color := clYellow;
1: Color := clGreen;
2: Color := clRed;
end;
end;
a ten kod mimo moich zamierzeń koloruje wszystkie itemy w listview
var i:integer;
begin
for i:=0 to listview1.Items.Count-1 do
begin
if (listview1.Items[i].SubItems[0]='Sobota') or (listview1.Items[i].SubItems[0]='Niedziela') then
ListView1.Canvas.Brush.Color:=clGreen;
end;
end;
kod znajduje się w ListView1CustomDrawItem
Jak zrobić aby pokolorowac itmy spełniające warunek w 2 przykładzie?