Discussion :

[sinsenono]

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 :

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

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

[Greybird]

Bonjour,

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

Cordialement,

Arnaud

[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.

[Greybird]

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

Code :

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

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

[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 :

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

1
2
 
((Monstring)LaForm->Controls[x])->Color = clBtnFace;

Mais ça bien sur ne fonctionne pas donc quelle synthaxe me permettrait d'indiquer ma classe par une chaine ? : :

[sinsenono]

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

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

merci des infos

[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 ??....

[Greybird]

Bonjour,

Pourquoi ne pas simplement faire plusieurs blocs if avec InheritsFrom ?

Cordialement,

Arnaud

[sinsenono]

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 :

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

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 :

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

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;
                }
 ....

[Greybird]

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 :

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

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

[sinsenono]

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

je vais aller ds ce sens...

Merci à toi

A+
NONO