From f8f8ef00b77a3e14a4cd4ea16c1f27b58eaafb03 Mon Sep 17 00:00:00 2001 From: Pritpal Bedi Date: Mon, 31 Aug 2009 00:24:33 +0000 Subject: [PATCH] 2009-08-30 17:25 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com) * contrib/hbwin/wapi_winuser.c + Added two more functions. --- harbour/ChangeLog | 4 ++++ harbour/contrib/hbwin/wapi_winuser.c | 10 ++++++++++ 2 files changed, 14 insertions(+) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 3288f6cf53..161c52b143 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -17,6 +17,10 @@ past entries belonging to author(s): Viktor Szakats. */ +2009-08-30 17:25 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com) + * contrib/hbwin/wapi_winuser.c + + Added two more functions. + 2009-08-30 17:15 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com) * contrib/gtwvg/gtwvg.c ! A small fix in caret handelling. Under certain circumstances, diff --git a/harbour/contrib/hbwin/wapi_winuser.c b/harbour/contrib/hbwin/wapi_winuser.c index 0c23022dd6..0fe853934d 100644 --- a/harbour/contrib/hbwin/wapi_winuser.c +++ b/harbour/contrib/hbwin/wapi_winuser.c @@ -310,3 +310,13 @@ HB_FUNC( WAPI_LOADBITMAP ) } #endif /*----------------------------------------------------------------------*/ +HB_FUNC( WAPI_GETACTIVEWINDOW ) +{ + hb_retptr( GetActiveWindow() ); +} +/*----------------------------------------------------------------------*/ +HB_FUNC( WAPI_SETACTIVEWINDOW ) +{ + hb_retptr( SetActiveWindow( wapi_par_HWND( 1 ) ) ); +} +/*----------------------------------------------------------------------*/