Un DbNavigator muy curioso

[camino]

Duilioisola gracias por tu ayuda pero lamentablemente no respondio como se esperaba.

La rutina para modificar el DbNavigator la coloque como un procedimiento en un form que guarda todas las rutinas que uso en mis programas llamado 'RutinasFunciones'. Aqui va:

Código Delphi [-]
procedure SetupHackedNavigator(const Navigator : TDBNavigator);
const   Captions : array[TNavigateBtn] of string =
      ('Primero', 'Anterior', 'Siguiente', 'Ultimo', 'Agrega',
       'Elimina', 'Edita', 'Graba', 'Cancela', 'Refresca');
(*
  Captions : array[TNavigateBtn] of string =
      ('First', 'Prior', 'Next', 'Last', 'Insert',
       'Delete', 'Edit', 'Post', 'Cancel', 'Refresh');

  in Croatia (localized):
  Captions : array[TNavigateBtn] of string =
      ('Prvi', 'Prethodni', 'Slijedeci', 'Zadnji', 'Dodaj',
       'Obrisi', 'Promjeni', 'Spremi', 'Odustani', 'Osvjezi');
*) var   btn : TNavigateBtn; begin   for btn := Low(TNavigateBtn) to High(TNavigateBtn) do   with THackDBNavigator(Navigator).Buttons[btn] do   begin     //from the Captions const array
    Caption := Captions[btn];
    ParentFont := False;
    Font.Name := 'MS Sans Serif';
    Font.Pitch := fpDefault;
    Font.Size := 8;
    Font.Style := [];

{    //the number of images in the Glyph property
    NumGlyphs := 1;
    // Remove the old glyph.
    Glyph := nil;
    // Assign the custom one
    Glyphs.GetBitmap(Integer(btn),Glyph); }     // gylph above text
    Layout := blGlyphTop;

    // explained later
  //  OnMouseUp := HackNavMouseUp;
  end;
end; (*SetupHackedNavigator*)

Esta rutina la llamo desde donde esta el DbNavigator en el "OnCreate" de la
form.