Panel Bouton
Description
Version 1.03 : Suite commentaire de Korgis, modifié la procedure MouseBP
Plus d'utilisation du TAG, ce qui lui rend sa fonction de base
Le bouton Color permet de choisir un des deux modes
version 1.02 :
Supprimé obligation de positionner les tag à l'élaboration
ajouté possibilité d'avoir 2 modes de fonctionnement :
Echange des couleurs Texte/Fond pendant le clic ou non
Permet d'avoir des boutons en couleurs sans utiliser de composants extérieurs
à Delphi standard
Principe :
• Nommer la série de Panels à convertir avec un nom de base (ex : BP)
suivi du nombre de boutons : 1 à N (sans trou) : BP1, BP2, BP3 ...
//// Inutile, le Tag est mis lors de la procedure InitMouseBP
////• Mettre la propriété TAG à la valeur du nom du bouton (1 à N)
//// Exemple BP1, BP2, ... BP5 : TAG 1, 2, ... 5
• Ajouter la variable globale : KBP : string='BP';
• Ajouter la variable globale : BPmode : intger=1; // par défaut pas de changement de couleur
• Ajouter dans Form.Create :
InitMouseBP(5,'BP',1); // ",'BP',1" étant les valeurs par défaut, peuvent être omis
Il ne reste qu'à définir les couleurs des boutons !!
L'action effectuée par le "bouton" reste à l'initiative du OnClick
Plus d'utilisation du TAG, ce qui lui rend sa fonction de base
Le bouton Color permet de choisir un des deux modes
version 1.02 :
Supprimé obligation de positionner les tag à l'élaboration
ajouté possibilité d'avoir 2 modes de fonctionnement :
Echange des couleurs Texte/Fond pendant le clic ou non
Permet d'avoir des boutons en couleurs sans utiliser de composants extérieurs
à Delphi standard
Principe :
• Nommer la série de Panels à convertir avec un nom de base (ex : BP)
suivi du nombre de boutons : 1 à N (sans trou) : BP1, BP2, BP3 ...
//// Inutile, le Tag est mis lors de la procedure InitMouseBP
////• Mettre la propriété TAG à la valeur du nom du bouton (1 à N)
//// Exemple BP1, BP2, ... BP5 : TAG 1, 2, ... 5
• Ajouter la variable globale : KBP : string='BP';
• Ajouter la variable globale : BPmode : intger=1; // par défaut pas de changement de couleur
• Ajouter dans Form.Create :
InitMouseBP(5,'BP',1); // ",'BP',1" étant les valeurs par défaut, peuvent être omis
Il ne reste qu'à définir les couleurs des boutons !!
L'action effectuée par le "bouton" reste à l'initiative du OnClick
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.