QUICKREPORT
dipajero
Messages postés
4
Date d'inscription
samedi 11 janvier 2003
Statut
Membre
Dernière intervention
25 février 2005
-
24 févr. 2005 à 00:17
cupracing Messages postés 27 Date d'inscription vendredi 3 novembre 2000 Statut Membre Dernière intervention 24 février 2005 - 24 févr. 2005 à 10:35
cupracing Messages postés 27 Date d'inscription vendredi 3 novembre 2000 Statut Membre Dernière intervention 24 février 2005 - 24 févr. 2005 à 10:35
2 réponses
cupracing
Messages postés
27
Date d'inscription
vendredi 3 novembre 2000
Statut
Membre
Dernière intervention
24 février 2005
1
24 févr. 2005 à 10:12
24 févr. 2005 à 10:12
Voilà une solution qui est de créer tes champs (par exemple dans un QRText ...) à l'execution, c'est à dire que si tu as 20 textes à imprimer, tu crées 20 champs ...
Pour cela voici un petit exemple c'est plus parlant:
//----------------------------------------------------
procedure exemple;
Var i: integer;
Var QR_compo:Tcomponent;
Var tmpText1: TQRDBText;
begin
try
// création des 20 nouveaux champs à imprimer à la création
For i := 1 to 20 do
begin
tmpText1:= TQRDBText.Create(QuickRep1);
tmpText1.Top := i * 10;
tmpText1.Left := 50;
tmpText1.Name:='QRText1'+inttostr(i);
QuickRep1.insertcontrol(tmpText1);
end;
finally // permet de liberer les champs crées à la fermeture
For i:= 1 to 20 do
begin
QR_compo:= QuickRep1.findComponent('QRText1'+inttostr(i));
if QR_compo<>nil then (QR_compo as TQRDBText).free;
end;
end;
//----------------------------------------------------
Voilà j'espère que c'est compréhensif et que ça répond à ta question !
A+
Pour cela voici un petit exemple c'est plus parlant:
//----------------------------------------------------
procedure exemple;
Var i: integer;
Var QR_compo:Tcomponent;
Var tmpText1: TQRDBText;
begin
try
// création des 20 nouveaux champs à imprimer à la création
For i := 1 to 20 do
begin
tmpText1:= TQRDBText.Create(QuickRep1);
tmpText1.Top := i * 10;
tmpText1.Left := 50;
tmpText1.Name:='QRText1'+inttostr(i);
QuickRep1.insertcontrol(tmpText1);
end;
finally // permet de liberer les champs crées à la fermeture
For i:= 1 to 20 do
begin
QR_compo:= QuickRep1.findComponent('QRText1'+inttostr(i));
if QR_compo<>nil then (QR_compo as TQRDBText).free;
end;
end;
//----------------------------------------------------
Voilà j'espère que c'est compréhensif et que ça répond à ta question !
A+
cupracing
Messages postés
27
Date d'inscription
vendredi 3 novembre 2000
Statut
Membre
Dernière intervention
24 février 2005
1
24 févr. 2005 à 10:35
24 févr. 2005 à 10:35
... j'oubliais il faut mettre avant Finally la procedure d'impression c'est à dire QuickRep1.Print ou QuickRep1.Preview
Et je me suis trompé à la place d'un TQRDBText il faut utiliser un TQRLabel.
Pour ajouter du text à un composant créé (tmpText1 as TQRLabel).caption := 'Hello';
Et je me suis trompé à la place d'un TQRDBText il faut utiliser un TQRLabel.
Pour ajouter du text à un composant créé (tmpText1 as TQRLabel).caption := 'Hello';
