text in rechteck MIT wrap

[DGL-luke]

hallo,

habe hier gepostet aufgrund der gänzlcih unbegründeten hoffnung, es gäbe dafür eine API-Funktion.

Und zwar will ich Text in ein Rechteck auf einem Canvas schreiben - inklusive Zeilenumbruch, d.h., wenn ein buchstabe nicht mehr ins kästchen passt, gehts eine zeile weiter drunten weiter.

Code:

+-----------+
|abcdefghijk|
|lmnopqrstuv|
+-----------+
 schade xyz
 passt nicht
 mehr hin

also so halt...

Geht das? Hat evtl. schon mal jemand so was gemacht? sonst mach ichs halt selber...

[marabu]

Hallo Lukas,

wenn ich dich richtig verstehe, dann suchst du die API-Funktion DrawText().

Delphi-Quellcode:

procedure TDemoForm.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
begin
  StartPoint := Point(X, Y);
end;

procedure TDemoForm.FormMouseUp(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  r: TRect;
begin
  if X < StartPoint.X
    then r.Left := X
    else r.Left := StartPoint.X;
  if Y < StartPoint.Y
    then r.Top := Y
    else r.Top := StartPoint.Y;
  r.Right := Pred(X + r.Left - StartPoint.X);
  r.Bottom := Pred(Y + r.Top - StartPoint.Y);
  DrawText(Canvas.Handle, PAnsiChar(Memo.Text),
    Length(Memo.Text), r, DT_LEFT + DT_WORDBREAK);
end;

Grüße vom marabu

[DGL-luke]

:thumb:

Danke, genau das hab ich gesucht!

EDIT: Ok... wie bring ich den dazu, auch innerhalb eines Wortes umzubrechen?

[marabu]

Zitat:

Zitat von DGL-luke

wie bring ich den dazu, auch innerhalb eines Wortes umzubrechen?

Da hattest du doch schon einen erfolgversprechenden Ansatz...

Zitat:

Zitat von DGL-luke

sonst mach ichs halt selber...

Unterstützung findest du z.B. hier.

Grüße vom marabu

[DGL-luke]

Welcher Ansatz? Aber danke, den Thread hatte ich auch vor Augen, als ich den erstellt hab.