CodeS-SourceS
Rechercher un code, un tuto, une réponse

Panel Bouton

Soyez le premier à donner votre avis sur cette source.

Vue 1 989 fois - Téléchargée 277 fois

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

Codes Sources

A voir également

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.