Текущий архив: 2006.07.16;
Скачать: CL | DM;

Вниз

ListView и строки разных цветов, чередование   Найти похожие ветки 

← →
.ruslan ©   (2006-05-31 11:09) [0]

В общем нужно сделать так, чтобы в 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) [1]

case Item.Index mod N of
     0: Color := ClGreen;
     .....
     (N-1): Color := ClMaroon;
end;

---

Страницы: 1 вся ветка

Текущий архив: 2006.07.16;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.037 c