Discussion :

[jojo86]

Et c'est tout???

Sa serait aussi simple que ça???

Et bien... Moi qui croyais que c'était beaucoup plus compliqué que cela...

Merci beaucoup de ton aide.

Je vous tien informé, mais là tu m'as bien aidé j'avoue...

Je n'ai plus qu'à régler les marges et coder le tout !!!
Merci beaucoup !

[jojo86]

@ NABIL74

Simple question...
A quoi sert le QRBAND???

Merci !

[jojo86]

Je devais utiliser le composant : QRLabel !!!

Plus aucun soucis, je pense que je peut clore se sujet !!!

Merci beaucoup à tous et surtout à Nabil !

[jojo86]

Arf...

Je n'arrive mas à rendre transparent mes QRLabel pour que la photo du dessous soit apparente...

Je passe pourtant la propriete Transparent à TRUE mais ça ne change rien...

Merci de me dépanner !

[jojo86]

Et bien ce soir je m'auto répond !!!

En faite, sur le formulaire, le QRLabel apparait non transparent, mais à l'impression ou à l'aperçu il le devien !!!

Merci !!!

[jojo86]

J'ajoute des QRLabel Par programation mais il ne sont pas visible lors de l'aperçu...

Voici mon code :

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
procedure TForm1.PrixClassique(Sender: TObject);
var Code : TQRLabel;
begin
Code:=TQRLabel.Create(Form1);
Code.Parent:=QRImage1;
Code.Name  :='Code'+IntToStr(NumEnCour);
Code.Transparent:=True;
Code.Caption:='CODE :';
Code.Size.Left  :=61.4;
Code.Size.Top   :=4.2;
Code.Size.Height :=4.5;;
Code.Size.Width  :=12;
With Code.Font do
begin
  Height :=-13;
  Name:='Arial';
  Size:=10;
  end;
Code.Font.Style:=[fsBold];

Je ne sais pas comment configurer le Parent de mon objet...

Merci à vous si vous pouvez m'aider !

[jojo86]

Bon...

J'ai découvert quelque chose...

Si je créer un composant dans mon QRBand, il apparait au preview pour l'impression.

Voici le code que j'ai utilisé :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Code[NumEnCour]:=TQRLabel.Create(Form1);
With Code do
begin
  Parent:=QRBand1;
  ParentReport:=QuickRep1;
  Name  :='Code';
  Transparent:=True;
  Caption:='CODE :';
  Size.Left  :=61.4;
  Size.Top   :=20;
  Size.Height :=4.5;;
  Size.Width  :=12;
end;

Le soucis c'est que je ne peux pas placer tout mes QRImages dans le QRBand1...

Je tourne vraiment en rond avec ces composants...

[cincap]

@ jojo86 et le lien que je t'avais communiqué, c'est une application en delphi clé en main, il y a certainement des idées à prendre.

@+,

Cincap

[NABIL74]

Le soucis c'est que je ne peux pas placer tout mes QRImages dans le QRBand1...

tu veux placer chaque "QRImage" dans une "QRBand" différente ?
8 en tout?

[jojo86]

@ NABIL

Je ne sais pas ce que je veux faire car je ne comprend pas le fonctionnement de ces composants...

En tout cas ce que je veux faire, c'est ajouter sur chaque étiquettes des QRLabel...

J'ai trouvé une solution mais bon...

J'ai placé tout mes QRImage dans mon QRBand...

[NABIL74]

drôle de façon de procéder je pense .
pourquoi placer toutes tes "QRImage" sur la même "QRBand"?
voilà ce que je te propose: ajoute 7 autres "QRBand"(donc 8 en tout) sur le quickReport et mets chaque "QRImage" sur chaque "QRBand" .et puis,par programmation, tu vas ajouter tes "QRLabel" sur chaque image.
de cette façon,tu vas fixer tes QRLabel là où tu veux.

NABIL74

[jojo86]

Mes QRBand ne peuvent pas se positionner ou je veux sur la fiche...

C'est pas grave, un QRBand pour toutes mes images ça me vas très bien !

J'ai déjà bien avancé de cette façon.

[NABIL74]

Mes QRBand ne peuvent pas se positionner ou je veux sur la fiche...

C'est pas grave, un QRBand pour toutes mes images ça me vas très bien !

J'ai déjà bien avancé de cette façon.

alors bon développement!

NABIL74