Mon but est d'imprimer le contenu d'un TRichEdit. Tout se passait bien jusqu'au moment ou j'ai dus commencé à aligner du texte!

J'ai donc commencé par utiliser Quick report se trouvant dans la FAQ
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
Procedure EcrireMot(Mot:string; LeftDebutMM:extended; 
EcartementLettreMM:extended; TopMotMM:extended;
Parent:TWinControl); 
var 
Lettre : Array of TQRLabel; 
i : integer; 
begin 
  SetLength(Lettre,Length(Mot)+1); 
  for i:=1 to Length(Mot) do begin 
    Lettre[i] := TQRLabel.Create(nil); 
    Lettre[i].Caption:=copy(Mot,i,1); 
    Lettre[i].Parent:=Parent; 
    Lettre[i].Size.Left:= LeftDebutMM+(EcartementLettreMM*i); 
    Lettre[i].Size.Top:= TopMotMM; 
  end; 
end;
qui ne fonctionne pas si on n'ajoute pas l'unité 'QRCtrls' mais bon....
Ma ligne ressemblait donc à klk chose du genre
Code : Sélectionner tout - Visualiser dans une fenêtre à part
EcrireMot('ESSAI',5,5,20,richedit1)
et le résultat n'est pas vraiment ce que j'espérais: 'essaie' s'affiche mais en drole de format et de toute façon pas moyen de l'imprimer... Je ne sais pour quelle raison, ça bloque.

Peut être que le quick report que j'utilise ne fonctionne pas pour les TRichEdit !!!
Y aurait il un autre tutau klk part qui permet d'aligner le texte ?

Thxs in advance