Discussion :

[bob8181_2000]

bonsoir.

Est il possible de recuperer le nom d'un composant et le convertir en TColor.
Je m'explique, j'ai un popup dont les TMenuItems ont pour nom clRed, clBlue , etc ....
Quand je selection le menu, je voudrais affecter à la couleur d'un composant la couleur (le MenuItem) que je viens de selectionner.


Bob

[Ricky81]

Bonjour,

tu peux peut-être tout simplement te servir de la propriété Tag et mémoriser le code couleur pour chaque item ?

Eric

[Sunchaser]

Bonsoir,

Je devrais etre au lit depuis longtemps - a mon age c'est pas sérieux - mais bon, je suis incorrigible...
Perso, j'essaierai ca :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
 
TMenuItem *pItem = dynamic_cast < TMenuItem * > (Sender);
switch (pItem->MenuIndex)
{
case (0):
Form2->Label1->Font->Color = clRed;
break;
case (1):
Form2->Label1->Font->Color = clBlue;
break;
}

par exemple.
J'ai testé avec le Name de chaque TMenuItem, et en fait le gros problème est que si qq part ailleurs dans ta fiche tu affectes a un autre objet une couleur qui porte le meme nom qu'un de tes TMenuItem, la tu auras irrémédiablement une erreur ...
Par ex, j'avais une erreur sur cette ligne dans ma fiche :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 
Form2->StringGrid1->Canvas->Font->Color = clRed;

puisque qu'il est impossible d'affecter un TMenuItem * a une propriété TColor.

@ +

[bob8181_2000]

Le tag est de type entier.
C'etait plus simple (ou du moins plus parlant) de creer des menus possedant le nom de la couleur que je voulais .

[Neilos]

Tu peux toujours laisser le nom de la couleur et dans le tag ne stocker que l'entier correspondant.

C'est beaucoup plus simple...mais si tu aimes faire plus compliquer...

[henderson]

Salut !

Le Tag fait très bien l'affaire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TMenuItem *M;

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
M->Tag = clWhite;
M->Tag = 0x00FFFFFF; // même chose que clWhite

A l'usage :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

TColor c = (TColor)M->Tag;//transtypage pour éviter les avertissements

A plus !

[bob8181_2000]

Ok. J'utilse la derniere solution.
Merci à tous.
bob

[Sunchaser]

B'soir,


Merci henderson, voila qqchose que je n'aurais pas pensé essayer.

@+