Two Pilots™    Home  |  Navigation  |  Site Map  |  Products  |  Download  |  Prices  |  For Partners  |  Support


All forums · Statistics · Search ·

Two Pilots forum / For software developers / Underline Text Problems PDFCreatorPilot (3.8.580)
Author Message
Iker Celorrio
Member
# Posted: 7 Jan 2008 10:03


Hi Stanislav / Support Team !

First: Happy New Year!!!

Second: PDFCreatorPilot Library do not Underline Text correctly.
The Bug is located when underline text is scaled more or less than 100%
If you scale the text more than 100% the underline "line" is shorter than text.
If you scale the text less than 100% the underline "line" is longer than text.

you coul try this:
-- START HelloPDF_3x_text_underline_scaling.vbs ----------------------------
' create pdf library object
Set PDF = CreateObject("PDFCreatorPilot3.PDFDocument3")
' initialize PDF Engine
PDF.StartEngine "DEMO@DEMO.com", "DEMO"
' Set AutoLaunch property to TRUE to automatically launch PDF Reader
PDF.AutoLaunch = true
PDF.FileName = "HelloPDF_3x_text_underline_scaling.pdf"
' start document generation
PDF.BeginDoc
' draw "HELLO, PDF" message on the current PDF page
PDF.PDFPAGE_SetActiveFont "Lucida Console", True, False, True, False, 8, 0
PDF.PDFPAGE_SetHorizontalScaling 100
PDF.PDFPAGE_TextOut 10, 20, 0, "Hello PDF Creator Pilot,"
PDF.PDFPAGE_TextOut 10, 35, 0, "the Post-Text Underline PDF Library"

PDF.PDFPAGE_SetActiveFont "Lucida Console", False, False, True, False, 8, 0
PDF.PDFPAGE_SetHorizontalScaling 100
PDF.PDFPAGE_TextOut 10, 50, 0, "Hello PDF Creator Pilot,"
PDF.PDFPAGE_TextOut 10, 65, 0, "the Post-Text Underline PDF Library"

PDF.PDFPAGE_SetActiveFont "Courier New", True, False, True, False, 8, 0
PDF.PDFPAGE_SetHorizontalScaling 120
PDF.PDFPAGE_TextOut 10, 80, 0, "Hello PDF Creator Pilot,"
PDF.PDFPAGE_TextOut 10, 95, 0, "the Post-Text Underline PDF Library"

PDF.PDFPAGE_SetActiveFont "Courier New", False, False, True, False, 8, 0
PDF.PDFPAGE_SetHorizontalScaling 120
PDF.PDFPAGE_TextOut 10, 110, 0, "Hello PDF Creator Pilot,"
PDF.PDFPAGE_TextOut 10, 125, 0, "the Post-Text Underline PDF Library"

' finalize document generation
PDF.EndDoc
' disconnect from library
Set PDF = Nothing
-- END HelloPDF_3x_text_underline_scaling.vbs ----------------------------

Thanks

vit.shibaev
# Posted: 7 Jan 2008 12:24


Hi Iker,

Thank you for your letter!
Unfortunately problem occurs. We will necessarily fix it!

Best regards,
Vitaliy Shibaev
Two Pilots
http://www.colorpilot.com

vit.shibaev
# Posted: 7 Jan 2008 12:26


Hi Iker,

And of course Happy New Year you too!

Best regards,
Vitaliy Shibaev
Two Pilots
http://www.colorpilot.com

 

 

Powered by miniBB 2.0 RC7 © 2001-2004 Page creation time (sec.): 0.013

 

Page top