SpeedButton et changement de Glyph dynamique [Résolu]

Signaler
Messages postés
2
Date d'inscription
mercredi 3 novembre 2004
Statut
Membre
Dernière intervention
14 janvier 2006
-
Messages postés
2
Date d'inscription
mercredi 3 novembre 2004
Statut
Membre
Dernière intervention
14 janvier 2006
-
Bonjour à tous,

Je voudrais dans mon programme changer le glyph d'un speed button à l'execution, ce bouton en fait doit afficher 2 glyph alternativement à chaque fois que l'on click dessus.
Voici le code que j'ai saisi, mais cela ne fonctionne pas :

procedure TFormMain.SpeedButtonLockClick(Sender: TObject);
begin

IsLocked := not IsLocked;
If IsLocked then
begin
SpeedButtonLock.Glyph := nil;
SpeedButtonLock.Glyph.Canvas.Draw(0, 0, KeyIcon);
end
else
begin
SpeedButtonLock.Glyph := nil;
SpeedButtonLock.Glyph.Canvas.Draw(0, 0, UnlockedIcon);
end;
end;

A noter que IsLocked et un boolean global, et que KeyIcon et UnLockedIcon sont des TIcon global préalablement créés à la création du form.

Merci pour votre aide,

GoroundFr

2 réponses

Messages postés
3824
Date d'inscription
vendredi 23 juillet 2004
Statut
Modérateur
Dernière intervention
18 décembre 2020
37
Salut,
Esssaye voir comme ça :

procedure TFormMain.SpeedButtonLockClick(Sender: TObject);
begin
IsLocked := not IsLocked;
If IsLocked then
SpeedButtonLock.Glyph.Assign(KeyIcon) // uniquement des BMP
else
SpeedButtonLock.Glyph.Assign(UnlockedIcon);
end;



@+
Cirec
Messages postés
2
Date d'inscription
mercredi 3 novembre 2004
Statut
Membre
Dernière intervention
14 janvier 2006

Merci Cirec,

Cela fonctionne effectivement mieux.

GoroundFr