DBgrid zebrado mais a item selecionado não muda de cor

[danielrgoes]

Boa Tarde

eu estou zebrando o meu DBGrid dessa forma

if Odd (modulo.cds_auxprojeto.RecNo) and ( modulo.cds_auxprojeto.State <> dsInsert) then

begin

DBGrid4.Canvas.Brush.Color:= clSkyBlue;

DBGrid4.Canvas.FillRect(Rect);

DBGrid4.DefaultDrawDataCell(Rect,Column.Field,State);

end;

Porem a linha em branco quando selecionada fica azul escura mais quando eu seleciono uma SkyBlue não fica azul escuro

parecendo que esta selecionada

como soluciono este problema

[Jhonas]

Voce vai achar a resposta em algum desses posts

http://scriptbrasil.com.br/forum/index.php...ighlite=zebrado

abraço

[danielrgoes]

Voce vai achar a resposta em algum desses posts

http://scriptbrasil.com.br/forum/index.php...ighlite=zebrado

abraço

Jhonas as dicas são muito boa

achei ate algo parecido com os eu quero

porem não exatamente

pois quando seleciono a linha branca ele inteira fica azul

já na linha SkyBlue apenas o item selecionado fica azul e não a linha interira

[Jhonas]

exprimente assim:

exemplo:

procedure TFCadProd.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
   If odd(TCadProd1.RecNo) then
      begin
         DBGrid1.Canvas.Font.Color:= clBlack;
         DBGrid1.Canvas.Brush.Color:= cl3DLight;
      end
   else
      begin
         DBGrid1.Canvas.Font.Color:= clBlack;
         DBGrid1.Canvas.Brush.Color:= clWhite;
      end;

   if (gdSelected in state) then
      DBGrid1.Canvas.Font.Color:= clred
   else
      DBGrid1.Canvas.Font.Color:= clBlack;

   DBGrid1.Canvas.FillRect(Rect);
   DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);

end;

abraço

[danielrgoes]

exprimente assim:

exemplo:

procedure TFCadProd.DBGrid1DrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
   If odd(TCadProd1.RecNo) then
      begin
         DBGrid1.Canvas.Font.Color:= clBlack;
         DBGrid1.Canvas.Brush.Color:= cl3DLight;
      end
   else
      begin
         DBGrid1.Canvas.Font.Color:= clBlack;
         DBGrid1.Canvas.Brush.Color:= clWhite;
      end;

   if (gdSelected in state) then
      DBGrid1.Canvas.Font.Color:= clred
   else
      DBGrid1.Canvas.Font.Color:= clBlack;

   DBGrid1.Canvas.FillRect(Rect);
   DBGrid1.DefaultDrawColumnCell(Rect, DataCol, Column, State);

end;

abraço

Jhonas ficou bom mais ainda não é exatamente o que eu quero

pois apenas a celula selecinada fica vermelha

fostaria que a linha toda do DBbrid ficase vermelha

[Jhonas]

No DBgrid va em Options e deixe a propriedade dgRowSelect = true ... a linha toda ficara em vermelho

abraço