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

Материал из DRKB

Чередование фона строк в TListView[править | править код]

{ **** UBPFD *********** by delphibase.endimus.com ****
>> Чередование фона строк в TListView

Да какое описание...
Вообщем можно просто copy/past сделать...
Хотя реализация не оптимальная, но общая идея - та что нужна =)))

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

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;


Source: http://delphibase.endimus.com
ID: 01153