Чередование фона строк в TListView

Да какое описание...

Вообщем можно просто copy/past сделать...

Хотя реализация не оптимальная, но общая идея - та что нужна =)))

Code:

{

>> Чередование фона строк в TListView

Зависимости: нету =)

Автор: Subfire, Питер

***************************************************** }

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;

Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);

var

i: word;

begin

if item = nil then

EXIT;

i := Item.Index;

if trunc((i) / 2) < (i / 2) then

sender.canvas.brush.Color := cl3DLight

else

sender.canvas.brush.Color := clwhite;

end;

Новые статьи