Discussion :

[Debault]

Salut tout le monde,

je travaille sur des états à imprimer. Le problème étant que certaines des chaines de caractères sont censées s'inscrire dans une zone rectangulaire et sur plusieurs lignes.
Le problème c'est qu'avec TextOut je ne peux pas limiter l'impression de mes chaines de caractères et je ne peux pas écrire sur plusieurs lignes automatiquement. Avec TextRect je ne peux écrire que sur une seule ligne en délimitant une zone et sans passage automatique à ligne non plus.. J'aurais souhaité savoir s'il existait des fonctions permettant de faire une mise en page automatique en fournissant les dimensions de la zone ainsi que la position du cadre. La chaine de caractère serait alors positionné avec des sauts à la ligne lorsque je serais hors du cadre.
J'ai pensé écrire une fonction qui prendrait en paramètre la hauteur, la largeur et la position de la zone. Puis j'inscrirais caractère après caractère mes stringd et je passerais à la ligne lorsque je sortirais de ma zone. Mais cette méthode présente 2 gros inconvénients, le plus gros étant que mes mots peuvent être coupés (peut être faudrait il dans ce cas voir pour écrire mot par mot et non pas caractère par caractère) et ensuite celà augmente considérablement le temps d'impression.

Merci d'avance

[edam]

j'ai déjà eu ce problém, voila un petit code à testéj'ai pas delphi sous la main)

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
20
21
22
23
24
25
26
27
28
29
30
 
Procedure decoupe(s:string;lh,ll:integer;canv:TCancas;var resu:TStrings);
var   
     i:integer;
     m,n:string;
begin
       m:='';n:='';
      with canv do
         begin
            i:=1;resu.clear;
            while i<length(s) do
              begin
                m:='';    
                while (i<length(s)) and (canvas.length(m+n+s[i])<lh) do
                   begin
                      n:=n+s[i];
                      if s[i]=' ' then m:=m+n;
                   end; 
                resu.add(m);
             end; 
         end;
end;
procedure appelproc;
var  t:TStrings;
begin
       t:=TStringList.creat; 
       decoupe('blab lalalalal',0,0,printer.canvas,t);
        .......
       t.clear; 
end;

ce code a testé , safait lengt que je l'ai fait