DBNavigator Diferente

[Eder Moraes]

Você pode simplesmente alterar a imagem dos botões do componente.

Declare um novo tipo na sua unit:

type

DBPicNav = class( TDbNavigator );

Depois é só utilizar:

DBPicNav( DbNavigator1 ).Buttons[nbInsert].Glyph := localdaimagem

onde nbInsert é o nome do botão para inserir um novo registro, os outros botões são: nbFirst, nbPrior, nbNext, nbLast, nbEdit, nbDelete, nbPost, nbCancel, nbRefresh.

Agora, me cansar colocando isso em todos os formulários é ralado. Então vamos criar nosso próprio componente.

Vá até o menu Component | New Component , Selecione o seu Ancestor Type: TDBNavigator, Agora selecione o nome de sua classe: TDBPicNav, Edite o codigo para:

unit DBPicNav;

interface

uses
  Windows, DB, DBTables, IBQuery, WinTypes, Classes,
  Graphics, Controls, ExtCtrls, DBCtrls, SYSUTILS;

type
  TDBPicNav = class(TDBNavigator)
  private
    { Private declarations }
  protected
    { Protected declarations }
  public
    { Public declarations }
    constructor Create(AOwner : TComponent); override;
  published
    { Published declarations }
end;


var
  BtnTypeName: array[TNavigateBtn] of PChar = ('FIRST', 'PRIOR', 'NEXT',
    'LAST', 'INSERT', 'DELETE', 'EDIT', 'POST', 'CANCEL', 'REFRESH');

procedure Register;

implementation

{$R DBPicNav.res} //Arquivo de recurso leia mais adiante do { TDBPicNav }

constructor TDBPicNav.Create(AOwner: TComponent);
var
  I: TNavigateBtn;
  ResName: string;
begin

  inherited;
    for I := Low(Buttons) to High(Buttons) do begin
      FmtStr(ResName, 'n_%s', [BtnTypeName[I]]);
      Buttons[I].Glyph.LoadFromResourceName(HInstance,pchar(ResName));
      Buttons[I].Glyph.Width := 64;
      Buttons[I].NumGlyphs := 2;
    end;
    Height := 35;
    Width  := 400;
    Flat := true;
    Hints.Text := 'Primeiro Registro'+#13+
                  'Registro Anterior'+#13+
                  'Próximo Registro'+#13+
                  'Último Registro'+#13+
                  'Inserir Registro'+#13+
                  'Deletar Registro'+#13+
                  'Editar Registro'+#13+
                  'Confirmar Alterações'+#13+
                  'Cancelar Alterações'+#13+
                  'Atualizar Alterações';
    ShowHint := true;  

end;



procedure Register;
begin
  RegisterComponents('Custom', [TDBPicNav]);
end;

end.

Copie o arquivo: "C:\Arquivos de Programas\Borland\Delphi7\Lib\dbctrls.res" para o diretorio onde foi salvo o codigo anterior .pas, este arquivo é o arquivo de recursos do DBNavigator. Abra o arquivo copiado com o editor de imagens do Delphi, modifique-o e o salve com o nome DBPicNav.res que é chamado em implementation do código acima.

Pronto seu componente está pronto para ser instalado e usado.

Este componente também pode ser baixado em:

Veja também nosso novo e zerado Forúm e participe.