Underline and italic in PDF seems not work
Posted: Mon Mar 24, 2014 11:00 pm
Salve a tutti!
Vorrei creare un PDF con dei paragrafi sottolineati o in corsivo tramite il comando
@ <Row> , <Col> PRINT [ DATA ] <xData>
[ TO <nToRow> , <nToCol> ]
[ FONT <cFontName> ]
[ SIZE <nFontSize> ]
[ BOLD ]
[ ITALIC ]
[ UNDERLINE ]
[ STRIKEOUT ]
[ COLOR <aColor> ]
[ RIGHT | CENTER ]
ma l'opzione UNDERLINE e ITALIC sembrano non funzionare: dove sbaglio?
Se non fosse ancora stato attivato, leggo dal ChangeLog di HMG 2.1 Extended Edition basandosi sulla contribuzione di S.Rathinagiri e Janusz Pora sembrano stati corretti.
E' possibile in HMG 3.2(Stable) avere questa funzionalità?
Grazie comunque. W il vecchio Clipper e il nuovo HMG!
---------- english translate
Hello to everyone!
I want to create a PDF with paragraphs underlined or in italics using the command
@ <Row> , <Col> PRINT [ DATA ] <xData>
[ TO <nToRow> , <nToCol> ]
[ FONT <cFontName> ]
[ SIZE <nFontSize> ]
[ BOLD ]
[ ITALIC ]
[ UNDERLINE ]
[ STRIKEOUT ]
[ COLOR <aColor> ]
[ RIGHT | CENTER ]
but the option UNDERLINE and ITALIC seems not work: where am I wrong?
Had it not been activated yet, I read the ChangeLog HMG 2.1 Extended Edition based on the contribution of S.Rathinagiri and Janusz Pora seem to have been correct.
It's 'possible with HMG 3.2 (Stable) have this feature?
Thanks anyway. W old Clipper and the new HMG!
Edit
The problem could be in HMG_HPDF.PRG. In extended I read
in HMG 3.2 there's not the lStrikeout and lUnderline referred. The syntax it's different: _HMG_HPDFDATA[n][m] vs. _HMG_SYSDATA[n][m]
Bye
Vorrei creare un PDF con dei paragrafi sottolineati o in corsivo tramite il comando
@ <Row> , <Col> PRINT [ DATA ] <xData>
[ TO <nToRow> , <nToCol> ]
[ FONT <cFontName> ]
[ SIZE <nFontSize> ]
[ BOLD ]
[ ITALIC ]
[ UNDERLINE ]
[ STRIKEOUT ]
[ COLOR <aColor> ]
[ RIGHT | CENTER ]
ma l'opzione UNDERLINE e ITALIC sembrano non funzionare: dove sbaglio?
Se non fosse ancora stato attivato, leggo dal ChangeLog di HMG 2.1 Extended Edition basandosi sulla contribuzione di S.Rathinagiri e Janusz Pora sembrano stati corretti.
E' possibile in HMG 3.2(Stable) avere questa funzionalità?
Grazie comunque. W il vecchio Clipper e il nuovo HMG!
---------- english translate
Hello to everyone!
I want to create a PDF with paragraphs underlined or in italics using the command
@ <Row> , <Col> PRINT [ DATA ] <xData>
[ TO <nToRow> , <nToCol> ]
[ FONT <cFontName> ]
[ SIZE <nFontSize> ]
[ BOLD ]
[ ITALIC ]
[ UNDERLINE ]
[ STRIKEOUT ]
[ COLOR <aColor> ]
[ RIGHT | CENTER ]
but the option UNDERLINE and ITALIC seems not work: where am I wrong?
Had it not been activated yet, I read the ChangeLog HMG 2.1 Extended Edition based on the contribution of S.Rathinagiri and Janusz Pora seem to have been correct.
It's 'possible with HMG 3.2 (Stable) have this feature?
Thanks anyway. W old Clipper and the new HMG!
Edit
The problem could be in HMG_HPDF.PRG. In extended I read
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
Bye