pmwin.fi

来自「开放源码的编译器open watcom 1.6.0版的源代码」· FI 代码 · 共 2,118 行 · 第 1/5 页

c$noreference

c$ifdef INCL_WIN
c$define INCL_WINWINDOWMGR
c$define INCL_WINMESSAGEMGR
c$define INCL_WININPUT
c$define INCL_WINDIALOGS
c$define INCL_WINSTATICS
c$define INCL_WINBUTTONS
c$define INCL_WINENTRYFIELDS
c$define INCL_WINMLE
c$define INCL_WINLISTBOXES
c$define INCL_WINMENUS
c$define INCL_WINSCROLLBARS
c$define INCL_WINFRAMEMGR
c$define INCL_WINFRAMECTLS
c$define INCL_WINRECTANGLES
c$define INCL_WINSYS
c$define INCL_WINTIMER
c$define INCL_WINACCELERATORS
c$define INCL_WINTRACKRECT
c$define INCL_WINCLIPBOARD
c$define INCL_WINCURSORS
c$define INCL_WINPOINTERS
c$define INCL_WINHOOKS
c$define INCL_WINSWITCHLIST
c$define INCL_WINPROGRAMLIST
c$define INCL_WINSHELLDATA
c$define INCL_WINCOUNTRY
c$define INCL_WINHEAP
c$define INCL_WINATOM
c$define INCL_WINERRORS
c$define INCL_WINDDE
c$define INCL_WINHELP
c$define INCL_WINSEI
c$define INCL_WINLOAD
c$define INCL_WINTYPES
c$define INCL_WINDESKTOP
c$define INCL_WINPALETTE
c$define INCL_WINTHUNKAPI
c$define INCL_WINSTDDLGS
c$endif

c$ifdef INCL_WINMLE
c$ifndef INCL_WINENTRYFIELDS
c$define INCL_WINENTRYFIELDS
c$endif
c$endif

c$ifdef INCL_WINCOMMON
c$define INCL_WINWINDOWMGR
c$endif

c$ifdef INCL_ERRORS
c$define INCL_WINERRORS
c$endif

        integer  MPVOID
        parameter (MPVOID = 0)

        integer*4 MPFROMP

        integer*4 MPFROMHWND

        integer*4 MPFROMCHAR

        integer*4 MPFROMSHORT

        integer*4 MPFROM2SHORT

        integer*4 MPFROMSH2CH

        integer*4 MPFROMLONG

        integer*4 PVOIDFROMMP

        integer*4 HWNDFROMMP

        integer*1 CHAR1FROMMP

        integer*1 CHAR2FROMMP

        integer*1 CHAR3FROMMP

        integer*1 CHAR4FROMMP

        integer*4 SHORT1FROMMP

        integer*4 SHORT2FROMMP

        integer*4 LONGFROMMP

        integer*4 MRFROMMP

        integer*4 MRFROMSHORT

        integer*4 MRFROM2SHORT

        integer*4 MRFROMLONG

        integer*4 PVOIDFROMMR

        integer*4 SHORT1FROMMR

        integer*4 SHORT2FROMMR

        integer*4 LONGFROMMR

        integer  HWND_DESKTOP
        parameter (HWND_DESKTOP = 1)
        integer  HWND_OBJECT
        parameter (HWND_OBJECT = 2)

        integer  HWND_TOP
        parameter (HWND_TOP = 3)
        integer  HWND_BOTTOM
        parameter (HWND_BOTTOM = 4)

        integer  HWND_THREADCAPTURE
        parameter (HWND_THREADCAPTURE = 5)

        integer  WC_FRAME
        parameter (WC_FRAME = 'ffff0001'x)
        integer  WC_COMBOBOX
        parameter (WC_COMBOBOX = 'ffff0002'x)
        integer  WC_BUTTON
        parameter (WC_BUTTON = 'ffff0003'x)
        integer  WC_MENU
        parameter (WC_MENU = 'ffff0004'x)
        integer  WC_STATIC
        parameter (WC_STATIC = 'ffff0005'x)
        integer  WC_ENTRYFIELD
        parameter (WC_ENTRYFIELD = 'ffff0006'x)
        integer  WC_LISTBOX
        parameter (WC_LISTBOX = 'ffff0007'x)
        integer  WC_SCROLLBAR
        parameter (WC_SCROLLBAR = 'ffff0008'x)
        integer  WC_TITLEBAR
        parameter (WC_TITLEBAR = 'ffff0009'x)
        integer  WC_MLE
        parameter (WC_MLE = 'ffff000A'x)
        integer  WC_APPSTAT
        parameter (WC_APPSTAT = 'ffff0010'x)
        integer  WC_KBDSTAT
        parameter (WC_KBDSTAT = 'ffff0011'x)
        integer  WC_PECIC
        parameter (WC_PECIC = 'ffff0012'x)
        integer  WC_DBE_KKPOPUP
        parameter (WC_DBE_KKPOPUP = 'ffff0013'x)
        integer  WC_SPINBUTTON
        parameter (WC_SPINBUTTON = 'ffff0020'x)
        integer  WC_CONTAINER
        parameter (WC_CONTAINER = 'ffff0025'x)
        integer  WC_SLIDER
        parameter (WC_SLIDER = 'ffff0026'x)
        integer  WC_VALUESET
        parameter (WC_VALUESET = 'ffff0027'x)
        integer  WC_NOTEBOOK
        parameter (WC_NOTEBOOK = 'ffff0028'x)

        integer  WS_VISIBLE
        parameter (WS_VISIBLE = '80000000'x)
        integer  WS_DISABLED
        parameter (WS_DISABLED = '40000000'x)
        integer  WS_CLIPCHILDREN
        parameter (WS_CLIPCHILDREN = '20000000'x)
        integer  WS_CLIPSIBLINGS
        parameter (WS_CLIPSIBLINGS = '10000000'x)
        integer  WS_PARENTCLIP
        parameter (WS_PARENTCLIP = '08000000'x)
        integer  WS_SAVEBITS
        parameter (WS_SAVEBITS = '04000000'x)
        integer  WS_SYNCPAINT
        parameter (WS_SYNCPAINT = '02000000'x)
        integer  WS_MINIMIZED
        parameter (WS_MINIMIZED = '01000000'x)
        integer  WS_MAXIMIZED
        parameter (WS_MAXIMIZED = '00800000'x)
        integer  WS_ANIMATE
        parameter (WS_ANIMATE = '00400000'x)

        integer  WS_GROUP
        parameter (WS_GROUP = '00010000'x)
        integer  WS_TABSTOP
        parameter (WS_TABSTOP = '00020000'x)
        integer  WS_MULTISELECT
        parameter (WS_MULTISELECT = '00040000'x)

        integer  CS_MOVENOTIFY
        parameter (CS_MOVENOTIFY = '00000001'x)
        integer  CS_SIZEREDRAW
        parameter (CS_SIZEREDRAW = '00000004'x)
        integer  CS_HITTEST
        parameter (CS_HITTEST = '00000008'x)
        integer  CS_PUBLIC
        parameter (CS_PUBLIC = '00000010'x)
        integer  CS_FRAME
        parameter (CS_FRAME = '00000020'x)
        integer  CS_CLIPCHILDREN
        parameter (CS_CLIPCHILDREN = '20000000'x)
        integer  CS_CLIPSIBLINGS
        parameter (CS_CLIPSIBLINGS = '10000000'x)
        integer  CS_PARENTCLIP
        parameter (CS_PARENTCLIP = '08000000'x)
        integer  CS_SAVEBITS
        parameter (CS_SAVEBITS = '04000000'x)
        integer  CS_SYNCPAINT
        parameter (CS_SYNCPAINT = '02000000'x)

c$ifdef INCL_WINWINDOWMGR

        external WinRegisterClass
        integer*4 WinRegisterClass

        external WinDefWindowProc
        integer*4 WinDefWindowProc

        external WinDestroyWindow
        integer*4 WinDestroyWindow

        external WinShowWindow
        integer*4 WinShowWindow

        external WinQueryWindowRect
        integer*4 WinQueryWindowRect

        external WinGetPS
        integer*4 WinGetPS

        external WinReleasePS
        integer*4 WinReleasePS

        external WinEndPaint
        integer*4 WinEndPaint

        external WinGetClipPS
        integer*4 WinGetClipPS

        external WinIsWindowShowing
        integer*4 WinIsWindowShowing

        external WinBeginPaint
        integer*4 WinBeginPaint

        external WinOpenWindowDC
        integer*4 WinOpenWindowDC

        external WinScrollWindow
        integer*4 WinScrollWindow

        integer  PSF_LOCKWINDOWUPDATE
        parameter (PSF_LOCKWINDOWUPDATE = '00000001'x)
        integer  PSF_CLIPUPWARDS
        parameter (PSF_CLIPUPWARDS = '00000002'x)
        integer  PSF_CLIPDOWNWARDS
        parameter (PSF_CLIPDOWNWARDS = '00000004'x)
        integer  PSF_CLIPSIBLINGS
        parameter (PSF_CLIPSIBLINGS = '00000008'x)
        integer  PSF_CLIPCHILDREN
        parameter (PSF_CLIPCHILDREN = '00000010'x)
        integer  PSF_PARENTCLIP
        parameter (PSF_PARENTCLIP = '00000020'x)

        integer  SW_SCROLLCHILDREN
        parameter (SW_SCROLLCHILDREN = '00000001'x)
        integer  SW_INVALIDATERGN
        parameter (SW_INVALIDATERGN = '00000002'x)

        external WinFillRect
        integer*4 WinFillRect

        structure /QVERSDATA/
            integer*2 environment
            integer*2 version
        end structure

        integer  QV_OS2
        parameter (QV_OS2 = '00000000'x)
        integer  QV_CMS
        parameter (QV_CMS = '00000001'x)
        integer  QV_TSO
        parameter (QV_TSO = '00000002'x)
        integer  QV_TSOBATCH
        parameter (QV_TSOBATCH = '00000003'x)
        integer  QV_OS400
        parameter (QV_OS400 = '00000004'x)

        external WinQueryVersion
        integer*4 WinQueryVersion

        external WinInitialize
        integer*4 WinInitialize

        external WinTerminate
        integer*4 WinTerminate

        external WinQueryAnchorBlock
        integer*4 WinQueryAnchorBlock

c$endif

        external WinCreateWindow
        integer*4 WinCreateWindow

        external WinEnableWindow
        integer*4 WinEnableWindow

        external WinIsWindowEnabled
        integer*4 WinIsWindowEnabled

        external WinEnableWindowUpdate
        integer*4 WinEnableWindowUpdate

        external WinIsWindowVisible
        integer*4 WinIsWindowVisible

        external WinQueryWindowText
        integer*4 WinQueryWindowText

        external WinSetWindowText
        integer*4 WinSetWindowText

        external WinQueryWindowTextLength
        integer*4 WinQueryWindowTextLength

        external WinWindowFromID
        integer*4 WinWindowFromID

        external WinIsWindow
        integer*4 WinIsWindow

        external WinQueryWindow
        integer*4 WinQueryWindow

        external WinMultWindowFromIDs
        integer*4 WinMultWindowFromIDs

        integer  QW_NEXT
        parameter (QW_NEXT = 0)
        integer  QW_PREV
        parameter (QW_PREV = 1)
        integer  QW_TOP
        parameter (QW_TOP = 2)
        integer  QW_BOTTOM
        parameter (QW_BOTTOM = 3)
        integer  QW_OWNER
        parameter (QW_OWNER = 4)
        integer  QW_PARENT
        parameter (QW_PARENT = 5)
        integer  QW_NEXTTOP
        parameter (QW_NEXTTOP = 6)
        integer  QW_PREVTOP
        parameter (QW_PREVTOP = 7)
        integer  QW_FRAMEOWNER
        parameter (QW_FRAMEOWNER = 8)

        external WinSetParent
        integer*4 WinSetParent

        external WinIsChild
        integer*4 WinIsChild

        external WinSetOwner
        integer*4 WinSetOwner

        external WinQueryWindowProcess
        integer*4 WinQueryWindowProcess

        external WinQueryObjectWindow
        integer*4 WinQueryObjectWindow

        external WinQueryDesktopWindow
        integer*4 WinQueryDesktopWindow

        structure /SWP/
            integer*4 fl
            integer*4 cy
            integer*4 cx
            integer*4 y
            integer*4 x
            integer*4 hwndInsertBehind
            integer*4 hwnd
            integer*4 ulReserved1
            integer*4 ulReserved2
        end structure

        external WinSetWindowPos
        integer*4 WinSetWindowPos

        external WinSetMultWindowPos
        integer*4 WinSetMultWindowPos

        external WinQueryWindowPos
        integer*4 WinQueryWindowPos

        integer  AWP_MINIMIZED
        parameter (AWP_MINIMIZED = '00010000'x)
        integer  AWP_MAXIMIZED
        parameter (AWP_MAXIMIZED = '00020000'x)
        integer  AWP_RESTORED
        parameter (AWP_RESTORED = '00040000'x)
        integer  AWP_ACTIVATE
        parameter (AWP_ACTIVATE = '00080000'x)
        integer  AWP_DEACTIVATE
        parameter (AWP_DEACTIVATE = '00100000'x)

        integer  SWP_SIZE
        parameter (SWP_SIZE = '00000001'x)
        integer  SWP_MOVE
        parameter (SWP_MOVE = '00000002'x)
        integer  SWP_ZORDER
        parameter (SWP_ZORDER = '00000004'x)
        integer  SWP_SHOW
        parameter (SWP_SHOW = '00000008'x)
        integer  SWP_HIDE
        parameter (SWP_HIDE = '00000010'x)
        integer  SWP_NOREDRAW
        parameter (SWP_NOREDRAW = '00000020'x)
        integer  SWP_NOADJUST
        parameter (SWP_NOADJUST = '00000040'x)
        integer  SWP_ACTIVATE
        parameter (SWP_ACTIVATE = '00000080'x)
        integer  SWP_DEACTIVATE
        parameter (SWP_DEACTIVATE = '00000100'x)