Du texte dans un TBitmap

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:

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:

Citation:

vive developpez.com
vive moi

j'ai

Citation:

vive developpez.com||vive moi

Salut

Utilise l'API DrawText avec DT_WORDBREAK:

Code:

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

Merci Cl@udius :ccool: