SpeedButton et changement de Glyph dynamique [Résolu]

goroundfr 2 Messages postés mercredi 3 novembre 2004Date d'inscription 14 janvier 2006 Dernière intervention - 13 janv. 2006 à 00:44 - Dernière réponse : goroundfr 2 Messages postés mercredi 3 novembre 2004Date d'inscription 14 janvier 2006 Dernière intervention
- 14 janv. 2006 à 23:43
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
Afficher la suite 

2 réponses

Répondre au sujet
Cirec 4217 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é ?  
Commenter la réponse de Cirec
goroundfr 2 Messages postés mercredi 3 novembre 2004Date d'inscription 14 janvier 2006 Dernière intervention - 14 janv. 2006 à 23:43
0
Utile
Merci Cirec,

Cela fonctionne effectivement mieux.

GoroundFr
Commenter la réponse de goroundfr

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.