Customisé DBNavigator [Résolu]

andregoub 84 Messages postés vendredi 25 juin 2004Date d'inscription 19 mai 2011 Dernière intervention - 16 oct. 2010 à 13:52 - Dernière réponse : andregoub 84 Messages postés vendredi 25 juin 2004Date d'inscription 19 mai 2011 Dernière intervention
- 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 

Votre réponse

1 réponse

Meilleure réponse
andregoub 84 Messages postés vendredi 25 juin 2004Date d'inscription 19 mai 2011 Dernière intervention - 23 oct. 2010 à 11:42
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é

Merci andregoub 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 83 internautes ce mois-ci

Commenter la réponse de andregoub

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.