Ir para conteúdo
Fórum Script Brasil
  • 0

[resolvido] Icones Dbnavigator


Hudson Cavazin

Pergunta

2 respostass a esta questão

Posts Recomendados

  • 0
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.

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152,3k
    • Posts
      652,3k
×
×
  • Criar Novo...