Цветные строки для TListView

Материал из DRKB

Цветные строки для TListView[править | править код]

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
  with ListView1.Canvas.Brush do
  begin
    case Item.Index of
      0: Color := clYellow;
      1: Color := clGreen;
      2: Color := clRed;
    end;
  end;
end;


Source: Взято с сайта: http://www.swissdelphicenter.ch
ID: 01152