Discussion :

[Cpt Anderson]

Bonjour à tous,

j'ai un petit souci, en effet, lorsque je veux mettre du texte, que je récupère à partir d'un memo, dans un TBitmap, j'utilise la méthode Textout du canvas.
Le truc, c'est que si j'ai des saut de ligne etc, cette méthode ne gère pas le cas et je me retrouve avec tout le texte sur une seule ligne.
Quelqu'un sait-il comment faire pour gérer mes sauts de ligne ?

Mon Code :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
bmp:= TBitmap.Create;
   try
      text :=Memo.Text ;
      bmp.width:=bmp.Canvas.TextWidth(text) ;
      bmp.Height:=bmp.Canvas.TextHeight(text) ;
      bmp.Canvas.TextOut(0,0,text);
//ensuite je dessine mon bmp dans un paintbox
   finally
      bmp.free ;
   end ;

resultat, dans mon paintbox, si j'ai essayé d'ecrire:

vive developpez.com
vive moi

j'ai

vive developpez.com||vive moi

[Cl@udius]

Salut

Utilise l'API DrawText avec DT_WORDBREAK:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
 
  bmp:= TBitmap.Create;
  try
    text := Memo.Text ;
    bmp.width := bmp.Canvas.TextWidth(text) ;
    bmp.Height := bmp.Canvas.TextHeight(text) * Memo.Lines.Count;
    MyRect := Rect(0, 0, bmp.Width, bmp.Height);
    DrawText(bmp.Canvas.Handle, PChar(Text), -1, MyRect,
      DT_NOPREFIX or DT_WORDBREAK);
//ensuite je dessine mon bmp dans un paintbox
  finally
    bmp.free ;
  end ;

@+ Claudius

[Cpt Anderson]

Merci Cl@udius