Discussion :

[TMario]

Bonjour,

Je n'arrive pas à atteindre la propriété Text d'un TCornerButton.
Avec ce code cela fonctionne très bien avec un TBoutton , TLabel, TSpeedButton.
Si quelqu’un pouvait m'expliquer ?

Merci

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
 
procedure TFAccueil.LangueClick(Sender: TObject);
var
    i, x: Integer;
    Composent :  TComponent ;
    Forme : TForm ;
 
begin
  Language:=(sender as Tbutton).Tag;
  If MList.Count > 0 then
    for i := Application.ComponentCount - 1 downto 0 do
    if Application.components[i] is TForm then
    begin
       Forme := TForm(application.components[i]);
 
       if Forme.Name <> 'FLangues' then
       for x := Forme.ComponentCount - 1 downto 0 do
       begin
         Composent := Forme.Components[x];
         if Composent.Tag > 0 then
         begin
             RecordTxt := MList.Items[Composent.Tag-1] ;
 
             if Forme.Components[x] is TLabel then
                   TLabel(FindComponent(Composent.Name)).Text         := RecordTxt^.LG[Language] ;
 
             if Forme.Components[x] is TButton Then
                    TButton(FindComponent(Composent.Name)).Text       := RecordTxt^.LG[Language] ;
 
             if Forme.Components[x] is TSpeedButton Then
                    TSpeedButton(FindComponent(Composent.Name)).Text  := RecordTxt^.LG[Language] ;
 
            if Forme.Components[x] is TCornerButton then
                    TCornerButton(FindComponent(Composent.Name)).Text := 'essai'//RecordTxt^.LG[Language] ;
         end;
       end;
    end;
end;

[ShaiLeTroll]

Pourquoi ne pas utiliser correctement vos variables ?

FindComponent dans votre façon de faire cherche dans l'instance de TFAccueil et non dans l'instance de Forme

TCornerButton c'est FMX ?

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
procedure TFAccueil.LangueClick(Sender: TObject);
var
  i, x: Integer;
  Composent : TComponent ;
  Forme : TForm ;
begin
  Language:=(sender as Tbutton).Tag;
  If MList.Count > 0 then
  begin
    for i := Application.ComponentCount - 1 downto 0 do
    begin
      if Application.components[i] is TForm then
      begin
        Forme := TForm(application.components[i]);
 
        if Forme.Name <> 'FLangues' then
        begin
          for x := Forme.ComponentCount - 1 downto 0 do
          begin
           Composent := Forme.Components[x];
           if Composent.Tag > 0 then
           begin
             RecordTxt := MList.Items[Composent.Tag-1] ;
 
             if Composent is TLabel then
               TLabel(Composent).Text := RecordTxt^.LG[Language] 
             else if Composent   is TButton Then
               TButton(Composent).Text := RecordTxt^.LG[Language]
             else if Composent is TSpeedButton Then
                TSpeedButton(Composent).Text := RecordTxt^.LG[Language] 
             else if Composent is TCornerButton then
               TCornerButton(Composent).Text := 'essai'//RecordTxt^.LG[Language] ;
           end;
         end;
       end;
     end;
   end;
 end;
end;

[ALWEBER]

Je pense que l'erreur vient de

Code :

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

1
2
 
if Composent.Tag > 0 then

[SergioMaster]

Bonjour,

TCornerButton c'est FMX ?

Oui, dans la "page" supplément de la palette

[ALWEBER]

J'ai testé. L'erreur vient du fait que la propriété Tag n'est pas renseignée pour les TCornerButtons, donc rien à voir avec le composant lui même.

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
 
var
    i, x: Integer;
    Composent :  TComponent ;
    Forme : TForm ;
 
begin
    for i := Application.ComponentCount - 1 downto 0 do
    if Application.components[i] is TForm then
    begin
       Forme := TForm(application.components[i]);
       if Forme.Name <> 'FLangues' then
       for x := Forme.ComponentCount - 1 downto 0 do
       begin
         Composent := Forme.Components[x];
         //if Composent.Tag > 0 then
         begin
            if Forme.Components[x] is TCornerButton then
                    TCornerButton(FindComponent(Composent.Name)).Text := 'essai' ;
         end;
       end;
    end;
end;

[ShaiLeTroll]

Oui, dans la "page" supplément de la palette

Merci, je l'ai aussi dans XE2 (même deux fois dans la palette), ne faisant jamais de FMX, je ne connais pas ces nouveaux controles

Je pense que l'erreur vient de

Code :

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

1
2
 
if Composent.Tag > 0 then

Comment peux-tu savoir cela sans le code ?
Qui te dis que TMario n'a pas faite cette partie ?
La propriété Tag étant publié depuis le TComponent, toute classe hérité y a accès, il a pu définir le Tag en conception IHM par exemple

J'ai testé. L'erreur vient du fait que la propriété Tag n'est pas renseignée pour les TCornerButtons, donc rien à voir avec le composant lui même.

Je n'arrive pas à atteindre la propriété Text d'un TCornerButton
avec ce code cela fonction très bien avec un TBoutton , TLabel, TSpeedButton

L'image montre qu'il est en cours de débogage (point d'arrêt actif et en prêt à passer en éxécution) avec un accès un instance <nil> et donc une violation à l'adresse <nil>.text
TMario pense que cela fonctionne avec un TButton , TLabel, TSpeedButton mais j'ai clairement un doute sur la véracité de ces propos !


Faudrait vraiment avoir la confirmation sur le fait que FindComponent est fait sur Self (TFAccueil) au lieu d'être forme sur Forme (toutes formes de l'application sauf TFLangues) est l'origine du problème
Même si l'on peut supposer que TFAccueil soit la MainForm donc la première instance dans "Forme"

Je dirais que sur TFAccueil retourné comme "Forme", cela fonctionne avec I = 0 d'où l'illusion qu'avec TBoutton , TLabel, TSpeedButton cela fonctionne
Mais lorsque l'on passe sur I = 1, une autre TForm a un TCornerButton comme premier composant et cela plante en cherchant ce contrôle dans TFAccueil, ce qui donne l'illusion qu'avec TCornerButton cela ne fonctionne pas


Je pense qu'en utilisant la variable locale Composent, déjà on y verra plus clair
sans compter cela sera en plus bien plus rapide évitant les boucles internes du FindComponent

[SergioMaster]

Bonjour,

en fait je ne comprends pas l'objectif, à priori une sorte localisation (internationalisation/traduction) de programme ? en FMX il y a TLang qui peut faire ça très bien en plus il y a même une propriété qui peut empêcher la traduction automatique

[ShaiLeTroll]

en fait je ne comprends pas l'objectif, à priori une sorte localisation (internationalisation/traduction) de programme ? en FMX il y a TLang qui peut faire ça très bien en plus il y a même une propriété qui peut empêcher la traduction automatique

C'est bon à savoir de TLang si un jour j'ai du FMX à faire, merci pour l'info
Je suis encore sur GnuGetText avec des fichiers PO en VCL, la plaie l'i18n !

[SergioMaster]

C'est bon à savoir de TLang si un jour j'ai du FMX à faire, merci pour l'info

De rien, mais il y a quand même quelques bémols à TLang, je ne suis pas persuadé que cela soit aussi bien que des composants tiers comme DKLang, mais bon je n'ai aps non plus pousser mes essais

[ALWEBER]

Comment peux-tu savoir cela sans le code ?
Qui te dis que TMario n'a pas faite cette partie ?
La propriété Tag étant publié depuis le TComponent, toute classe hérité y a accès, il a pu définir le Tag en conception IHM par exemple

J'ai repris le code source qui nous avait été proposé et je l'ai réduis progressivement pour isoler le problème.
J'ai mis ce code opérationnel dans mon précédent post ce qui explique mon affirmation

[TMario]

Pourquoi ne pas utiliser correctement vos variables ?

FindComponent dans votre façon de faire cherche dans l'instance de TFAccueil et non dans l'instance de Forme

TCornerButton c'est FMX ?

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
procedure TFAccueil.LangueClick(Sender: TObject);
var
  i, x: Integer;
  Composent : TComponent ;
  Forme : TForm ;
begin
  Language:=(sender as Tbutton).Tag;
  If MList.Count > 0 then
  begin
    for i := Application.ComponentCount - 1 downto 0 do
    begin
      if Application.components[i] is TForm then
      begin
        Forme := TForm(application.components[i]);
 
        if Forme.Name <> 'FLangues' then
        begin
          for x := Forme.ComponentCount - 1 downto 0 do
          begin
           Composent := Forme.Components[x];
           if Composent.Tag > 0 then
           begin
             RecordTxt := MList.Items[Composent.Tag-1] ;
 
             if Composent is TLabel then
               TLabel(Composent).Text := RecordTxt^.LG[Language] 
             else if Composent   is TButton Then
               TButton(Composent).Text := RecordTxt^.LG[Language]
             else if Composent is TSpeedButton Then
                TSpeedButton(Composent).Text := RecordTxt^.LG[Language] 
             else if Composent is TCornerButton then
               TCornerButton(Composent).Text := 'essai'//RecordTxt^.LG[Language] ;
           end;
         end;
       end;
     end;
   end;
 end;
end;

Merci
TCornerButton(Composent).Text := RecordTxt^.LG[Language] ; Fonctionne