Customisé DBNavigator [Résolu]

Messages postés
84
Date d'inscription
vendredi 25 juin 2004
Statut
Membre
Dernière intervention
19 mai 2011
- - Dernière réponse : andregoub
Messages postés
84
Date d'inscription
vendredi 25 juin 2004
Statut
Membre
Dernière intervention
19 mai 2011
- 23 oct. 2010 à 11:42
bonjour

j'essaie de customisé DBNavigator,en suivant un tutoriel, j'ai 3 erreurs qui sont en rouge dans le code
pouvez vous m'indiquez la marche à suivre pour corriger les erreurs
merci à ceux qui vont me lire et m'aider
dede
voici le code
**********************************
unit Unit2;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ImgList, Grids, Buttons, DBGrids, ExtCtrls, DBCtrls, DB, DBTables;

type THackDBNavigator = class(TDBNavigator);

type
TForm2 = class(TForm)
DataSource1: TDataSource;
Table1: TTable;
DBNavigator1: TDBNavigator;
DBGrid1: TDBGrid;
ImageList1: TImageList;

private
{ Déclarations privées }
procedure SetupHackedNavigator(const Navigator : TDBNavigator;
const Glyphs : TImageList);
public
{ Déclarations publiques }
end;
var
Form2 : TForm2;

implementation

{$R *.dfm}
procedure TForm2.FormCreate(Sender: TObject);
SetupHackedNavigator(DBNavigator1, ImageList1);
end;

procedure TForm2.SetupHackedNavigator
(const Navigator : TDBNavigator;
const Glyphs : TImageList);
const
Captions : array[TNavigateBtn] of string =
('Initial', 'Previous', 'Later', 'Final', 'Add',
'Erase', 'Correct', 'Send', 'Withdraw', 'Revive');
(*
Captions : array[TNavigateBtn] of string =
('First', 'Prior', 'Next', 'Last', 'Insert',
'Delete', 'Edit', 'Post', 'Cancel', 'Refresh');
*)
var
btn : TNavigateBtn;
begin
for btn := Low(TNavigateBtn) to High(TNavigateBtn) do
with THackDBNavigator(Navigator).Buttons[btn] do
begin
//from the Captions const array
Caption := Captions[btn];

//the number of images in the Glyph property
NumGlyphs := 1;
// Remove the old glyph.
Glyph := nil;
// Assign the custom one
Glyphs.GetBitmap(Integer(btn),Glyph);
// gylph above text
Layout := blGlyphTop;

// explained later
// OnMouseUp := HackNavMouseUp;
end;
end; (*SetupHackedNavigator*)
end.
Afficher la suite 

1 réponse

Meilleure réponse
Messages postés
84
Date d'inscription
vendredi 25 juin 2004
Statut
Membre
Dernière intervention
19 mai 2011
3
Merci
Salut

Continuer de ne pas aider, j'ai trouvé la solution je vais la donner , pour ceux qui sont ou seront dans le même cas de figure
vous cliquez sur la form et dans l'évements OnActivate
Vous copiez (SetupMyDBNav(DBNavigator1,ImageList1);
dédé

Dire « Merci » 3

Quelques mots de remerciements seront grandement appréciés. Ajouter un commentaire

Codes Sources 205 internautes nous ont dit merci ce mois-ci

Commenter la réponse de andregoub