Indicador de posicion TCustomDBGrid

[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.