ABCPDF 6.0/7.0 Rect Object - How to determine if any text inside a fixed size rectangle has been truncated.

Hi, I am wanting to determine if all of a long string content that I am loading into a fixed size rect object will be visible.

'I have this sub
Sub PDFAddHTML(ByVal sHTML As String, ByVal oPos As Position)
        oDoc.TopDown = True
        oDoc.Rect.String = oPos.Left & " " & oPos.Top + oPos.Height & " " & oPos.Left + oPos.Width & " " & oPos.Top
        oDoc.AddHtml(sHTML)
End Sub
 
'I would like to convert the sub into a function like below.
Function PDFAddHTML(ByVal sHTML As String, ByVal oPos As Position) as boolean
        oDoc.TopDown = True
        oDoc.Rect.String = oPos.Left & " " & oPos.Top + oPos.Height & " " & oPos.Left + oPos.Width & " " & oPos.Top
        oDoc.AddHtml(sHTML)
 
        'Your code here          
       'Return True where there is no truncation in the Rect object
       'Return False where there is truncation in the Rect object
 
End Function

Open in new window

LVL 11
milduraitAsked:
Who is Participating?
I wear a lot of hats...

"The solutions and answers provided on Experts Exchange have been extremely helpful to me over the last few years. I wear a lot of hats - Developer, Database Administrator, Help Desk, etc., so I know a lot of things but not a lot about one thing. Experts Exchange gives me answers from people who do know a lot about one thing, in a easy to use platform." -Todd S.

lharrispvCommented:
just do an If Then to check to see if the length of the string is less then width of the rectangle.
0
milduraitAuthor Commented:
Thanks lharrispv

i found the solution...
oDoc.GetInfo(ObjectID,"Truncated")
This returns 1 if truncated else 0
0

Experts Exchange Solution brought to you by

Your issues matter to us.

Facing a tech roadblock? Get the help and guidance you need from experienced professionals who care. Ask your question anytime, anywhere, with no hassle.

Start your 7-day free trial
It's more than this solution.Get answers and train to solve all your tech problems - anytime, anywhere.Try it for free Edge Out The Competitionfor your dream job with proven skills and certifications.Get started today Stand Outas the employee with proven skills.Start learning today for free Move Your Career Forwardwith certification training in the latest technologies.Start your trial today
ASP

From novice to tech pro — start learning today.