[resolvido] Icones Dbnavigator

[Hudson Cavazin]

existe alguma forma de alterar os icones do dbnavigator?

grato, Hudson

[HDELPHI]

existe alguma forma de alterar os icones do dbnavigator?

grato, Hudson

Para modificar os icones do dbnavigator

type

NewTypeNav = class( TDbNavigator );

No evento OnCreate do form, escreva o seguinte código:

var

c:Tbitmap;

begin

c:=Tbitmap.Create;

c.LoadFromFile('C:\Insert.bmp');

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

Para mudar os Captions no DBNavigator

DBNavigator não possui uma propriedade para especificar os captions dos botões, então use o codigo abaixo:

type

TMeuDBNavigator = class(TDBNavigator);

procedure TForm1.FormCreate(Sender: TObject);

const

Legendas: array[TNavigateBtn] of string = (

'Primeiro', 'Anterior', 'Próximo', 'Último',

'Incluir', 'Excluir', 'Editar', 'Salvar',

'Cancelar', 'Atualizar');

var

Botao: TNavigateBtn;

begin

for Botao := nbFirst to nbRefresh do

begin

with TMeuDBNavigator(DBNavigator1).Buttons[botao] do

begin

Caption := Legendas[botao];

Layout := blGlyphTop;

end;

end;

end;

Espero que solucione o seu problema.

[Hudson Cavazin]

beleza

vlw

:D