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

Вообщем можно просто 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;

 

Добавить комментарий

Не использовать не нормативную лексику.

Просьба писать ваши замечания, наблюдения и все остальное,
что поможет улучшить предоставляемую информацию на этом сайте.

ВСЕ КОММЕНТАРИИ МОДЕРИРУЮТСЯ ВРУЧНУЮ, ТАК ЧТО СПАМИТЬ БЕСПОЛЕЗНО!


Защитный код
Обновить