From 4a4a54c434e86b26787c2066bc4d3e4335880bd0 Mon Sep 17 00:00:00 2001 From: Viktor Szakats Date: Fri, 5 Jun 2009 16:10:40 +0000 Subject: [PATCH] 2009-06-05 18:10 UTC+0200 Viktor Szakats (harbour.01 syenar.hu) * contrib/hbwin/wapi_winuser.c + Added WAPI_CREATEWINDOWEX() pure Windows API wrapper. --- harbour/ChangeLog | 4 ++++ harbour/contrib/hbwin/wapi_winuser.c | 23 +++++++++++++++++++++++ 2 files changed, 27 insertions(+) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index f454bb3288..540db9d02a 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -17,6 +17,10 @@ past entries belonging to author(s): Viktor Szakats. */ +2009-06-05 18:10 UTC+0200 Viktor Szakats (harbour.01 syenar.hu) + * contrib/hbwin/wapi_winuser.c + + Added WAPI_CREATEWINDOWEX() pure Windows API wrapper. + 2009-06-05 17:33 UTC+0200 Viktor Szakats (harbour.01 syenar.hu) * utils/hbmk2/hbmk2.prg * -debugstub internal switch will now echo the stub source diff --git a/harbour/contrib/hbwin/wapi_winuser.c b/harbour/contrib/hbwin/wapi_winuser.c index e4a7264adf..51a17993a3 100644 --- a/harbour/contrib/hbwin/wapi_winuser.c +++ b/harbour/contrib/hbwin/wapi_winuser.c @@ -68,6 +68,29 @@ HB_FUNC( WAPI_MESSAGEBOX ) HB_TCHAR_FREE( lpStr2 ); } +HB_FUNC( WAPI_CREATEWINDOWEX ) +{ + LPTSTR lpStr1 = HB_TCHAR_CONVTO( hb_parcx( 2 ) ); + LPTSTR lpStr2 = HB_TCHAR_CONVTO( hb_parcx( 3 ) ); + + hb_retptr( CreateWindowEx( + ( DWORD ) hb_parnl( 1 ) /* dwExStyle */, + ( LPCTSTR ) lpStr1 /* lpClassName */, + ( LPCTSTR ) lpStr2 /* lpWindowName */, + HB_ISNUM( 3 ) ? ( DWORD ) hb_parnl( 3 ) : WS_OVERLAPPEDWINDOW /* dwStyle */, + HB_ISNUM( 4 ) ? ( int ) hb_parni( 4 ) : ( int ) CW_USEDEFAULT /* x */, + HB_ISNUM( 5 ) ? ( int ) hb_parni( 5 ) : ( int ) CW_USEDEFAULT /* y */, + ( int ) hb_parni( 6 ) /* nWidth */, + ( int ) hb_parni( 7 ) /* nHeight */, + HB_ISPOINTER( 8 ) ? ( HWND ) hb_parptr( 8 ) : HWND_DESKTOP /* hWndParent */, + ( HMENU ) hb_parptr( 9 ) /* hMenu */, + ( HINSTANCE ) hb_parptr( 10 ) /* hInstance */, + ( LPVOID ) hb_parptr( 11 ) /* lpParam */ ) ); + + HB_TCHAR_FREE( lpStr1 ); + HB_TCHAR_FREE( lpStr2 ); +} + /*-----------------------------------------------------------------------/ BEGIN SCROLLBAR MANIPULATION WINAPI FUNCTIONS /-----------------------------------------------------------------------*/