rstoever escreveu:
>
> Teria como colocar um caption nos botões de navegação, ou fazer
> botões próprios com as mesmas funções ??
>
>
>
>
> ------------------------------------------------------------------------
>
Substituindo os botões do DBNavigator
A linha de comando para substituir um comando do DBNavigator é a seguinte:
DBNavigator.BtnClick(nb####);
onde #### será:
first = vai para o primeiro registro;
prior = move o ponteiro para o registro anterior;
next = move o ponteiro para o proximo registro;
last = vai para o último registro;
insert = insere um novo registro na tabela;
delete = apaga o registro atual;
edit = edita o registro atual;
post = confirma a edição ou inserção de um novo registro;
cancel = cancela a operação (edit, insert);
refresh = re-le a tabela de registros;
=====================================================
Para você mudar as imagens do DbNavigator
//abra o seguinte arquivo no Image Editor do Delphi e modifique as
imagens como quizer.
"C:Arquivos de programas\Borland\Delphi4\Lib\dbctrls.res"
=====================================================
Alterando o glyph dos botões do DbNavigator
Declare um novo tipo na sua unit:
type
NewTypeNav = class( TDbNavigator );
Depois é só utilizar:
NewTypeNav( DbNavigator1 ).Buttons[nbInsert].Glyph := ...
=====================================================
Como colocar Captions no DBNavigator
type
TDBNewNavigator = class(TDBNavigator);
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 := 'Inicio';
nbPrior : Caption := 'Anterior';
nbNext : Caption := 'Próximo';
nbLast : Caption := 'Último';
nbInsert : Caption := 'Novo';
nbDelete : Caption := 'Apagar';
nbEdit : Caption := 'Alterar';
nbPost : Caption := 'Gravar';
nbCancel : Caption := 'Cancelar';
nbRefresh: Caption := 'Atualizar';
End;
Layout := blGlyphTop; { uses Buttons}
Hint := Caption;
ShowHint := True;
end;
end;
end;
=====================================================
DTDelphi
procedure TfrmUsu.FormCreate(Sender: TObject);
var
B: TNavigateBtn;
begin
Dm.TbUsu.Open;
Dm.TbUsu.First;
for B := Low(TNavigateBtn) to High(TNavigateBtn) do
with TDBNewNavigator(DBNavigator1).Buttons[B] do
begin
Case Index of
nbFirst : Caption := 'Inicio';
nbPrior : Caption := 'Anterior';
nbNext : Caption := 'Próximo';
nbLast : Caption := 'Último';
nbInsert : Caption := 'Novo';
nbDelete : Caption := 'Apagar';
nbEdit : Caption := 'Alterar';
nbPost : Caption := 'Gravar';
nbCancel : Caption := 'Cancelar';
nbRefresh: Caption := 'Atualizar';
End;
Layout := blGlyphTop; { uses Buttons}
Hint := Caption;
ShowHint := True;
Font.Color:=clBlue;
end;
--
----------------------------------
Adilson Nunes - tetraetila®
?
õ¿õ¬
(¬)
Linux Registered User # 272492
----------------------------------
[As partes desta mensagem que não continham texto foram removidas]
--
<<<<< FAVOR REMOVER ESTA PARTE AO RESPONDER ESTA MENSAGEM >>>>>
Para ver as mensagens antigas, acesse:
http://br.groups.yahoo.com/group/delphi-br/messages
Para falar com o moderador, envie um e-mail para:
[EMAIL PROTECTED] ou [EMAIL PROTECTED]
Links do Yahoo! Grupos
<*> Para visitar o site do seu grupo na web, acesse:
http://br.groups.yahoo.com/group/delphi-br/
<*> Para sair deste grupo, envie um e-mail para:
[EMAIL PROTECTED]
<*> O uso que você faz do Yahoo! Grupos está sujeito aos:
http://br.yahoo.com/info/utos.html
