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

*** empty log message ***

Browse Source
This commit is contained in:
Maurilio Longo
2001-08-24 14:16:41 +00:00
parent 2e3d4909a5
commit 17b94fa721
3 changed files with 12 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/contrib/os2pm/os2pm.c
View File

@@ -1,3 +1,7 @@
/*
* $Id$
*/
#define INCL_BASE
#define INCL_PM

3
harbour/contrib/os2pm/os2pm.ch
View File

@@ -1,3 +1,6 @@
/*
* $Id$
*/
#define _OS2EMX_H

10
harbour/contrib/os2pm/tform.prg
View File

@@ -26,7 +26,7 @@ METHOD New() CLASS TForm
// so we hide again the OS API details
WinRegisterClass( "HB_TFORM",;
nOr( CS_SIZEREDRAW, 0x2000001 ), 0 )
(CS_SIZEREDRAW + 0x2000001), 0 )
::lRegistered = .t.
endif
@@ -35,11 +35,11 @@ METHOD New() CLASS TForm
::hWnd = WinCreateStdWindow( HWND_DESKTOP,;
WS_VISIBLE,;
nOr( FCF_TITLEBAR, FCF_SYSMENU,;
FCF_SIZEBORDER, FCF_TASKLIST,;
FCF_MINMAX, FCF_SHELLPOSITION ),;
(FCF_TITLEBAR + FCF_SYSMENU +;
FCF_SIZEBORDER + FCF_TASKLIST +;
FCF_MINMAX + FCF_SHELLPOSITION ),;
"HB_TFORM", "Harbour TForm",;
nOr( WS_SYNCPAINT, WS_VISIBLE ),,,;
(WS_SYNCPAINT + WS_VISIBLE ),,,;
@hWndClient ) // Not used yet
return Self