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

2009-06-05 18:10 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)

Browse Source 
* contrib/hbwin/wapi_winuser.c
    + Added WAPI_CREATEWINDOWEX() pure Windows API wrapper.
This commit is contained in:
Viktor Szakats
2009-06-05 16:10:40 +00:00
parent a0b9ad87d9
commit 4a4a54c434
2 changed files with 27 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -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

23
harbour/contrib/hbwin/wapi_winuser.c
View File

@@ -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
/-----------------------------------------------------------------------*/