Do you own a Debenu Quick PDF Library version 7, 8, 9, 10, 11, 12, 13 or iSEDQuickPDF license? Upgrade to Debenu Quick PDF Library 14 today!
Help with FitTextBox |
Post Reply |
Author | |
swtie831
Beginner Joined: 14 Mar 08 Location: United States Status: Offline Points: 3 |
Post Options
Thanks(0)
Posted: 14 Mar 08 at 3:31PM |
I am using iSedQuickPDF version 5.11 and am trying to use FitTextBox to change the font of a line of text if it is too long. However, I don't understand what is meant by "If 100 is added to these values long words will not be split up, the font size will be reduced until the longest word fits into the available width."
I've tried everything I can think of, but nothing seems to be working. Please help.
|
|
Ingo
Moderator Group Joined: 29 Oct 05 Status: Offline Points: 3524 |
Post Options
Thanks(0)
|
Hi!
Perhaps it's not your call "FitTextBox" but some other code prevent this call from working?
Perhaps you can post the relevant routine here?
Best regards,
Ingo
|
|
swtie831
Beginner Joined: 14 Mar 08 Location: United States Status: Offline Points: 3 |
Post Options
Thanks(0)
|
Thank you for helping me out on this. Here is the just of what I'm trying to do:
procedure TForm1.SampleCode(Sender: TObject);
var
QP : TiSEDQuickPDF; s0 : String;
fntCour : Integer;
begin
QP := TiSEDQuickPDF.Create;
QP.UnlockKey('CODE');
QP.NewDocument();
QP.SetOrigin(1);
QP.SetMeasurementUnits(1); QP.SetPageSize('Letter'); fntCour := QP.AddStandardFont(0);
QP.SelectFont(fntCour);
QP.SetTextSize(10); s0 := 'STRINGjt10doejtwen20fieothir30ieufnfor40doejtfif50afi55six60ieuseven70doejeigh80fieanine90ieuhund100ieufnah110doehtwe120fiehthi130ieufhfo140doejhfi150afivhsi160iehseve170doeheig180fiehnin190iethund200';
QP.FitTextBox(30,40.25,127.0,3.0,s0,0);
// I want this to shrink s0 to fit the text box, but instead it just cuts off s0 after '...70d'
QP.CompressContent;
QP.SaveToFile('C:\File.PDF');
QP.RemoveDocument(QP.SelectedDocument);
QP.Free;
end;
|
|
swtie831
Beginner Joined: 14 Mar 08 Location: United States Status: Offline Points: 3 |
Post Options
Thanks(0)
|
Thank you for your help. I got it to work now.
|
|
FKirch
Team Player Joined: 29 Oct 05 Location: Germany Status: Offline Points: 23 |
Post Options
Thanks(0)
|
Will you please show us your solution?
|
|
Post Reply | |
Tweet
|
Forum Jump | Forum Permissions You cannot post new topics in this forum You cannot reply to topics in this forum You cannot delete your posts in this forum You cannot edit your posts in this forum You cannot create polls in this forum You cannot vote in polls in this forum |
Copyright © 2017 Debenu. Debenu Quick PDF Library is a PDF SDK. All rights reserved. About — Contact — Blog — Support — Online Store