DBNavigator - trocando os glyphs em runtimeDBNavigator - trocando os glyphs em runtimeDBNavigator - utilizando captions em componentes DBNavigator

Utilizando Captions em Componentes DBNavigator

Nesta dica veremos como fazer para inserir captions nos botões de um DBNavigator. Para isso, basta seguir os seguintes passos:

1) Inclua um Componente DBNavigator no seu formulário;

2) Em seguida declare a seguinte classe:

type

  TDBNewNavigator = class ( TDBNavigator ); 

3) Finalmente, escreva o seguinte código para inserir captions em cada botão do DBNavigtor:

...

  uses Buttons; 

...

procedure TForm1.FormCreate(Sender: TObject); 

var 

  B: TNavigateBtn; 

begin 

  for B := Low ( TNavigateBtn ) to High ( TNavigateBtn ) do 

     with TDBNewNavigator ( DBNavigator1 ).Buttons [ B ] do 

     begin 

         Case Index of 

                 nbFirst : Caption := 'Primeiro'; 

                 nbPrior : Caption := 'Anterior'; 

                 nbNext : Caption := 'Próximo'; 

                 nbLast : Caption := 'Último'; 

                 nbInsert : Caption := 'Novo'; 

                 nbDelete : Caption := 'Excluir'; 

                 nbEdit : Caption := 'Editar'; 

                 nbPost : Caption := 'Salvar'; 

                 nbCancel : Caption := 'Cancelar'; 

                 nbRefresh : Caption := 'Atualizar'; 

         End; 

         Layout := blGlyphTop; 

         Hint := Caption; 

         ShowHint := True; 

     end; 

end; 

Obs.: Para uma melhor visualização das captions, configure as propriedades Height e Width do DBNavigator com os seguintes valores: Height = 41 e Width = 540.