Fórum Grid Zebrado... #320589

Após executar este código, o indicador de posição do grid aquele caqracter ´>´ nunca fica no primeiro registro, ele sempre fica no registro q foi pintado, quando se clica no último registro, depois volto ao primeiro, aí este defeito é corrigido, como posso fazer para sempre depois q pintar o grid, eu posicionar o registro no 1º item ?

procedure TForm3.RxDBGrid1DrawColumnCell(Sender: TObject;const Rect: TRect; DataCol: Integer; Column: TColumn;
State: TGridDrawState);
Var
A:Talignment; //Guarda a Formatação da Coluna
begin
a:=rxdbGrid1.columns[DataCOL].Alignment; //Pegando a formatação da Coluna
if not odd(ADOQuery1.RecNo) then //Testando se é par
begin
RXDBGrid1.Canvas.Brush.Color:= clMoneyGreen; //Atribui cor
RXDBGrid1.Fields[datacol].Alignment:=a; //Atribui formatação
RXDBGrid1.Canvas.FillRect(Rect);
RXDBGrid1.DefaultDrawDataCell(Rect, Column.Field, State); //Pinta a Célula
if gdFocused in State then //testa se está selecionado
begin
RXDBGrid1.Canvas.Brush.Color:= clBlack;
RXDBGrid1.Canvas.FillRect(Rect);
RXDBGrid1.DefaultDrawDataCell(Rect, Column.Field, State);
end;
end;
end;