Discussion :

[zarbouine]

bonjour,

j'ai un report (qr) dans lequel je créé un certain nombre de QRLabel à l'exécution.
Au moment de l'impression, j'ai besoin de modifier la propriété alignment de certains des Qrlabel, en fonction de la valeur d'un champ d'une table.

Je n'arrive pas à accéder à cette propriété. Pourtant ça doit être possible non ?

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
 
// par exemple là je crée mon Qrlabel
   with TQRLabel.Create(Self) do
    begin
      Parent := detailband1;
      alignment := tarightjustify;
      left := 0;
    end;
 
// avant l'impression :
procedure Tqetiq.DetailBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
var
  i: integer;
begin
 for i:=0 to quickrep1.ControlCount-1 do
 begin
   if controls[i] is TQRLABEL then controls[i].Alignment := tacenter;
 end;  
 // ça marche pas : pas moyen d'accéder à cette propriété
end;

Comment faire ?
Merci de votre aide

[Bruno@Chrysis]

il faut transtyper controls[i] :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
// avant l'impression :
procedure Tqetiq.DetailBand1BeforePrint(Sender: TQRCustomBand;
  var PrintBand: Boolean);
var
  i: integer;
begin
 for i:=0 to quickrep1.ControlCount-1 do
 begin
   if controls[i] is TQRLABEL then TQRLABEL(controls[i]).Alignment := tacenter;
 end;  
 // ça marche pas : pas moyen d'accéder à cette propriété
end;

Bruno

[Pedro]

Salut
Au lieu de parcourir tous les contrôlesde ta fiche, tu ferais mieux de les mettre dans un TObjectList
Ce sera plus simple pour les trouver et les compter

[zarbouine]

merci de vos réponses !
Je vais essayer de me débrouiller.

Le TObjectList ça me parait séduisant, mais comment fait-on pour ajouter le composant au moment de sa création ?
Et pour accéder aux propriétés, la synatxe is ?

Je vais chercher, mais Pedro, si tu peux m'éclairer, merci d'avance...

[Pedro]

Le TObjectList ça me parait séduisant, mais comment fait-on pour ajouter le composant au moment de sa création ?

t'aurais permis de trouver :

Code :

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

1
2
3
4
5
6
7
8
9
 
t := TQRLabel.Create(Self);
with t do
begin
  Parent := detailband1;
  alignment := tarightjustify;
  left := 0;
end;
MonObjectList.add(t);

Et pour accéder aux propriétés, la synatxe is ?

t'aurais permis de trouver :

Code :

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

1
2
3
 
for i := 0 to MonObjectList.Count - 1 do
  TQRLabel(MonObjectList.Items[i]).Alignment := taCenter;

[zarbouine]

Merci beaucoup Pedro !

j'avais cherché dans l'aide mais pas trouvé des explications aussi claires.
(en fait j'avais pas compris, maintenant oui )
je progresse : youpee
Encore merci

[Pedro]

Merci beaucoup Pedro !

j'avais cherché dans l'aide mais pas trouvé des explications aussi claires.
(en fait j'avais pas compris, maintenant oui )
je progresse : youpee
Encore merci

Mais avec plaisir
Si ton problème est résolu, n'oublie pas de cliquer sur