Fórum DBGrid em Table #189761
20/10/2003
0
Olá, o código abaixo funciona muito bem em clientdataset, porém num componente Table não funciona.
Porque será?
(*DBGrid zebrado*)
if not odd(ClientDataSet1.RecNo) then // se for ímpar
if not (gdSelected in State) then // se a célula não está selecionada
begin
DBGrid1.Canvas.Brush.Color:=$00FFEFDF; // define uma cor de fundo
DBGrid1.Canvas.FillRect(Rect); // pinta a célula
DBGrid1.DefaultDrawDataCell(rect,Column.Field,State); // pinta o texto padrão
end;
Porque será?
(*DBGrid zebrado*)
if not odd(ClientDataSet1.RecNo) then // se for ímpar
if not (gdSelected in State) then // se a célula não está selecionada
begin
DBGrid1.Canvas.Brush.Color:=$00FFEFDF; // define uma cor de fundo
DBGrid1.Canvas.FillRect(Rect); // pinta a célula
DBGrid1.DefaultDrawDataCell(rect,Column.Field,State); // pinta o texto padrão
end;
Alexandrearacaju123
Curtir tópico
+ 0
Responder
Clique aqui para fazer login e interagir na Comunidade :)