Dicas - Zebrando o ListView
Veja nesta dica, como zebrar o ListView, dando um melhor visual aos dados de sua aplicação.
ListView Zebrado
vamos criar um ListView zebrado utilizando o evento onCustomDrawItem:
procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView; Item: TListItem; State: TCustomDrawState; var DefaultDraw: Boolean);
begin
with ListView1.Canvas.Brush do
begin
if (Item.Index mod 2) = 0 then
Color := clYellow
else
Color := clWhite;
end;
end;
Artigos relacionados
-
Artigo
-
Artigo
-
Artigo
-
Artigo
-
Artigo