(Resolvido) DbGrid muda a cor das linhas ao descer com a seta pelo DbG

[robinhocne]

Pessoal estou com um probleminha basico aqui, mas não estou conseguindo resolver,

Quando eu vou percorrendo um DbGrid com a seta do teclado ou pela barra de rolagem do DbGrid ai ele pinta todas as linhas da mesma cor com a linha que estou selecionada, o codigo abaixo é o que eu utilizo;

procedure TFPesPes001.DbgPesDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin
 If Not odd(DtsPes.DataSet.RecNo) Then
   If Not (gdSelected in State) Then
      begin
         DbgPes.Canvas.Brush.Color:=clSkyBlue;
         DbgPes.Canvas.FillRect(Rect);
         DbgPes.DefaultDrawDataCell(rect,Column.Field,State);
      end;
   if (TAuxDBGrid(dbgpes).DataLink.ActiveRecord + 1 = TAuxDBGrid(dbgpes).Row) or (gdSelected in State) then
   begin
      dbgpes.Canvas.Brush.Color := clMoneyGreen;
      dbgpes.Canvas.Font.Style  := dbgpes.Canvas.Font.Style + [fsBold];
      dbgpes.Canvas.Font.Style  := dbgpes.Canvas.Font.Style + [fsUnderline];
      dbgpes.Canvas.Font.Color  := clBlack;
   end;
   dbgpes.Canvas.FillRect(Rect);
   dbgpes.Canvas.TextOut(Rect.Left+2,Rect.Top,Column.Field.AsString);
   dbgpes.DefaultDrawDataCell(Rect, Column.Field, State);
end;

uma ajuda ?

Editado Dezembro 18, 2010 por robinhocne

[Jhonas]

Faça a modificação para o seu uso

procedure TFPesPes001.DbgPesDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin

   If odd(DtsPes.DataSet.RecNo) then
      begin
         DbgPes.Canvas.Font.Color:= clBlack;
         DbgPes.Canvas.Brush.Color:= cl3DLight;
      end
   else
      begin
         DbgPes.Canvas.Font.Color:= clBlack;
         DbgPes.Canvas.Brush.Color:= clWhite;
      end;

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

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

end;

abraço

[robinhocne]

Perfeito Jhonas,

procedure TFPesPes001.DbgPesDrawColumnCell(Sender: TObject;
  const Rect: TRect; DataCol: Integer; Column: TColumn;
  State: TGridDrawState);
begin

   If odd(DtsPes.DataSet.RecNo) then
      begin
         DbgPes.Canvas.Font.Color:= clBlack;
         DbgPes.Canvas.Brush.Color:= clMoneyGreen;
      end
   else
      begin
         DbgPes.Canvas.Font.Color:= clBlack;
         DbgPes.Canvas.Brush.Color:= clWhite;
      end;

   if (gdSelected in state) then
     DbgPes.Canvas.Brush.Color := clSkyBlue;
  // else
   //  DbgPes.Canvas.Brush.Color := clSkyBlue;

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


end;

muito Obrigado,