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 |
![]() ![]() ![]() ![]() ![]() 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: 3530 |
![]() ![]() ![]() ![]() ![]() |
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 |
![]() ![]() ![]() ![]() ![]() |
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 |
![]() ![]() ![]() ![]() ![]() |
Thank you for your help. I got it to work now.
|
|
![]() |
|
FKirch ![]() Team Player ![]() ![]() Joined: 29 Oct 05 Location: Germany Status: Offline Points: 23 |
![]() ![]() ![]() ![]() ![]() |
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