Dbnavigatorplus

Télécharger le projet
Commenter

Description

dbnavifatorplus est un dbnavigator mais un peux avancé, avec de texte comme on peux changer les images des bouttons avec un composant TimageList.

Cette mise à jour est faite pour ceux qui veux utiliser le composant sur delphi 7 ou 2007.
DBPlus.pkg pour delphi 2007
DBPlus7.pkg pour delphi 7.

Source / Exemple : 


unit DBNavigatorPlus;

interface

uses
  SysUtils, Classes, Controls, ExtCtrls, DBCtrls, Buttons, Graphics;

type
  TDBNavigatorPlus = class(TDBNavigator)
  private
  PLayout:TButtonLayout;
  PImages:TImageList;
    { Private declarations }
  protected
  procedure setlayout(Avalue:TButtonLayout);
  procedure setImages(Aimages:TImageList);
    { Protected declarations }
  public
    constructor Create(AOwner: TComponent); override;
    { Public declarations }
  published
  property Layout:TButtonLayout read PLayout write SetLayout default blGlyphTop;
  property Images:TImageList read PImages write SetImages;
  { Published declarations }
  end;

procedure Register;

implementation

procedure Register;
begin
  RegisterComponents('Data Controls', [TDBNavigatorPlus]);

  
end;

procedure TDBNavigatorPlus.setlayout;
var btn : TNavigateBtn;

begin
   PLayout:=Avalue;
   for btn := Low(TNavigateBtn) to High(TNavigateBtn) do
  with self.Buttons[btn] do
    Layout := Avalue;
end;

procedure TDBNavigatorPlus.SetImages;
var btn : TNavigateBtn;
var img:TBitmap;
begin
  PImages:=Aimages;
  for btn := Low(TNavigateBtn) to High(TNavigateBtn) do
  with self.Buttons[btn] do
  begin
      Glyph := nil;
      NumGlyphs := 1;
      // Assign the custom one
      AImages.GetBitmap(Integer(btn),Glyph);
      
  end;
end;

constructor TDBNavigatorPlus.Create;
const
  Captions : array[TNavigateBtn] of string =
      ('Premier', 'Précedent', 'Suivant', 'Dernier', 'Ajouter',
       'Supprimer', 'Modifier', 'Valider', 'Annuler', 'Actualiser');

var btn : TNavigateBtn;

begin
  inherited Create(AOwner);
   for btn := Low(TNavigateBtn) to High(TNavigateBtn) do
  with self.Buttons[btn] do
  begin

    Caption := Captions[btn];
    if Assigned(Images) then
    begin
      Glyph := nil;
      NumGlyphs := 1;
      // Assign the custom one
      Images.GetBitmap(Integer(btn),Glyph);
    end;
    Layout := blGlyphTop;
  end;
end;
end.
Télécharger le projet

Codes Sources

S'inscrire maintenant

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.

Du même auteur (pascal1541)