Customisé DBNavigator [Résolu]

Signaler
Messages postés
83
Date d'inscription
vendredi 25 juin 2004
Statut
Membre
Dernière intervention
19 mai 2011
-
Messages postés
83
Date d'inscription
vendredi 25 juin 2004
Statut
Membre
Dernière intervention
19 mai 2011
-
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.

1 réponse

Messages postés
83
Date d'inscription
vendredi 25 juin 2004
Statut
Membre
Dernière intervention
19 mai 2011

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é