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

Previous  Top  Next

    
 

 

Code:

{ **** UBPFD *********** by delphibase.endimus.com ****

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

 

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

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

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

 

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

Автор:       Subfire, subfire@mail.ru, Питер

Copyright:   =) не нужно

Дата:        19 февраля 2003 г.

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

 

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;

 

©Drkb::01153