TListView с разноцветными Items в режиме vsReport

← →
Coolguy (2003-08-28 09:14) [0]

Очень хочется организовать TListView с разноцветными (чередующимися) Items в режиме vsReport, но я не знаю - как? Известно только, что этот вопрос вроде как "много раз тут задавался" и что надо использовать событие OnAdvancedCustomDraw. Проблема только в том, что я никогда ещё не сталкивался с OwnerDraw, вообще, то есть очень слабо себе представляю, как это всё нужно писать? Да, я прочитал Help к этому событию - помогло мало; поискал примеры на эту тему - не нашёл ни одного! Потому вопрос - может быть кто-то сможет подсказать, где взять подобный пример? Или просто запостить кусок кода прямо сюда? Буду безмерно благодарен!

P.S. А может быть существует компонент, которые реализует раскрашивание Items в TListView? Опять же, я такого не нашёл, но может проглядел чего...

← →
dataMaster © (2003-08-28 09:39) [1]

procedure TForm1.ListView1.CustomDrawItem(Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean); begin with ListView1.Canvas.Brush do if Odd(Item.Index) then Color:=clRed // НЕЧЕТНАЯ СТРОКА else Color:=clGreen; // ЧЕТНАЯ СТРОКА end;

← →
Coolguy (2003-08-28 10:55) [2]

Спасибо!

TListView с разноцветными Items в режиме vsReport Найти похожие ветки