fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2010-01-18 11:04 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)

Browse Source 
* contrib/hbwin/win_tprn.prg
    ! Fix to prev.
This commit is contained in:
Viktor Szakats
2010-01-18 10:04:53 +00:00
parent 887c622da0
commit b3f7ff7e11
2 changed files with 10 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -17,6 +17,10 @@
past entries belonging to author(s): Viktor Szakats.
*/
2010-01-18 11:04 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
* contrib/hbwin/win_tprn.prg
! Fix to prev.
2010-01-18 10:58 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
* contrib/hbwin/win_tprn.prg
! Using constant.

12
harbour/contrib/hbwin/win_tprn.prg
View File

@@ -425,7 +425,7 @@ METHOD GetDocumentProperties() CLASS WIN_PRN
// An array {nMul,nDiv} is used to get precise size such a the Dot Matric equivalent
// of Compressed print == 16.67 char per inch == { 3,-50 }
// If nDiv is < 0 then Fixed width printing is forced via ExtTextOut()
METHOD SetFont( cFontName, nPointSize, nWidth, nBold, lUnderline, lItalic, nCharSet ) CLASS WIN_PRN
METHOD SetFont( cFontName, nPointSize, xWidth, nBold, lUnderline, lItalic, nCharSet ) CLASS WIN_PRN
LOCAL cType
IF cFontName != NIL
::FontName := cFontName
@@ -433,12 +433,12 @@ METHOD SetFont( cFontName, nPointSize, nWidth, nBold, lUnderline, lItalic, nChar
IF nPointSize != NIL
::FontPointSize := nPointSize
ENDIF
IF nWidth != NIL
cType := ValType( nWidth )
IF xWidth != NIL
cType := ValType( xWidth )
IF cType == "A"
::FontWidth := nWidth
ELSEIF cType == "N" .AND. ! Empty( nWidth )
::FontWidth := { 1, nWidth }
::FontWidth := xWidth
ELSEIF cType == "N" .AND. ! Empty( xWidth )
::FontWidth := { 1, xWidth }
ELSE
::FontWidth := { 0, 0 }
ENDIF