Drucken mit automatischem Textumbruch ?

[malabarista]

Ich möchte mit Lazarus drucken. Und zwar einen Fließtext. D.h. wenn die Zeile für den Ausdruck zu lang ist, soll sie automatisch umgebrochen werden.

Deshalb meine Frage: gibt es eine Möglich in Lazarus den Text beim Drucken automatisch umzubrechen ?

Oder muss ich mir da selbst etwas überlegen ?

[theo]

Mit TextRect müsste es in einfachen Fällen automatisch gehen.
Hier ein Beispiel für Form Canvas. Musst du nat. auf Printer anwenden.

Code: Alles auswählen

procedure TForm1.FormPaint(Sender: TObject);
var Str:String;
  Styl:TTextStyle;
begin
  Str:='Ich möchte mit Lazarus drucken. Und zwar einen Fließtext. D.h. wenn die Zeile für den Ausdruck zu lang ist, soll sie automatisch umgebrochen werden.';
  FillChar(Styl, sizeof(Styl), 0);
  Styl.Wordbreak:=true;
  Canvas.TextRect(Rect(0,0,Width,Height),10,10,Str,Styl);
end;  

[malabarista]

Dies ist eine sehr schöne Idee. Danke !