HMGforum.com

Posted: **Tue Oct 16, 2012 3:05 pm**

Hi

another update:
backgrounds -
- watermark
- Document protection
- Save as DOC, DOCX, HTML, XML and PDF

greetings

Brunello

Posted: **Tue Oct 16, 2012 3:19 pm**

Hi Brunello

brunellopulix wrote: another update:
backgrounds -
- watermark
- Document protection
- Save as DOC, DOCX, HTML, XML and PDF

Thanks, nice improvement

Posted: **Tue Oct 16, 2012 4:19 pm**

That is a great news.

Can you achieve font underline, strike out effects in PDF?

Posted: **Wed Oct 17, 2012 3:11 am**

Excellant

Posted: **Wed Oct 17, 2012 2:38 pm**

rathinagiri wrote:That is a great news.

Can you achieve font underline, strike out effects in PDF?

Hi Rathi,

It is possible with a small trick below:

Code: Select all

      if lStrikeout .or. lUnderline
         HPDF_Page_SetLineWidth( _HMG_HPDFDATA[ 1 ][ 7 ], 1 )
         if lColor
            HPDF_Page_SetRGBStroke( _HMG_HPDFDATA[ 1 ][ 7 ], nRColor/255, nGColor/255, nBColor/255 )
         else
            HPDF_Page_SetRGBStroke( _HMG_HPDFDATA[ 1 ][ 7 ], 0.0, 0.0, 0.0 )
         endif
         nyPos += IF( lUnderline, -1, _HMG_HPDF_Pixel2MM(nFontSize)/2+1 )
         HPDF_Page_MoveTo( _HMG_HPDFDATA[ 1 ][ 7 ], nxPos, nyPos )
         HPDF_Page_LineTo( _HMG_HPDFDATA[ 1 ][ 7 ], nxPos + nTextWidth, nyPos )
         HPDF_Page_Stroke( _HMG_HPDFDATA[ 1 ][ 7 ] )
      endif

Posted: **Wed Oct 17, 2012 3:57 pm**

That completes the circle Grigory!

Posted: **Thu Oct 18, 2012 4:37 pm**

HI

for interest:

FUNCTION WordVersion()
LOCAL oWord
LOCAL xRet
*
xRet := 0
oWord := CreateObject("Word.Application")
xRet := val(oWord:Version)
oWord:quit()
*****************************
*"95" Version = "7.0"
*"97" Version = "8.0"
*"2000" Version = "9.0"
*"2002" Version = "10.0"
*"2003" Version = "11.0"
*"2007" Version = "12.0"
*"2010" Version = "14.0"
*****************************
RETURN xRet

greetings

Brunello

HMGforum.com

XRTF Update 4

XRTF Update 4

Re: XRTF Update 4

Re: XRTF Update 4

Re: XRTF Update 4

Re: XRTF Update 4

Re: XRTF Update 4

Re: XRTF Update 4