Modification de composant ds une boucle

Version imprimable

Salut à toutes et à tous

g un petit soucis

je souhaite modifier les prorietes de plusieurs composant dans une boucle :

là pas de pb je fais :
Code:

1 2 3 4 5 6 7 8 for( x=0 ; x<LaForm->ControlCount ; x++) { if((AnsiString)LaForm->Controls[x]->ClassName() == "TLabel" ) { ((TLabel*)LaForm->Controls[x])->Color = clBtnFace; ((TLabel*)LaForm->Controls[x])->Font->Color = clBlack; }
inspiré de Truc et astuce

Mon pb c qu'il faut que je fasse autant de fonction qu'il a de classe à modifier
ma question est donc comment faire en sorte de pouvoir modifier tous les dérivés de TControl ?

par exemple : Tedit et Tlabel

Egalement, peut on récupérer les propriété de chaque composant d'une fiche ?
pour l'instant j'arrive à en récupérer la liste des noms de chacun...

inspiré d'exemple C++ Builder

Merci d'avance :D :D

21/02/2004, 14h42
Greybird

Bonjour,

Pour ta première question, regarde du côté de la méthode InheritsFrom de la classe TObject.

Cordialement,

Arnaud
21/02/2004, 15h16
neness

Je pense qu'il faut trouver la Classe ancêtre la plus commune.

et transtyper tes Objets en cette classe mais, en ayant vérifié que les propriétés que te veux modifier font dèjà partie de cette classe.

tu devras surement faire plusieurs boucles...

Donne moi un exemple si tu as encore un doute. :wink:

Bonjour,
La méthode InheritsFrom permet de ne faire qu'une seule boucle.

Code:

1
2
3
4
5
6
7
8
 
  for( int x=0 ; x<Form1->ControlCount ; x++)
  {
    if(Form1->Controls[x]->InheritsFrom(__classid(TControl)))
    {
      ((TControl*)Form1->Controls[x])->Enabled = false;
    }
  }

Cordialement,

Arnaud

21/02/2004, 15h39
sinsenono
en fait je pense que le fait de pouvoir indiquer la classe avec un string me permettrais de resoudre mon pb
Dans le genre :
Code:

1 2 ((Monstring)LaForm->Controls[x])->Color = clBtnFace;
Mais ça bien sur ne fonctionne pas :cry: donc quelle synthaxe me permettrait d'indiquer ma classe par une chaine ? :?: :?:
21/02/2004, 15h47
sinsenono

je vient de tester la derniere fonction proposée et cela fonctionne :lol:

je vois si j'arrive à adapter ds ts mes cas...et je tag Resolu

merci des infos :P
21/02/2004, 15h58
sinsenono

seul pb pour les propriete Font ou color qui ne sont pas de TCOntrol cela pose pb

et je dois donc crée autant de ligne que de Classes...et comme je suis sur l'index X je ne peux pas mettre ttes les ligne dans la fonction vu précédement....

y a t il une possibilité d'indiquer la classe ds une chaine comme vu ds mon prece dent post ??....
21/02/2004, 16h06
Greybird

Bonjour,

Pourquoi ne pas simplement faire plusieurs blocs if avec InheritsFrom ?

Cordialement,

Arnaud

eh bien en fait c ce que g fait mais cela fait un peu long car c pour un composznt

en fait c un skiner!

exemple :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
 
for( x=0 ; x<LaForm->ControlCount ; x++)
  {
if((AnsiString)LaForm->Controls[x]->ClassName() == "TLabel" )
    {
        if( ((TLabel*)LaForm->Controls[x])->Name > name )
         {
                if(TypeSkin==Aucun)
                {
                ((TLabel*)LaForm->Controls[x])->Color = clBtnFace;
                ((TLabel*)LaForm->Controls[x])->Font->Color = clBlack;
                }
                if(TypeSkin==Black)
                {
                ((TLabel*)LaForm->Controls[x])->Color = clBlack;
                ((TLabel*)LaForm->Controls[x])->Font->Color = clWhite;
                }
                if(TypeSkin==Purple)
                {
                ((TLabel*)LaForm->Controls[x])->Color = clPurple;
                ((TLabel*)LaForm->Controls[x])->Font->Color = clYellow;
                }
                if(TypeSkin==Earth)
                {
                ((TLabel*)LaForm->Controls[x])->Color = 11446037;
                ((TLabel*)LaForm->Controls[x])->Font->Color = clBlack;
                }
                if(TypeSkin==Sky)
                {
                ((TLabel*)LaForm->Controls[x])->Color = 11446037;
                ((TLabel*)LaForm->Controls[x])->Font->Color = clNavy;
                }
                if(TypeSkin==Blue)
                {
                ((TLabel*)LaForm->Controls[x])->Color = clBlue;
                ((TLabel*)LaForm->Controls[x])->Font->Color = clYellow;
                }
          }
       }    //if
    }

name est optionnel...

cela fonctionne tres bien mais je pensais pouvoir optimiser en faisant un truc du genre

Code:

1
2
3
4
5
6
7
8
9
10
11
 
if((AnsiString)LaForm->Controls[x]->ClassName() == MaClasse)
    {
        if( ((MaClasse)LaForm->Controls[x])->Name > name )
         {
                if(TypeSkin==Aucun)
                {
                ((MaClasse)LaForm->Controls[x])->Color = clBtnFace;
                ((MaClasse)LaForm->Controls[x])->Font->Color = clBlack;
                }
 ....

Alors pour optimiser, je prendrais plutôt un autre axe.

Je ferais un Objet qui, pour un typeSkin, référencerait toutes les propriétés à changer.
Genre LabelFontColor, LabelColor, ...

Ensuite une TStringList, qui associe à chaque String une instance de cet Objet

Ensuite au début de ta fonction, tu récupère l'objet qui correspond à ton TypeSkin, puis tu traite tout de la même façon :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 ObjetSkin = ListeSkin->Objects[ListeSkin->IndexOf(typeSkin)]; for( x=0 ; x<LaForm->ControlCount ; x++) { if((AnsiString)LaForm->Controls[x]->ClassName() == "TLabel" ) { if( ((TLabel*)LaForm->Controls[x])->Name > name ) { (TLabel*)LaForm->Controls[x])->Color = ObjectSkin->LabelColor; (TLabel*)LaForm->Controls[x])->Font->Color = ObjectSkin->LabelFontColor; } } }
Cordialement,

Arnaud

22/02/2004, 12h46
sinsenono

effectivement je trouve ton approche mieux appropriée !!!

je vais aller ds ce sens... :arrow: :arrow:

Merci à toi

A+
NONO :D :D :D