[DELPHI] DBGRID ZEBRADO NA VERTICAL (COLUNAS)

O componente DBGrid é muito utilizado pelos desenvolvedores Delphi para apresentar dados de um DataSet para o usuário, seja esses dados resultado de um select no banco de dados, registros temporários, etc.

Neste post irei mostrar como deixar o DBGrid zebrado na vertical, ou seja, as colunas do DBGrid em cores alternadas conforme figura a baixo:

Para implementar essa rotina, iremos utilizar o evento OnDrawColumnCell do DBGrid, que consiste no evento em que os dados são "desenhados" no DBGrid.

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
  if Odd(DataCol)  then
  begin
    if (gdSelected in State) or (gdRowSelected in State)  then
      TDBGrid(Sender).Canvas.Brush.Color := clWebLightBlue
    else
      TDBGrid(Sender).Canvas.Brush.Color := clSkyBlue;

    TDBGrid(Sender).DefaultDrawColumnCell(Rect, DataCol, Column, State);
  end;
end;

Gostou? Deixe seu comentário... Convido você a seguir meu blog, sua presença é bem vinda!【ツ】