Discussion :

[cadetill]

Peut être quelqu'un a besoin d'avoir dans un QuickReport de mettre un TQrDBText ou un TQrLabel avec le texte en vertical ou un autre angle. Ici vous avez unes lignes de code pour le faire

L'idée est de crée une Font avec la rotation désirée et de l'assigner au QrLabel ou QrDBText. Dans l'exemple j'utilise l'évènement OnPrint pour le faire et je le donne une orientation de 90º.

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
procedure TQuickReport2.QRDBText2Print(sender: TObject; var Value: String);
var
  lf : TLogFont;
  tf : TFont;
begin
  tf := TFont.Create;
  tf.Assign(tqrdbtext(sender).Font);
  GetObject(tf.Handle, sizeof(lf), @lf);
  lf.lfEscapement := 900;
  lf.lfOrientation := 900;
  tf.Handle := CreateFontIndirect(lf);
  tqrdbtext(sender).font.assign(tf);
  tf.free;
end;

Pour garanti le succès, mieux d'utiliser fonts TrueType.

Le truc n'est pas a moi, j'ai envoyée un mail a QuSoft et ils m'ont répondu ça

Salut!

[Pedro]

Merci pour ta participation

[fthdz]

bonjour,

tout d'abord merci pour le code
j'ai utilisé votre code mais le problème que l'orientation se fait seulement en mode apercu (qreport.preview) ,après impression (qreport.print)le QrLabel est horizontale.

(Delphi7,QuickReport 3.0.9)
MERCI D'AVANCE

[SergioMaster]

Il y a longtemps qusoft donnait un lien sur un composant QRAngled qui pour moi fonctionne très bien (d1..d5 QR2,QR3) je ne crois pas que l'auteur ai continué vers les autres versions .
Ci joint ce que j'ai retrouvé (et peut être modifié) de ce composant . Peut être qu'un "coeur vaillant" peut s'en inspirer

[fthdz]

SergioMaster
le composant QRAngled fonctionne très bien, en plus l'orientation se fait en mode conception.
merci encore une fois

[cadetill]

Salut

Pardon pour répondre si tard, mais je suis plein de travail et je n'ai pas pu le faire.

Et oui, c'est vrai, mon truc seulement fonctionne en mode aperçu. Je me suis aperçu ça fait quelques semaines (2 o 3) mais j'avais d'autres choses a faire que cherchez la solution

En fin, que le composant QRAngled fonctionne a la perfection dans D7 et QR 3

Merci

[fthdz]

merci cadetill ,

grâce a votre contribution j'ai eu une idée sur la manipulation des FONTS.

MERCI

[zaki64]

salut.
je n'est pas trouvé le QRAngled dans Delphi5, est ce qu'il ya une méthode pour le faire, merci.

[SAMIRAPC]

j'ai installé qrangeled dans delphi 6 et 7 mais quand j'affecte un champ au QrangeledDbtext delphi affiche une erreur datasource n'existe pas ; quoi faire SVP