XRTF Update 4

You can share your experience with HMG. Share with some screenshots/project details so that others will also be benefited.

Moderator: Rathinagiri

Post Reply
brunellopulix
Posts: 73
Joined: Sat Apr 24, 2010 10:17 am

XRTF Update 4

Post by brunellopulix »

Hi

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

greetings

Brunello
Attachments
XRTF Update 4.zip
(1.82 MiB) Downloaded 500 times
Top
User avatar
esgici
Posts: 4543
Joined: Wed Jul 30, 2008 9:17 pm
DBs Used: DBF
Location: iskenderun / Turkiye
Contact:
Contact esgici

Re: XRTF Update 4

Post by esgici »

Hi Brunello
brunellopulix wrote: another update:
backgrounds -
- watermark
- Document protection
- Save as DOC, DOCX, HTML, XML and PDF
Thanks, nice improvement :)
Viva INTERNATIONAL HMG :D
Top
User avatar
Rathinagiri
Posts: 5471
Joined: Tue Jul 29, 2008 6:30 pm
DBs Used: MariaDB, SQLite, SQLCipher and MySQL
Location: Sivakasi, India
Contact:
Contact Rathinagiri

Re: XRTF Update 4

Post by Rathinagiri »

That is a great news.

Can you achieve font underline, strike out effects in PDF?
East or West HMG is the Best.
South or North HMG is worth.
...the possibilities are endless.
Top
User avatar
bpd2000
Posts: 1207
Joined: Sat Sep 10, 2011 4:07 am
Location: India

Re: XRTF Update 4

Post by bpd2000 »

Excellant
BPD
Convert Dream into Reality through HMG
Top
User avatar
gfilatov
Posts: 1067
Joined: Fri Aug 01, 2008 5:42 am
Location: Ukraine
Contact:
Contact gfilatov

Re: XRTF Update 4

Post by gfilatov »

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
Attachments
Sample Page with underline and strike out effects
Sample Page with underline and strike out effects
hpdf-page2.png (19.04 KiB) Viewed 5041 times
Kind Regards,
Grigory Filatov

"Everything should be made as simple as possible, but no simpler." Albert Einstein
Top
User avatar
Rathinagiri
Posts: 5471
Joined: Tue Jul 29, 2008 6:30 pm
DBs Used: MariaDB, SQLite, SQLCipher and MySQL
Location: Sivakasi, India
Contact:
Contact Rathinagiri

Re: XRTF Update 4

Post by Rathinagiri »

That completes the circle Grigory!
East or West HMG is the Best.
South or North HMG is worth.
...the possibilities are endless.
Top
brunellopulix
Posts: 73
Joined: Sat Apr 24, 2010 10:17 am

Re: XRTF Update 4

Post by brunellopulix »

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
Top
Post Reply

Return to “My HMG Projects”