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

2010-01-16 09:53 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

Browse Source 
* harbour/contrib/hbwin/win_tprn.prg
    * updated some comments

  * harbour/contrib/hbwin/win_prn1.c
    ! replaced yet another constant value by DMORIENT_LANDSCAPE macro
This commit is contained in:
Przemyslaw Czerpak
2010-01-16 08:53:28 +00:00
parent a382606815
commit 2c7b6af1ce
3 changed files with 9 additions and 3 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
harbour/ChangeLog
View File

@@ -17,6 +17,13 @@
past entries belonging to author(s): Viktor Szakats.
*/
2010-01-16 09:53 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/contrib/hbwin/win_tprn.prg
* updated some comments
* harbour/contrib/hbwin/win_prn1.c
! replaced yet another constant value by DMORIENT_LANDSCAPE macro
2010-01-15 21:14 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)
* contrib/hbqt/generator/qt45.qtp
* contrib/hbqt/hbqt.h

2
harbour/contrib/hbwin/win_prn1.c
View File

@@ -526,7 +526,7 @@ HB_FUNC( WIN_GETDOCUMENTPROPERTIES )
DocumentProperties( 0, hPrinter, ( LPTSTR ) lpDeviceName, pDevMode, pDevMode, DM_OUT_BUFFER );
hb_storni( pDevMode->dmPaperSize, 2 );
hb_storl( pDevMode->dmOrientation == 2, 3 );
hb_storl( pDevMode->dmOrientation == DMORIENT_LANDSCAPE, 3 );
hb_storni( pDevMode->dmCopies, 4 );
hb_storni( pDevMode->dmDefaultSource, 5 );
hb_storni( pDevMode->dmDuplex, 6 );

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

@@ -77,7 +77,6 @@ CREATE CLASS WIN_PRN
METHOD Create() // CreatesDC and sets "Courier New" font, set Orientation, Copies, Bin#
// Create() ( & StartDoc() ) must be called before printing can start.
METHOD Destroy() // Calls EndDoc() - restores default font, Deletes DC.
// Destroy() must be called to avoid memory leaks
DESTRUCTOR Destruct()
METHOD StartDoc( cDocName ) // Calls StartPage()
@@ -85,7 +84,7 @@ CREATE CLASS WIN_PRN
METHOD StartPage()
METHOD EndPage( lStartNewPage ) // If lStartNewPage == .T. then StartPage() is called for the next page of output
METHOD NewLine()
METHOD NewPage( lDelay )
METHOD NewPage( lDelay ) // If lDelay == .T. then new page is not created immediately but just before 1-st output
METHOD CheckPage()
METHOD GetDocumentProperties()
METHOD SetFont( cFontName, nPointSize, nWidth, nBold, lUnderline, lItalic, nCharSet )