text in rechteck MIT wrap

[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