Fórum Colorir colunas do listview #275263

procedure TForm1.ListView1CustomDrawItem(Sender: TCustomListView;
  Item: TListItem; State: TCustomDrawState;
  var DefaultDraw: Boolean);
begin
  Sender.Canvas.Brush.Color := clYellow;
end;

procedure TForm1.ListView1CustomDrawSubItem(Sender: TCustomListView;
  Item: TListItem; SubItem: Integer; State: TCustomDrawState;
  var DefaultDraw: Boolean);
begin
  if Odd(SubItem) then begin
    Sender.Canvas.Brush.Color := clWhite;
  end
  else begin
    Sender.Canvas.Brush.Color := clYellow;
  end;
end;

procedure TForm1.ListView1OnCustomDrawItemSender: TCustomListView; 
  Item: TListItem; State: TCustomDrawState; 
  var DefaultDraw: Boolean); 
var
  S: string;
  R: TRect;
  Flags: Integer;
begin
  // Neste exemplo, os itens ímpares são alinhados à direita
  Flags := DT_VCENTER; // centra na vertical
  if Odd(Item.Index) then begin
    Flags := Flags or DT_RIGHT; // alinha à direita
  end
  else begin
    Flags := Flags or DT_LEFT; // alinha à esquerda
  end;

  // escreve o texto
  S := Item.Caption;
  R := Item.GetDisplayRect(drLabel);
  DrawText(Sender.Canvas.Handle, PChar(S), Length(S), R, Flags); 
end;