QReport, Imprimer un texte en vertical

**kurkaine** · 12/09/2006, 17h11

Bonjour,

L'intitulé de mon message n'est pas très clair. En fait, j'aimerai écrire sur ma feuille d'impression des infos en horizontale et d'autres infos en vertical (de haut en bas) : par exemple:

Code :

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

Bonjour

et

Code :

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

1
2
3
4
5
6
7
B
O
N
J
O
U 
R

Mais comment faire vu que je n'ai pas trouvé d'option permettant de renverser le mode d'écriture d'un composant

**bandit boy** · 12/09/2006, 17h38

Salut,
Si cette écriture est faites avec un Tabel, insère \n entre chaque lettre, et mets tes lettres en majuscule.
Genre:

Code :

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

1
2
3
4
5
 
AnsiString Texte = Label1->Caption.UpperCase();
for(int i=2;i<Texte.Length()+1;i++)
    Texte.Insert('\n',i++);
Label1->Caption = Texte;

**kurkaine** · 12/09/2006, 19h53

L'idée est bonne mais ce n'est pas un TLabel mais un composant de base de données QRDBText (composant QuickReport).

**jordy16** · 12/09/2006, 22h23

Dans ce cas ... transfère le contenu du QRDbText dans un QRLabel .. ca devrait pouvoir se faire non ??

PS : ce n'est peut etre pas la meilleure solution

**kurkaine** · 12/09/2006, 22h33

mmm... Je débute avec QReport, je ne vois pas ou faire le transfert dont tu parles. Je comprends bien ce que tu veux dire mais comment affecter à chaque champs de ma table à laquelle est correspondant le DBLabel à QRLabel? Je ne vois pas trop en fait ou mettre le code.

PS: tu as la foi d'être encore derriere ton pc à cette heure, je pensais être le seul (en fait chez moi il est 0h33, vu le décalage horaire)

**Sunchaser** · 12/09/2006, 23h04

Bonsoir,

Totalement au pif, et sans tester ... (youpi!) ... en 'free-style' quoi :
.dans l'évènement OnPrint du QRDBText:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
void __fastcall TForm2::QRDBText1Print(TObject *sender, AnsiString &Value)
{
String S;
S = Value.SubString(1, 1) + AnsiString("\n");
for ( int i = 2; i < Value.Length() + 1; i ++ )
{
        S = S + Value.SubString(i, 1) + AnsiString("\n");
}
Value = S;
}