andregoub
Messages postés83Date d'inscriptionvendredi 25 juin 2004StatutMembreDernière intervention19 mai 2011
-
16 oct. 2010 à 13:52
andregoub
Messages postés83Date d'inscriptionvendredi 25 juin 2004StatutMembreDernière intervention19 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;
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;
andregoub
Messages postés83Date d'inscriptionvendredi 25 juin 2004StatutMembreDernière intervention19 mai 20111 23 oct. 2010 à 11:42
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é