SpeedButton et changement de Glyph dynamique [Résolu]
goroundfr2
Messages postés mercredi 3 novembre 2004Date d'inscription
14 janvier 2006
Dernière intervention
-
13 janv. 2006 à 00:44 - Dernière réponse : goroundfr2
Messages postés mercredi 3 novembre 2004Date d'inscription
14 janvier 2006
Dernière intervention
- 14 janv. 2006 à 23:43
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.
Cirec4217
Messages postés vendredi 23 juillet 2004Date d'inscription
3 avril 2018
Dernière intervention -13 janv. 2006 à 01:35
+3
Utile
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
Cette réponse vous a-t-elle aidé ?Merci pour votre retour.
N'oubliez pas de prendre quelques secondes pour remercier l'auteur : Merci pour votre retour.
Nous sommes désolés. Notre objectif est de vous donner la meilleure réponse possible.
