[DELPHI] LINHA ZEBRADA NO DBGRID

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 fazer as linhas do DBGrid ficar zebrada verificando se o registro atual do DataSet é impar ou par. Para recuperar essa informação, nos DataSet temos a propriedade RecNo que consiste no numero do registro ativo no DataSet e para saber se esse numero é impar ou par, vamos usar o método Odd que retornar true se um numero é impar e false se esse for par.

Para implementar essa rotina, iremos utilizar o evento OnDrawColumnCell do DBGrid.

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect;

  DataCol: Integer; Column: TColumn; State: TGridDrawState);

begin

  with TDBGrid(Sender) do

  begin

    if Odd(DataSource.DataSet.RecNo) then

      Canvas.Brush.Color := clSilver

    else

      Canvas.Brush.Color := clMoneyGreen;

    Canvas.FillRect(Rect);

    DefaultDrawColumnCell(Rect, DataCol, Column, State);

  end;

end;

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