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!

Debenu Quick PDF Library - PDF SDK Community Forum Homepage
Forum Home Forum Home > For Users of the Library > I need help - I can help
  New Posts New Posts RSS Feed - Help with FitTextBox
  FAQ FAQ  Forum Search   Register Register  Login Login

Help with FitTextBox

 Post Reply Post Reply
Author
Message
swtie831 View Drop Down
Beginner
Beginner
Avatar

Joined: 14 Mar 08
Location: United States
Status: Offline
Points: 3
Post Options Post Options   Thanks (0) Thanks(0)   Quote swtie831 Quote  Post ReplyReply Direct Link To This Post Topic: Help with FitTextBox
    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.
Back to Top
Ingo View Drop Down
Moderator Group
Moderator Group
Avatar

Joined: 29 Oct 05
Status: Offline
Points: 3524
Post Options Post Options   Thanks (0) Thanks(0)   Quote Ingo Quote  Post ReplyReply Direct Link To This Post Posted: 14 Mar 08 at 4:41PM
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
  
Back to Top
swtie831 View Drop Down
Beginner
Beginner
Avatar

Joined: 14 Mar 08
Location: United States
Status: Offline
Points: 3
Post Options Post Options   Thanks (0) Thanks(0)   Quote swtie831 Quote  Post ReplyReply Direct Link To This Post Posted: 17 Mar 08 at 11:29AM
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;
Back to Top
swtie831 View Drop Down
Beginner
Beginner
Avatar

Joined: 14 Mar 08
Location: United States
Status: Offline
Points: 3
Post Options Post Options   Thanks (0) Thanks(0)   Quote swtie831 Quote  Post ReplyReply Direct Link To This Post Posted: 17 Mar 08 at 2:06PM
Thank you for your help.  I got it to work now.
Back to Top
FKirch View Drop Down
Team Player
Team Player
Avatar

Joined: 29 Oct 05
Location: Germany
Status: Offline
Points: 23
Post Options Post Options   Thanks (0) Thanks(0)   Quote FKirch Quote  Post ReplyReply Direct Link To This Post Posted: 18 Mar 08 at 11:50PM
Will you please show us your solution?
Back to Top
 Post Reply Post Reply
  Share Topic   

Forum Jump Forum Permissions View Drop Down

Forum Software by Web Wiz Forums® version 11.01
Copyright ©2001-2014 Web Wiz Ltd.

Copyright © 2017 Debenu. Debenu Quick PDF Library is a PDF SDK. All rights reserved. AboutContactBlogSupportOnline Store