FitTextBox : a sample code from "rweetch".How...

Sat, 18 Jun 2016 09:07:12 +0000

Author: Ingo
Subject: 3347
Posted: 18 Jun 16 at 9:07AM

a sample code from "rweetch".

How to reduce fontsize to fit into the area of a fix textbox:

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;

Debenu Quick PDF Library - PDF SDK Community Forum : FitTextBox

FitTextBox : a sample code from "rweetch".How...