SpeedButton et changement de Glyph dynamique [Résolu]

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

Votre réponse

2 réponses

Meilleure réponse
Cirec
Messages postés
4229
Date d'inscription
vendredi 23 juillet 2004
Dernière intervention
3 août 2018
- 13 janv. 2006 à 01:35
3
Merci
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

Merci Cirec 3

Avec quelques mots c'est encore mieux Ajouter un commentaire

Codes Sources a aidé 94 internautes ce mois-ci

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