FitTextBox but do not increase the fontsize

Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic

   The FitTextBox method allows you to specify the option to expand the font size (add 1000 to the options argument) so that the text fills the space available.
What I want to do is reduce the font size so the text always displays (without wrapping) in the space available, but not to ever increase the font's size.

An example would be an address, if it fits the area with the current font size then fine, leave it as it is. However if it doesn't fit, reduce the fontsize until it does.

Thanks 

Author	Message Topic Search Topic Options Post Reply Create New Topic Printable Version Translate Topic
rweetch Members Profile Find Members Posts Senior Member Joined: 22 Feb 11 Status: Offline Points: 173	Post Options Post Reply Quote rweetch Report Post Thanks(0) Quote Reply Topic: FitTextBox but do not increase the fontsize Posted: 15 Jun 16 at 7:20PM
	The FitTextBox method allows you to specify the option to expand the font size (add 1000 to the options argument) so that the text fills the space available. What I want to do is reduce the font size so the text always displays (without wrapping) in the space available, but not to ever increase the font's size. An example would be an address, if it fits the area with the current font size then fine, leave it as it is. However if it doesn't fit, reduce the fontsize until it does. Thanks

rweetch Members Profile Find Members Posts Senior Member Joined: 22 Feb 11 Status: Offline Points: 173	Post Options Post Reply Quote rweetch Report Post Thanks(0) Quote Reply Posted: 17 Jun 16 at 3:12PM
	I couldn't see how to do this using the methods, so rolled my own and added it to my TDebenuPDFLibrary Helper. Here's the code if you are interested: procedure TsmDebenuPDFLibraryHelper.DrawDownScaledText(const aText: string; const X, Y aWidth, aHeight: Double); var lTextSize, lStartSize: Double; begin lStartSize := GetTextSize; lTextSize := lStartSize; if GetWrappedTextHeight(aWidth, aText) > aHeight then begin lTextSize := lStartSize; repeat lTextSize := lTextSize * 0.95; SetTextSize(lTextSize); until (GetWrappedTextHeight(aWidth, aText) <= aHeight); end; DrawWrappedText(X, Y, aWidth, aText); if lTextSize < lStartSize then SetTextSize(lStartSize); end;

Ingo Members Profile Find Members Posts Moderator Group Joined: 29 Oct 05 Status: Offline Points: 3524	Post Options Post Reply Quote Ingo Report Post Thanks(0) Quote Reply Posted: 18 Jun 16 at 9:07AM
	Hi, i've put it into the samples section ;-) Thanks :)
	Cheers, Ingo