OS/2 Shareware BBS: 10 Tools/10-Tools.zip/OS2BAS.ZIP/WINMAN1.BI

Text File | 1989-08-23 | 11.1 KB | 321 lines

'**************************************************************
'*
'* Include File: WinMan1.BI
'*
'* Requires:     none
'*
'* Description:  Window Manager Subsection part 1
'*               (much moved to PMBase.BI)
'*
'*************************************************************

'DECLARE FUNCTION WinRegisterClass%(BYVAL hab AS LONG,_
'                                   BYVAL pszClassName AS LONG,_
'                                   BYVAL pfnWndProc AS LONG,_
'                                   BYVAL flStyle AS LONG,_
'                                   BYVAL cbWindowData AS INTEGER)
'
'DECLARE FUNCTION WinDefWindowProc&(BYVAL hwnd AS LONG,_
'                                   BYVAL msg AS INTEGER,_
'                                   BYVAL mp1 AS LONG,_
'                                   BYVAL mp2 AS LONG)
'
'DECLARE FUNCTION WinDestroyWindow%(BYVAL hwnd AS LONG)
'

DECLARE FUNCTION WinShowWindow%(BYVAL hwnd AS LONG,_
                                BYVAL fShow AS INTEGER)

DECLARE FUNCTION WinQueryWindowRect%(BYVAL hwnd AS LONG,_
                                     BYVAL prclDest AS LONG)

DECLARE FUNCTION WinGetPS&(BYVAL hwnd AS LONG)

DECLARE FUNCTION WinReleasePS%(BYVAL hps AS LONG)

'DECLARE FUNCTION WinEndPaint%(BYVAL hps AS LONG)

DECLARE FUNCTION WinGetClipPS&(BYVAL hwnd AS LONG,_
                               BYVAL hwndClip AS LONG,_
                               BYVAL fs AS INTEGER)

'DECLARE FUNCTION WinBeginPaint&(BYVAL hwnd AS LONG,_
'                                BYVAL hps AS LONG,_
'                                BYVAL prclPaint AS LONG)

DECLARE FUNCTION WinOpenWindowDC&(BYVAL hwnd AS LONG)

DECLARE FUNCTION WinScrollWindow%(BYVAL hwnd AS LONG,_
                                  BYVAL dx AS INTEGER,_
                                  BYVAL dy AS INTEGER,_
                                  BYVAL prclScroll AS LONG,_
                                  BYVAL prclClip AS LONG,_
                                  BYVAL hrgnUpdate AS LONG,_
                                  BYVAL prclUpdate AS LONG,_
                                  BYVAL rgfsw AS INTEGER)

' WinGetClipPS() flags

CONST PSFLOCKWINDOWUPDATE    = &H0001
CONST PSFCLIPUPWARDS         = &H0002
CONST PSFCLIPDOWNWARDS       = &H0004
CONST PSFCLIPSIBLINGS        = &H0008
CONST PSFCLIPCHILDREN        = &H0010
CONST PSFPARENTCLIP          = &H0020


' WinScrollWindow() flags

CONST SWSCROLLCHILDREN   = &H0001
CONST SWINVALIDATERGN    = &H0002

'DECLARE FUNCTION WinFillRect%(BYVAL hps AS LONG,_
'                              BYVAL prcl AS LONG,_
'                              BYVAL lColor AS LONG)

' WinInitialize/WinTerminate Interface declarations

TYPE QVERSDATA
    environment AS INTEGER
    version AS INTEGER
END TYPE

CONST QVOS2          = &H0000
CONST QVCMS          = &H0001
CONST QVTSO          = &H0002
CONST QVTSOBATCH     = &H0003


DECLARE FUNCTION WinQueryVersion&(BYVAL hab AS LONG)

'DECLARE FUNCTION WinInitialize&(BYVAL ushort AS INTEGER)

'DECLARE FUNCTION WinTerminate%(BYVAL hab AS LONG)


'*****************  End of Window Manager COMMON section *****************


DECLARE FUNCTION WinCreateWindow&(BYVAL hwndParent AS LONG,_
                                  BYVAL pszClass AS LONG,_
                                  BYVAL pszName AS LONG,_
                                  BYVAL flStyle AS LONG,_
                                  BYVAL x AS INTEGER,_
                                  BYVAL y AS INTEGER,_
                                  BYVAL cx AS INTEGER,_
                                  BYVAL cy AS INTEGER,_
                                  BYVAL hwndOwner AS LONG,_
                                  BYVAL hwndInsertBehind AS LONG,_
                                  BYVAL id AS INTEGER,_
                                  BYVAL pCtlData AS LONG,_
                                  BYVAL pPresParams AS LONG)

DECLARE FUNCTION WinEnableWindow%(BYVAL hwnd AS LONG,_
                                  BYVAL fEnable AS INTEGER)

DECLARE FUNCTION WinIsWindowEnabled%(BYVAL hwnd AS LONG)

DECLARE FUNCTION WinEnableWindowUpdate%(BYVAL hwnd AS LONG,_
                                        BYVAL fEnable AS INTEGER)

DECLARE FUNCTION WinIsWindowVisible%(BYVAL hwnd AS LONG)
DECLARE FUNCTION WinQueryWindowText%(BYVAL hwnd AS LONG,_
                                     BYVAL cchBufferMax AS INTEGER,_
                                     BYVAL pchBuffer AS LONG)

DECLARE FUNCTION WinSetWindowText%(BYVAL hwnd AS LONG,_
                                   BYVAL pszText AS LONG)
DECLARE FUNCTION WinQueryWindowTextLength%(BYVAL hwnd AS LONG)
DECLARE FUNCTION WinWindowFromID&(BYVAL hwndParent AS LONG,_
                                  BYVAL id AS INTEGER)

DECLARE FUNCTION WinIsWindow%(BYVAL hab AS LONG,_
                              BYVAL hwnd AS LONG)

DECLARE FUNCTION WinQueryWindow&(BYVAL hwnd AS LONG,_
                                 BYVAL cmd AS INTEGER,_
                                 BYVAL fLock AS INTEGER)

DECLARE FUNCTION WinMultWindowFromIDs%(BYVAL hwndParent AS LONG,_
                                       BYVAL prghwnd AS LONG,_
                                       BYVAL idFirst AS INTEGER,_
                                       BYVAL idLast AS INTEGER)

' WinQueryWindow() codes

CONST QWNEXT     =0
CONST QWPREV     =1
CONST QWTOP      =2
CONST QWBOTTOM   =3
CONST QWOWNER    =4
CONST QWPARENT   =5
CONST QWNEXTTOP  =6
CONST QWPREVTOP  =7
CONST QWFRAMEOWNER  =8


DECLARE FUNCTION WinSetParent%(BYVAL hwnd AS LONG,_
                               BYVAL hwndNewParent AS LONG,_
                               BYVAL fRedraw AS INTEGER)

DECLARE FUNCTION WinIsChild%(BYVAL hwnd AS LONG,_
                             BYVAL hwndParent AS LONG)

DECLARE FUNCTION WinSetOwner%(BYVAL hwnd AS LONG,_
                              BYVAL hwndNewOwner AS LONG)

DECLARE FUNCTION WinQueryWindowProcess%(BYVAL hwnd AS LONG,_
                                        BYVAL ppid AS LONG,_
                                        BYVAL ptid AS LONG)

DECLARE FUNCTION WinQueryObjectWindow&(BYVAL hwndDesktop AS LONG)

DECLARE FUNCTION WinQueryDesktopWindow&(BYVAL hab AS LONG,_
                                        BYVAL hdc AS LONG)

'** Window positioning functions

' WinSetMultWindowPos() structure

TYPE SWP
    fs AS INTEGER
    cy AS INTEGER
    cx AS INTEGER
    y AS INTEGER
    x AS INTEGER
    hwndInsertBehind AS LONG
    hwnd AS LONG
END TYPE

DECLARE FUNCTION WinSetWindowPos%(BYVAL hwnd AS LONG,_
                                  BYVAL hwndInsertBehind AS LONG,_
                                  BYVAL x AS INTEGER,_
                                  BYVAL y AS INTEGER,_
                                  BYVAL cx AS INTEGER,_
                                  BYVAL cy AS INTEGER,_
                                  BYVAL fs AS INTEGER)

DECLARE FUNCTION WinQueryWindowPos%(BYVAL hwnd AS LONG,_
                                    BYVAL pswp AS LONG)

DECLARE FUNCTION WinSetMultWindowPos%(BYVAL hab AS LONG,_
                                      BYVAL pswp AS LONG,_
                                      BYVAL cswp AS INTEGER)

' WinSetWindowPos() flags

CONST SWPSIZE        = &H0001
CONST SWPMOVE        = &H0002
CONST SWPZORDER      = &H0004
CONST SWPSHOW        = &H0008
CONST SWPHIDE        = &H0010
CONST SWPNOREDRAW    = &H0020
CONST SWPNOADJUST    = &H0040
CONST SWPACTIVATE    = &H0080
CONST SWPDEACTIVATE  = &H0100
CONST SWPEXTSTATECHANGE  = &H0200
CONST SWPMINIMIZE    = &H0400
CONST SWPMAXIMIZE    = &H0800
CONST SWPRESTORE     = &H1000
CONST SWPFOCUSACTIVATE   = &H2000
CONST SWPFOCUSDEACTIVATE = &H4000

' Window painting

DECLARE FUNCTION WinUpdateWindow%(BYVAL hwnd AS LONG)

DECLARE FUNCTION WinInvalidateRect%(BYVAL hwnd AS LONG,_
                                    BYVAL pwrc AS LONG,_
                                    BYVAL fIncludeChildren AS INTEGER)

DECLARE FUNCTION WinInvalidateRegion%(BYVAL hwnd AS LONG,_
                                      BYVAL hrgn AS LONG,_
                                      BYVAL fIncludeChildren AS INTEGER)


' Drawing helpers

DECLARE FUNCTION WinInvertRect%(BYVAL hps AS LONG,_
                                BYVAL prcl AS LONG)

DECLARE FUNCTION WinDrawBitmap%(BYVAL hpsDst AS LONG,_
                                BYVAL hbm AS LONG,_
                                BYVAL pwrcSrc AS LONG,_
                                BYVAL pptlDst AS LONG,_
                                BYVAL clrFore AS LONG,_
                                BYVAL clrBack AS LONG,_
                                BYVAL fs AS INTEGER)

' WinDrawBitmap() flags

CONST DBMNORMAL      = &H0000
CONST DBMINVERT      = &H0001
CONST DBMHALFTONE    = &H0002
CONST DBMSTRETCH     = &H0004
CONST DBMIMAGEATTRS    = &H0008


DECLARE FUNCTION WinDrawText%(BYVAL hps AS LONG,_
                              BYVAL cchText AS INTEGER,_
                              BYVAL lpchText AS LONG,_
                              BYVAL prcl AS LONG,_
                              BYVAL clrFore AS LONG,_
                              BYVAL clrBack AS LONG,_
                              BYVAL rgfCmd AS INTEGER)
'
' * WinDrawText() codes:
' * From DTLEFT to DTEXTERNALLEADING, the codes are designed to be OR'ed with
' * SSTEXT to create variations of the basic text static item.
'
CONST DTLEFT             = &H0000
CONST DTEXTERNALLEADING  = &H0080
CONST DTCENTER           = &H0100
CONST DTRIGHT            = &H0200
CONST DTTOP              = &H0000
CONST DTVCENTER          = &H0400
CONST DTBOTTOM           = &H0800
CONST DTHALFTONE         = &H1000
CONST DTMNEMONIC         = &H2000
CONST DTWORDBREAK        = &H4000
CONST DTERASERECT        = &H8000
CONST DTQUERYEXTENT      = &H0002
CONST DTTEXTATTRS        = &H0040


DECLARE FUNCTION WinDrawBorder%(BYVAL hps AS LONG,_
                                BYVAL prcl AS LONG,_
                                BYVAL cx AS INTEGER,_
                                BYVAL cy AS INTEGER,_
                                BYVAL clrFore AS LONG,_
                                BYVAL clrBack AS LONG,_
                                BYVAL rgfCmd AS INTEGER)

' WinDrawBorder() flags

CONST DBPATCOPY          = &H0000
CONST DBPATINVERT        = &H0001
CONST DBDESTINVERT       = &H0002
CONST DBAREAMIXMODE      = &H0003

CONST DBROP              = &H0007
CONST DBINTERIOR         = &H0008
CONST DBAREAATTRS        = &H0010
CONST DBSTANDARD         = &H0100
CONST DBDLGBORDER        = &H0200



'* Resource loading functions

DECLARE FUNCTION WinLoadString%(BYVAL hab AS LONG,_
                                BYVAL hmod AS INTEGER,_
                                BYVAL id AS INTEGER,_
                                BYVAL cchMax AS INTEGER,_
                                BYVAL pchBuffer AS LONG)

DECLARE FUNCTION WinLoadMessage%(BYVAL hab AS LONG,_
                                 BYVAL hmod AS INTEGER,_
                                 BYVAL id AS INTEGER,_
                                 BYVAL cchMax AS INTEGER,_
                                 BYVAL pchBuffer AS LONG)