� possivel colorir linha e coluna do DBGrid...

Question

:wink: Ol� Mentes Especiais! :arrow: Sou estudante, e ainda estou aprendendo e tenho muito a aprender no Delphi, gostaria de dicas se existe algum comando ou c�digo que seja poss�vel colorir as linhas...

Lfernandos · Answer

Vc pode usar o envento OnDrawColumnCell do DBGrid.

procedure TfrmComissao.DBGrid2DrawColumnCell(Sender: TObject;
const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
begin
if Odd(Column.Index) then begin
TDBGrid(Sender).Canvas.Font.Color := clNavy;
TDBGrid(Sender).Canvas.Brush.Color := clInfoBk;
TDBGrid(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);
end
else begin
TDBGrid(Sender).Canvas.Font.Color := clWindowText;
TDBGrid(Sender).Canvas.Brush.Color := clWindow;
TDBGrid(Sender).DefaultDrawColumnCell(Rect,DataCol,Column,State);
end;
end;

Este c�digo cria um DBGrid Zebrado.

Jfalexandre · Answer

Obrigado Lfernando pela dica, vou testar agora mesmo!  Valeu!...