From aa2cb9c96f4614d6a074b1f26390fe3eaf45f596 Mon Sep 17 00:00:00 2001 From: Viktor Szakats Date: Mon, 18 Jan 2010 10:40:16 +0000 Subject: [PATCH] 2010-01-18 11:39 UTC+0100 Viktor Szakats (harbour.01 syenar.hu) * contrib/hbwin/hbwin.ch * contrib/hbwin/win_tprn.prg + Added constants for WIN_SETBKMODE() mode parameter. --- harbour/ChangeLog | 5 +++++ harbour/contrib/hbwin/hbwin.ch | 4 ++++ harbour/contrib/hbwin/win_tprn.prg | 3 +-- 3 files changed, 10 insertions(+), 2 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index bb20f0130b..0d2f3f71be 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -17,6 +17,11 @@ past entries belonging to author(s): Viktor Szakats. */ +2010-01-18 11:39 UTC+0100 Viktor Szakats (harbour.01 syenar.hu) + * contrib/hbwin/hbwin.ch + * contrib/hbwin/win_tprn.prg + + Added constants for WIN_SETBKMODE() mode parameter. + 2010-01-18 11:20 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl) * harbour/include/dbinfo.ch * harbour/include/hbrdddbf.h diff --git a/harbour/contrib/hbwin/hbwin.ch b/harbour/contrib/hbwin/hbwin.ch index 19f7a1a3ef..cce2543c9c 100644 --- a/harbour/contrib/hbwin/hbwin.ch +++ b/harbour/contrib/hbwin/hbwin.ch @@ -220,6 +220,10 @@ #define WIN_FW_HEAVY 900 #define WIN_FW_BLACK WIN_FW_HEAVY +/* WIN_SETBKMODE() modes */ +#define WIN_TRANSPARENT 1 +#define WIN_OPAQUE 2 + /* Windows charset values (WIN_CREATEFONT()) */ #define WIN_ANSI_CHARSET 0 #define WIN_DEFAULT_CHARSET 1 diff --git a/harbour/contrib/hbwin/win_tprn.prg b/harbour/contrib/hbwin/win_tprn.prg index 6447e1b593..f2b3c6e856 100644 --- a/harbour/contrib/hbwin/win_tprn.prg +++ b/harbour/contrib/hbwin/win_tprn.prg @@ -109,8 +109,7 @@ CREATE CLASS WIN_PRN METHOD SetPos( nPosX, nPosY ) // **WARNING** : ( Col, Row ) _NOT_ ( Row, Col ) METHOD SetColor( nClrText, nClrPane, nAlign ) - METHOD SetBkMode( nMode ) // Set Background mode - // 1 == TRANSPARENT or 2 == OPAQUE + METHOD SetBkMode( nMode ) // Set Background mode: WIN_TRANSPARENT or WIN_OPAQUE METHOD TextOut( cString, lNewLine, lUpdatePosX, nAlign ) // nAlign : WIN_TA_* METHOD TextOutAt( nPosX, nPosY, cString, lNewLine, lUpdatePosX, nAlign ) // **WARNING** : ( Col, Row ) _NOT_ ( Row, Col )