Dbnavigatorplus

Soyez le premier à donner votre avis sur cette source.

Vue 7 234 fois - Téléchargée 1 263 fois

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.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

hichem123123
Messages postés
6
Date d'inscription
samedi 14 juin 2008
Statut
Membre
Dernière intervention
28 avril 2009
-
MMMMMMMMMMMMMMMMMerci
pascal1541
Messages postés
3
Date d'inscription
samedi 13 mars 2004
Statut
Membre
Dernière intervention
23 janvier 2011
-
Voici une mise à jour pour D7
pascal1541
Messages postés
3
Date d'inscription
samedi 13 mars 2004
Statut
Membre
Dernière intervention
23 janvier 2011
-
Désolé ce composant a été testé par Delphi 2007 seulement, merci. Je vais essyer avec D 7.
hichem123123
Messages postés
6
Date d'inscription
samedi 14 juin 2008
Statut
Membre
Dernière intervention
28 avril 2009
-
salut mem moi aussi le mem prob est ce que c compatible avec d 7 au non et merci
yvessimon
Messages postés
644
Date d'inscription
mardi 22 avril 2003
Statut
Membre
Dernière intervention
9 janvier 2017
-
Bonjour,

lors de l'installation l'erreur suivante s'affiche :

RLINK32 : Too many resources to handle

? Est-ce compatible avec DELPHI 7

Merci

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.