[vichovi]

Hola a tod@s,
Tengo un control derivado de TCustomDBGrid en Delphi que estoy migrando a Lazarus. Ya esta prácticamente migrado solo me falta el tema del indicador de posición el cual no logro hacer funcionar, porque o se pinta el indicador por defecto o aparecen todos los registros con el indicador.
El código que utilizo es:

procedure TviDBGrid.DrawCell(aCol, aRow: Integer; aRect: TRect;
  aState: TGridDrawState);
begin
  inherited DrawCell(aCol, aRow, aRect, aState);

  //Verifico que el DataSet este listo
  if not Listo then
  begin
    exit;
  end;

  //Verifico que el componente este cargado
  if csLoading in ComponentState then
  begin
    exit;
  end;

  //Compruebo que sea la fila y columna a pintar
  if (aCol=0) and (ARow=DataSource.DataSet.RecNo) and (dgIndicator in Options) then
  begin
    Canvas.Brush.Color:=FixedColor;
    inherited Canvas.FillRect(aRect);
    inherited Canvas.Draw(ARect.Left+(ARect.Right-ARect.Left-FSelRow.Width) div 2,
      ARect.Top+(ARect.Bottom-ARect.Top-FSelRow.Height) div 2,FSelRow); //FSelRow es el Bitmap a dibujar
  end;
end;

Lo suyo para esto, tras analizar el fuente del TCustomDBGrid, seria sobreescribir el método DrawFixedText pero no me deja hacerlo :?:

Espero sus comentario.
Un saludo y gracias de antemano.