Un DbNavigator muy curioso

[donald shimoda]

Empezado por camino

Código Delphi [-]
procedure SetupHackedNavigator(const Navigator : TDBNavigator);
const   
  Captions : array[TNavigateBtn] of string =
      ('Primero', 'Anterior', 'Siguiente', 'Ultimo', 'Agrega',
       'Elimina', 'Edita', 'Graba', 'Cancela', 'Refresca');
var 
  btn : TNavigateBtn; 
begin   
 for btn := Low(TNavigateBtn) to High(TNavigateBtn) do  
 with THackDBNavigator(Navigator).Buttons[btn] do   
 begin      
    Caption := Captions[btn];
    ParentFont := False;
    Font.Name := 'MS Sans Serif';
    Font.Pitch := fpDefault;
    Font.Size := 8;
    Font.Style := [];
    Layout := blGlyphTop;
  end;
end;

Perdon lo ordene un poco porque no podía leerlo.

El código esta correcto. Seguro esta pasando el navigator correcto? No veo donde puede estar el problema. Prueba con este código mas limpio.

Editado: Y muestra la definición de THackDBNavigator.
Saludos.