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;