Textgröße an Rechteck anpassen

[marabu]

Hallo Laura,

ich glaube dein Chef braucht eine neue Brille, wenn er die Ellipsis nicht sieht:

Delphi-Quellcode:

var
  s: string;
  r: TRect;
begin
  s := 'Der Affe den Sie meinen heißt Parmesan';
  r := Rect(20, 60, 180, 110);
  DrawText(Canvas.Handle, PChar(s), Length(s), r, DT_BOTTOM or DT_END_ELLIPSIS);
end;

Freundliche Grüße