|
Registriert seit: 17. Sep 2006
Ort: Barchfeld
27.542 Beiträge
Delphi 11 Alexandria
|
Re: Textgröße an Rechteck anpassen
30. Aug 2007, 10:50
Ich denke, das ist nur in einer Schleife zu lösen.
Delphi-Quellcode:
if (TWidth > RWidth) then
begin
AText := AText + Points;
while ACanvas.TextWidth(AText) > RWidth do
System.Delete(AText, Length(AText) - Length(Points), 1);
end;
Ungetestet!
Detlef
"Ich habe Angst vor dem Tag, an dem die Technologie unsere menschlichen Interaktionen übertrumpft. Die Welt wird eine Generation von Idioten bekommen." (Albert Einstein)
Dieser Tag ist längst gekommen
|