Discussion :

[akli_agha]

Bonsoir,

Je viens de passer presqu'une heure à fouiner à droite et à gauche mais en vain !
Je voulais calculer la hauteur d'un libellé dans un rapport QuickReport à l'aide de la fonction API DrawText de Windows pour adapter le quadrillage. Voici le 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
 
var  
TextRect : TREct;
h : Integer;
s : string;
begin
  Lib1.caption := 'Licence L.M.D Sciences Economiques, de Gestion et Commerciales';
  s := Lib1.caption;
  Canvas.Font := lib1.Font;
  SetRect(TextRect, 0, 0, lib1.Width, 0);
  h := DrawText(Canvas.Handle, PChar(s), Length(s) , TextRect,
                DT_EXPANDTABS or DT_CALCRECT or DT_WORDBREAK or
                DrawTextBiDiModeFlagsReadingOnly);
 
//Lib1 : TQRLabel sur le rapport

Resultat : h = 32;

Sur le rapport le libellé se présente comme suit :

Licence L.M.D Sciences
Economiques, de Gestion et
Commerciales'

La hauteur pour ces trois lignes est de 48 au de 32.

Je ne sais pas ou est l'anomalie. Merci.

XP, FB2.0, D7, QR362

[ShaiLeTroll]

Canvas c'est bien celui du QuickReport ?
Pas celui d'une TForm ?

Pense qu'un QuickReport si l'on souhaite imprimer c'est 300 ou 600dpi, alors que la prévisualisation sera en 72 à 90dpi selon l'écran !
48 ou 32, ça doit être fonte en taille 10 sur ton Ecran, rien à voir avec la taille réelle sur papier !

Ensuite, il faut parfois forcer la fonte comme tu l'as fait
J'ai résolu ce problème pour un collègue comme toi en faisant

Code :

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

MonControl.Canvas.Font := MonControl.Font;

Son Control était en MS sans Serif mais la Font du Canvas était en Tahoma, ou inversement ... truc classique du Passage à XP qui utilise Tahoma par défaut !

Es-tu sûr du WordWrap et de Width, c'est comme si il n'avait compté que 2 lignes au lieu de 3 !

[akli_agha]

Merci pour la réponse.

La fonte est Arial avec une taille de 10. Quand l'objet Font est affecté c'est le tout qui est affecté. C'est à dire le jeux de caractères, le nom de la fonte, sa taille ainsi que son style.
J'ai essayé avec Assign, le résultat est le même : 32.

WordWrap est à true même s'il n'a rien à voir avec DarwText. Le width, lui, est affecté avec ' length(s) '

Canvas c'est bien celui du QuickReport ?

QuickReport n'a pas de propriété canvas.

Bizarre !

[ShaiLeTroll]

Lorsque je parlais de WordWrap je parlais de DT_WORDBREAK passé à DrawText qui fait justement le même chose !
Donc le Width permet de savoir quand DT_WORDBREAK va couper, à tous les cas, tu as passé un Width trop grand et ton texte tient sur 2 lignes !

QuickReport n'a pas de propriété canvas.

Ah, oui, effectivement, j'ai confondu avec l'utilisation direct tu TPrinter.Canvas où j'avais du jouer pour faire un listing de code barre à la mano

Mais alors pourquoi vouloir faire ce genre de calcul ?
TQuickRep et son TQRLabel avec ses propriétés Alignment, AutoStretch et WordWrap ne sont pas suffisant ?

En plus tout ça c'est du calcul pour l'aperçu, imprime le sur papier, je me demande si il ne va pas paniquer !

[akli_agha]

J'ai besoin de connaitre la hauteur du TQRlabel por centrer les autres informations sur la ligne. Le TQRLabel contiendra des infos variables, pas seulement ce que j'ai donné dans le message.
Voici un aperçu :

Licence L.M.D Sciences
1 JEAN CHRISTOPHER 24/11/1990 à Marseille Economiques, de Gestion et
Commerciales

2 JEAN MICHEL 14/10/1991 à Paris Licence L.M.D Droit
3 PIERRE CENTRO 30/04/1989 à Lyons Licence L.M.D Lettre et
Langue
Je ne peux pas centrer si je n'ai pas la hauteur.
En outre je voudrais comprendre pourquoi je n'ai pas la hauteur attendue, autrement dit, pourquoi la 3éme ligne n'est pas prise ne compte dans le calcul. Merci.

[SergioMaster]

Bonjour,

sans trop chercher , juste une piste :
TQRLabel est un descendant de TQRCustomLabel ,
ce dernier a des méthodes PrintToCanvas , PaintToCanvas et même une propriété FontSize
il doit y avoir matière a creuser .

une suggestion aller regarder les sources de QRLabled http://trtm.googlecode.com/svn/trunk...p/qrlabled.pas

PS : QRPrinter a bien un canvas