Como Usar linhas Coloridas em um DBGrid ex. uma verde outr b

Question

Ola Pessoal,Boa Tarde a todos. :roll: Minha pergunta � a seguinte:  Tem como usar linhas coloridas em um DBGrid, exemplo a primeira linha verde a segunda branca a terceira verde....linha 1   - Brancal...

Paul · Answer

Coloque a propriedade DefaultDrawData do DbGrid para FALSE. O controle � feito no evento OnDrawColumnCell.

procedure TForm1.DBGrid1DrawColumnCell(Sender: TObject; const Rect: TRect; DataCol: Integer; Column: TColumn; State: TGridDrawState);
begin
If odd(Table1.RecNo) then
begin
DBGrid1.Canvas.Font.Color:= clWhite;
DBGrid1.Canvas.Brush.Color:= clWhite;
end
else
begin
DBGrid1.Canvas.Font.Color:= clBlack;
DBGrid1.Canvas.Brush.Color:= clGreen;
end;
DBGrid1.Canvas.FillRect(Rect);
DBGrid1.Canvas.TextOut(Rect.Left+2,Rect.Top,Column.Field.AsString);
end;

Ate mais!

Claudio_f · Answer

Oi Paul,Valeu a dica, funcionou mas em vez de ficar uma linha de cada cor, ficou uma coluna de cada cor, agora e so descobrir qual componente usar para a linha.      Obrigado....

F�rum Como Usar linhas Coloridas em um DBGrid ex. uma verde outr b #167517