Página sobre a Linguagem
de programação da Embarcadero

Personalizando o DBNavigator

01-09-2013

O DBNavigator é um componente bastante útil, já que possibilita uma interface para navegação e gerenciamento de dados. A navegação pelos registros dá-se através dos botões First, Next, Prior,  e Last (que, respectivamente, vai para o primeiro, o próximo, o anterior e o último registro).

No entanto, o DBNavigator peca pela personalização… Não se pode inserir novas figuras (“glyphs”), textos descritivos abaixo delas, etc...

Um DBNavigator Mais Poderoso

Os componentes costumam possuir membros chamados “protegidos” ("protected"), que são invisíveis aos desenvolvedores. Felizmente, há um meio de acessá-los, utilizando uma técnica conhecida como "protected hack".

O DBNavigator tem propriedades protegidas em seus botões. Este membro é um “array” (matriz) do tipo TNavButton, um objeto descendente de TSpeedButton (, da paleta Additional). E, já que cada botão nesta propriedade protegida herda as características de um TSpeedButton, com algumas modificações, é possível trabalhar com algumas de suas propriedades-padrão, tais como Caption (uma string que permite que um texto apareça no botão), Glyph (a figura do botão), Layout (que determina onde a imagem ou o texto aparecerão no botão), e etc.

Da unit DBCtrls (onde o componente DBNavigator está definido), nós iremos “ler”  as propriedades protegidas dos botões conforme segue:

 onde TNavButton herda de TSpeedButton e TNavigateBtn é uma enumeração, definida como:

Note que TNavigateBtn armazena 10 valores, cada um identificando um botão diferente do objeto TDBNavigator. Agora, vejamos como “hacker” um DBNavigator:

Herdando Uma Nova Classe a Partir de DBNavigator

Primeiro, crie um novo aplicativo no Delphi (clicando no menu File > New > Application) e adicione um DBNavigator, um DBGrid, um DataSoure e um componente do tipo Dataset de sua escolha (da paleta ADO, BDE, dbExpres, ...). Certifique-se de que as ligações entre esses componentes estão feitas corretamente.

Em segundo lugar, defina uma nova classe herdada de DBNavigator, antes da declaração do Form, conforme segue:

Em seguida, para que possamos exibir captions e gráficos em cada botão do DBNavigator, nós precisamos selecionar algumas glyphs (figuras). Uma sugestão é usar um componente TImageList e adicionar  10 figuras a ele (do tipo .bmp ou .ico), cada um representando uma ação em particular do DBNavigator.

Depois, na parte private do formulário, coloque isso:

Adicione, na cláusula uses, a unit Buttons. Depois, clique sobre a procedure SetupHackedNavigator e pressione CTRL+SHIFT+C no teclado para criar o “corpo” da função. Edite-a para que fique conforme mostrado a seguir:

Por fim, no evento OnCreate do Form1, chame a nossa função:

OK, vamos explicar a função SetupHackedNavigator recém-criada. Nós criamos uma iteração com todos os botões do DBNavigator e fizemos cada botão acessível a partir de suas propriedades protegidas declaradas no array Buttons – que agora pertence à classe THackDBNavigator. Já que o que temos no array Buttons são objetos do tipo TNavigateBtn, nós percorremos esta matriz desde o primeiro botão até o último, usando, respectivamente, as funções Low e High. Para cada botão, removemos a figura antiga e associamos uma nova (através do parâmetro Glyphs), adicionamos captions a partir do array Captions e ajustamos o layout de cada glyph para que ela ficasse posicionada acima do texto.

Note que você pode controlar quais botões podem estar visíveis num DBNavigator através de sua propriedade VisibleButtons, mas isso não se aplica mais a nossa nova classe THackDBNavigator. Outra propriedade que talvez você queira mudar seja Hints, usada para mostrar dicas informativas na tela sobre cada botão do DBNavigator, quando o usuário move o mouse sobre eles. Você pode permitir que essas dicas sejam exibidas simplesmente deixando a propriedade ShowHints em True.

Fonte: delphi.about.com