Artigos Delphi Dicas - Colocando figuras no DBNavigator

Exibindo imagens bitmap em um DBNavigator

 

Muitas aplicações utilizam o componente DBNavigator para manipular seus dados. Esta dica permite exibir imagens com extensão .BMP em um DBNavigator possibilitando a construção de uma barra de controle com interface personalizada. Veja o código abaixo:

 

procedure TForm1.FormCreate(Sender: TObject);

var

  c, d: Tbitmap;

begin

   c := Tbitmap.Create;

   c.LoadFromFile('C:\windows\ondas.bmp');

   newtypenav(dbnavigator1).buttons[nbinsert].Glyph := c;

   d := TBitmap.Create;

   d.LoadFromFile('C:\windows\egito.bmp');

   newtypenav(dbnavigator1).buttons[nbdelete].Glyph := d;

end;

 

Para utilizar esta dica coloque o seguinte código na seção Type:

 

NewTypeNav = class( TDbNavigator );

 

É importante lembrar que as imagens devem estar no diretório especificado no código.