ListView и строки разных цветов, чередование [D7, WinXP]
.ruslan © (2006-05-31 11:09:00)
В общем нужно сделать так, чтобы в ListView были строки разных
цветов, вернее шло чередование, то есть например вторая строка
серого цвета, третья белого, и т.д.
Искал, пробовал и получилось только с одной строкой:
procedure TMAIN.ListView1CustomDrawItem(Sender:
TCustomListView;
Item: TListItem; State: TCustomDrawState; var
DefaultDraw: Boolean);
begin
with ListView1.Canvas.Brush do
begin
case Item.Index of
0: Color := ClGreen;
end;
end;
han_malign (2006-05-31 12:23:00) [1]
case Item.Index mod N of
0: Color := ClGreen;
.....
(N-1): Color := ClMaroon;
end;
Наверх 
ЧАТ |
Орешник |
|
