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: 44
Joined: Sat Apr 24, 2010 10:17 am
Been thanked: 13 times

XRTF Update 4

Post by brunellopulix » Tue Oct 16, 2012 3:05 pm

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 332 times

User avatar
esgici
Posts: 4509
Joined: Wed Jul 30, 2008 9:17 pm
DBs Used: DBF
Location: iskenderun / Turkiye
Has thanked: 386 times
Been thanked: 111 times
Contact:

Post by esgici » 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 :)
Viva INTERNATIONAL HMG :D

User avatar
Rathinagiri
Posts: 5263
Joined: Tue Jul 29, 2008 6:30 pm
DBs Used: MariaDB, SQLite, SQLCipher and MySQL
Location: Sivakasi, India
Has thanked: 169 times
Been thanked: 172 times
Contact:

Post by Rathinagiri » Tue Oct 16, 2012 4:19 pm

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.

User avatar
bpd2000
Posts: 1074
Joined: Sat Sep 10, 2011 4:07 am
Location: India
Has thanked: 196 times
Been thanked: 95 times

Post by bpd2000 » Wed Oct 17, 2012 3:11 am

Excellant
BPD
Convert Dream into Reality through HMG

User avatar
gfilatov
Posts: 646
Joined: Fri Aug 01, 2008 5:42 am
Location: Ukraine
Has thanked: 24 times
Been thanked: 216 times
Contact:

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

"Everything should be made as simple as possible, but no simpler." Albert Einstein

User avatar
Rathinagiri
Posts: 5263
Joined: Tue Jul 29, 2008 6:30 pm
DBs Used: MariaDB, SQLite, SQLCipher and MySQL
Location: Sivakasi, India
Has thanked: 169 times
Been thanked: 172 times
Contact:

Post by Rathinagiri » Wed Oct 17, 2012 3:57 pm

That completes the circle Grigory!
East or West HMG is the Best.
South or North HMG is worth.
...the possibilities are endless.

brunellopulix
Posts: 44
Joined: Sat Apr 24, 2010 10:17 am
Been thanked: 13 times

Post by brunellopulix » 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

Post Reply