From 45a966b56e700b39f92a8874ff50f759a9b985ed Mon Sep 17 00:00:00 2001 From: Przemyslaw Czerpak Date: Sat, 23 Jan 2010 01:27:33 +0000 Subject: [PATCH] 2010-01-23 02:27 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl) * harbour/contrib/hbwin/win_tprn.prg ! do not ignore :setBkMode() called before :create() --- harbour/ChangeLog | 4 ++++ harbour/contrib/hbwin/win_tprn.prg | 3 +++ 2 files changed, 7 insertions(+) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 94de82b09b..f01ba75e4b 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -17,6 +17,10 @@ past entries belonging to author(s): Viktor Szakats. */ +2010-01-23 02:27 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl) + * harbour/contrib/hbwin/win_tprn.prg + ! do not ignore :setBkMode() called before :create() + 2010-01-23 02:21 UTC+0100 Viktor Szakats (harbour.01 syenar.hu) * contrib/hbnetio/utils/netiosrv.prg * contrib/hbnetio/utils/netiocmd.prg diff --git a/harbour/contrib/hbwin/win_tprn.prg b/harbour/contrib/hbwin/win_tprn.prg index 2b4688db0c..4d2f89ce98 100644 --- a/harbour/contrib/hbwin/win_tprn.prg +++ b/harbour/contrib/hbwin/win_tprn.prg @@ -250,6 +250,9 @@ METHOD Create() CLASS WIN_PRN IF !lResult ::hPrinterDC := NIL ELSE + IF ::BkMode != NIL + win_SetBkMode( ::hPrinterDc, ::BkMode ) + ENDIF // Set mapping mode to pixels, topleft down win_SetMapMode( ::hPrinterDC, WIN_MM_TEXT ) // win_SetTextCharacterExtra( ::hPrinterDC, 0 ) // do not add extra char spacing even if bold