able/windows-nt
1
0
Fork 0
Code Issues Pull requests Projects Releases Wiki Activity
windows-nt/Source/XPSP1/NT/base/mvdm/wow16/user/msglayer.inc

1162 lines
24 KiB
PHP
Raw Normal View History

Add source files
2020-09-26 03:20:57 -05:00
;==========================================================================
;
; Message validation layer include file
;
;- Where applicable, i've specified a class id. as a param. to the MESSAGE
; macro. For others (WM_ messages), i've specified the ID "COMMON".
;
;- For messages meaningful only to controls having a particular style, i've
; added an option to the MESSAGE macro:
;
; <MLCONLY> for messages applicable to ES_MULTILINE edit controls
; <OWNERDRAWVARONLY> " " " " LBS_OWNERDRAWVARIABLE listboxes
; <MULTISELONLY> " " " " LBS_MULTIPLESEL listboxes
; <MULTICOLONLY> " " " " LBS_MULTICOLUMN listboxes
;
;
; Generic message IDs
;
WM_NULL equ 0000h
WM_CREATE equ 0001h
WM_DESTROY equ 0002h
WM_MOVE equ 0003h
WM_SIZEWAIT equ 0004h ;Internal
WM_SIZE equ 0005h
WM_ACTIVATE equ 0006h
WM_SETFOCUS equ 0007h
WM_KILLFOCUS equ 0008h
WM_SETVISIBLE equ 0009h ;Internal
WM_ENABLE equ 000Ah
WM_SETREDRAW equ 000Bh
WM_SETTEXT equ 000Ch
WM_GETTEXT equ 000Dh
WM_GETTEXTLENGTH equ 000Eh
WM_PAINT equ 000Fh
WM_CLOSE equ 0010h
WM_QUERYENDSESSION equ 0011h
WM_QUIT equ 0012h
WM_QUERYOPEN equ 0013h
WM_ERASEBKGND equ 0014h
WM_SYSCOLORCHANGE equ 0015h
WM_ENDSESSION equ 0016h
WM_SYSTEMERROR equ 0017h ;Internal
WM_SHOWWINDOW equ 0018h
WM_CTLCOLOR equ 0019h
WM_WININICHANGE equ 001Ah
WM_DEVMODECHANGE equ 001Bh
WM_ACTIVATEAPP equ 001Ch
WM_FONTCHANGE equ 001Dh
WM_TIMECHANGE equ 001Eh
WM_CANCELMODE equ 001Fh
WM_SETCURSOR equ 0020h
WM_MOUSEACTIVATE equ 0021h
WM_CHILDACTIVATE equ 0022h
WM_QUEUESYNC equ 0023h
WM_GETMINMAXINFO equ 0024h
WM_PAINTICON equ 0026h
WM_ICONERASEBKGND equ 0027h
WM_NEXTDLGCTL equ 0028h
WM_ALTTABACTIVE equ 0029h ;Internal
WM_SPOOLERSTATUS equ 002Ah
WM_DRAWITEM equ 002Bh
WM_MEASUREITEM equ 002Ch
WM_DELETEITEM equ 002Dh
WM_VKEYTOITEM equ 002Eh
WM_CHARTOITEM equ 002Fh
WM_SETFONT equ 0030h
WM_GETFONT equ 0031h
WM_SETHOTKEY equ 0032h
WM_GETHOTKEY equ 0033h
WM_FILESYSCHANGE equ 0034h ;Internal
WM_ISACTIVEICON equ 0035h ;Internal
;WM_UNUSED0036 equ 0036h ;Internal
WM_QUERYDRAGICON equ 0037h
WM_COMPAREITEM equ 0039h
WM_TESTING equ 0040h ;Internal
WM_COMPACTING equ 0041h
;WM_UNUSED equ 0042h
;WM_UNUSED equ 0043h
WM_COMMNOTIFY equ 0044h
;WM_UNUSED equ 0045h
WM_WINDOWPOSCHANGING equ 0046h
WM_WINDOWPOSCHANGED equ 0047h
WM_POWER equ 0048h
WM_NCCREATE equ 0081h
WM_NCDESTROY equ 0082h
WM_NCCALCSIZE equ 0083h
WM_NCHITTEST equ 0084h
WM_NCPAINT equ 0085h
WM_NCACTIVATE equ 0086h
WM_GETDLGCODE equ 0087h
WM_SYNCPAINT equ 0088h ;Internal
WM_SYNCTASK equ 0089h ;Internal
WM_NCMOUSEMOVE equ 00A0h
WM_NCLBUTTONDOWN equ 00A1h
WM_NCLBUTTONUP equ 00A2h
WM_NCLBUTTONDBLCLK equ 00A3h
WM_NCRBUTTONDOWN equ 00A4h
WM_NCRBUTTONUP equ 00A5h
WM_NCRBUTTONDBLCLK equ 00A6h
WM_NCMBUTTONDOWN equ 00A7h
WM_NCMBUTTONUP equ 00A8h
WM_NCMBUTTONDBLCLK equ 00A9h
WM_KEYFIRST equ 0100h
WM_KEYDOWN equ 0100h
WM_KEYUP equ 0101h
WM_CHAR equ 0102h
WM_DEADCHAR equ 0103h
WM_SYSKEYDOWN equ 0104h
WM_SYSKEYUP equ 0105h
WM_SYSCHAR equ 0106h
WM_SYSDEADCHAR equ 0107h
WM_YOMICHAR equ 0108h ;Internal
WM_KEYLAST equ 0108h
WM_CONVERTREQUEST equ 010Ah ;Internal
WM_CONVERTRESULT equ 010Bh ;Internal
WM_INITDIALOG equ 0110h
WM_COMMAND equ 0111h
WM_SYSCOMMAND equ 0112h
WM_TIMER equ 0113h
WM_HSCROLL equ 0114h
WM_VSCROLL equ 0115h
WM_INITMENU equ 0116h
WM_INITMENUPOPUP equ 0117h
WM_SYSTIMER equ 0118h ;Internal
WM_MENUSELECT equ 011Fh
WM_MENUCHAR equ 0120h
WM_ENTERIDLE equ 0121h
WM_LBTRACKPOINT equ 0131h ;Internal
WM_MOUSEFIRST equ 0200h
WM_MOUSEMOVE equ 0200h
WM_LBUTTONDOWN equ 0201h
WM_LBUTTONUP equ 0202h
WM_LBUTTONDBLCLK equ 0203h
WM_RBUTTONDOWN equ 0204h
WM_RBUTTONUP equ 0205h
WM_RBUTTONDBLCLK equ 0206h
WM_MBUTTONDOWN equ 0207h
WM_MBUTTONUP equ 0208h
WM_MBUTTONDBLCLK equ 0209h
WM_MOUSELAST equ 0209h
WM_PARENTNOTIFY equ 0210h
WM_ENTERMENULOOP equ 0211h ;Internal
WM_EXITMENULOOP equ 0212h ;Internal
WM_NEXTMENU equ 0213h ;Internal
WM_MDICREATE equ 0220h
WM_MDIDESTROY equ 0221h
WM_MDIACTIVATE equ 0222h
WM_MDIRESTORE equ 0223h
WM_MDINEXT equ 0224h
WM_MDIMAXIMIZE equ 0225h
WM_MDITILE equ 0226h
WM_MDICASCADE equ 0227h
WM_MDIICONARRANGE equ 0228h
WM_MDIGETACTIVE equ 0229h
WM_DROPOBJECT equ 022Ah ;Internal
WM_QUERYDROPOBJECT equ 022Bh ;Internal
WM_BEGINDRAG equ 022Ch ;Internal
WM_DRAGLOOP equ 022Dh ;Internal
WM_DRAGSELECT equ 022Eh ;Internal
WM_DRAGMOVE equ 022Fh ;Internal
WM_MDISETMENU equ 0230h
WM_ENTERSIZEMOVE equ 0231h ;Internal
WM_EXITSIZEMOVE equ 0232h ;Internal
WM_DROPFILES equ 0233h
WM_KANJIFIRST equ 0280h ;Internal
WM_KANJILAST equ 029Fh ;Internal
WM_CUT equ 0300h
WM_COPY equ 0301h
WM_PASTE equ 0302h
WM_CLEAR equ 0303h
WM_UNDO equ 0304h
WM_RENDERFORMAT equ 0305h
WM_RENDERALLFORMATS equ 0306h
WM_DESTROYCLIPBOARD equ 0307h
WM_DRAWCLIPBOARD equ 0308h
WM_PAINTCLIPBOARD equ 0309h
WM_VSCROLLCLIPBOARD equ 030Ah
WM_SIZECLIPBOARD equ 030Bh
WM_ASKCBFORMATNAME equ 030Ch
WM_CHANGECBCHAIN equ 030Dh
WM_HSCROLLCLIPBOARD equ 030Eh
WM_QUERYNEWPALETTE equ 030Fh
WM_PALETTEGONNACHANGE equ 0310h ;Internal
WM_PALETTEISCHANGING equ 0310h
WM_CHANGEPALETTE equ 0311h ;Internal
WM_PALETTECHANGED equ 0311h
WM_PENWINFIRST equ 0380h
WM_PENWINLAST equ 038Fh
WM_INTERNAL_COALESCE_FIRST equ 0390h ;Internal
WM_COALESCE_FIRST equ 0390h
WM_COALESCE_LAST equ 039Fh
WM_MM_RESERVED_FIRST equ 03A0h ;Internal
WM_MM_RESERVED_LAST equ 03DFh ;Internal
WM_INTERNAL_COALESCE_LAST equ (WM_MM_RESERVED_FIRST+16) ;Internal
WM_INTERNAL_DDE_FIRST equ 03E0h ;Internal
WM_INTERNAL_DDE_LAST equ 03EFh ;Internal
WM_CBT_RESERVED_FIRST equ 03F0h ;Internal
WM_CBT_RESERVED_LAST equ 03FFh ;Internal
WM_USER equ 0400h
; Edit control messages
EM_GETSEL equ (WM_USER+0)
EM_SETSEL equ (WM_USER+1)
EM_GETRECT equ (WM_USER+2)
EM_SETRECT equ (WM_USER+3)
EM_SETRECTNP equ (WM_USER+4)
EM_SCROLL equ (WM_USER+5)
EM_LINESCROLL equ (WM_USER+6)
EM_GETMODIFY equ (WM_USER+8)
EM_SETMODIFY equ (WM_USER+9)
EM_GETLINECOUNT equ (WM_USER+10)
EM_LINEINDEX equ (WM_USER+11)
EM_SETHANDLE equ (WM_USER+12)
EM_GETHANDLE equ (WM_USER+13)
EM_GETTHUMB equ (WM_USER+14)
EM_LINELENGTH equ (WM_USER+17)
EM_REPLACESEL equ (WM_USER+18)
EM_SETFONT equ (WM_USER+19)
EM_GETLINE equ (WM_USER+20)
EM_LIMITTEXT equ (WM_USER+21)
EM_CANUNDO equ (WM_USER+22)
EM_UNDO equ (WM_USER+23)
EM_FMTLINES equ (WM_USER+24)
EM_LINEFROMCHAR equ (WM_USER+25)
EM_SETWORDBREAK equ (WM_USER+26)
EM_SETTABSTOPS equ (WM_USER+27)
EM_SETPASSWORDCHAR equ (WM_USER+28)
EM_EMPTYUNDOBUFFER equ (WM_USER+29)
EM_GETFIRSTVISIBLELINE equ (WM_USER+30)
EM_SETREADONLY equ (WM_USER+31)
EM_SETWORDBREAKPROC equ (WM_USER+32)
EM_GETWORDBREAKPROC equ (WM_USER+33)
EM_GETPASSWORDCHAR equ (WM_USER+34)
EM_MSGMAX equ (WM_USER+35)
; Button control messages
BM_GETCHECK equ (WM_USER+0)
BM_SETCHECK equ (WM_USER+1)
BM_GETSTATE equ (WM_USER+2)
BM_SETSTATE equ (WM_USER+3)
BM_SETSTYLE equ (WM_USER+4)
; Static control messages
STM_SETICON equ (WM_USER+0)
STM_GETICON equ (WM_USER+1)
STM_MSGMAX equ (WM_USER+2)
; Dialog box messages
DM_GETDEFID equ (WM_USER+0)
DM_SETDEFID equ (WM_USER+1)
; Listbox messages
LB_ADDSTRING equ (WM_USER+1)
LB_INSERTSTRING equ (WM_USER+2)
LB_DELETESTRING equ (WM_USER+3)
LB_RESETCONTENT equ (WM_USER+5)
LB_SETSEL equ (WM_USER+6)
LB_SETCURSEL equ (WM_USER+7)
LB_GETSEL equ (WM_USER+8)
LB_GETCURSEL equ (WM_USER+9)
LB_GETTEXT equ (WM_USER+10)
LB_GETTEXTLEN equ (WM_USER+11)
LB_GETCOUNT equ (WM_USER+12)
LB_SELECTSTRING equ (WM_USER+13)
LB_DIR equ (WM_USER+14)
LB_GETTOPINDEX equ (WM_USER+15)
LB_FINDSTRING equ (WM_USER+16)
LB_GETSELCOUNT equ (WM_USER+17)
LB_GETSELITEMS equ (WM_USER+18)
LB_SETTABSTOPS equ (WM_USER+19)
LB_GETHORIZONTALEXTENT equ (WM_USER+20)
LB_SETHORIZONTALEXTENT equ (WM_USER+21)
LB_SETCOLUMNWIDTH equ (WM_USER+22)
LB_ADDFILE equ (WM_USER+23) ;Internal
LB_SETTOPINDEX equ (WM_USER+24)
LB_GETITEMRECT equ (WM_USER+25)
LB_GETITEMDATA equ (WM_USER+26)
LB_SETITEMDATA equ (WM_USER+27)
LB_SELITEMRANGE equ (WM_USER+28)
LB_SETANCHORINDEX equ (WM_USER+29) ;Internal
LB_GETANCHORINDEX equ (WM_USER+30) ;Internal
LB_SETCARETINDEX equ (WM_USER+31)
LB_GETCARETINDEX equ (WM_USER+32)
LB_SETITEMHEIGHT equ (WM_USER+33)
LB_GETITEMHEIGHT equ (WM_USER+34)
LB_FINDSTRINGEXACT equ (WM_USER+35)
LBCB_CARETON equ (WM_USER+36) ;Internal
LBCB_CARETOFF equ (WM_USER+37) ;Internal
LB_MSGMAX equ (WM_USER+38)
; Combo box messages
CB_GETEDITSEL equ (WM_USER+0)
CB_LIMITTEXT equ (WM_USER+1)
CB_SETEDITSEL equ (WM_USER+2)
CB_ADDSTRING equ (WM_USER+3)
CB_DELETESTRING equ (WM_USER+4)
CB_DIR equ (WM_USER+5)
CB_GETCOUNT equ (WM_USER+6)
CB_GETCURSEL equ (WM_USER+7)
CB_GETLBTEXT equ (WM_USER+8)
CB_GETLBTEXTLEN equ (WM_USER+9)
CB_INSERTSTRING equ (WM_USER+10)
CB_RESETCONTENT equ (WM_USER+11)
CB_FINDSTRING equ (WM_USER+12)
CB_SELECTSTRING equ (WM_USER+13)
CB_SETCURSEL equ (WM_USER+14)
CB_SHOWDROPDOWN equ (WM_USER+15)
CB_GETITEMDATA equ (WM_USER+16)
CB_SETITEMDATA equ (WM_USER+17)
CB_GETDROPPEDCONTROLRECT equ (WM_USER+18)
CB_SETITEMHEIGHT equ (WM_USER+19)
CB_GETITEMHEIGHT equ (WM_USER+20)
CB_SETEXTENDEDUI equ (WM_USER+21)
CB_GETEXTENDEDUI equ (WM_USER+22)
CB_GETDROPPEDSTATE equ (WM_USER+23)
CB_FINDSTRINGEXACT equ (WM_USER+24)
CB_MSGMAX equ (WM_USER+25)
; DDE messages
WM_DDE_FIRST equ 03E0h
WM_DDE_INITIATE equ (WM_DDE_FIRST)
WM_DDE_TERMINATE equ (WM_DDE_FIRST+1)
WM_DDE_ADVISE equ (WM_DDE_FIRST+2)
WM_DDE_UNADVISE equ (WM_DDE_FIRST+3)
WM_DDE_ACK equ (WM_DDE_FIRST+4)
WM_DDE_DATA equ (WM_DDE_FIRST+5)
WM_DDE_REQUEST equ (WM_DDE_FIRST+6)
WM_DDE_POKE equ (WM_DDE_FIRST+7)
WM_DDE_EXECUTE equ (WM_DDE_FIRST+8)
WM_DDE_LAST equ (WM_DDE_FIRST+8)
;==================================================
VLmopen = 0
VLmpoff = 0
VLmname equ <>
VLmcont equ <>
DGROUP group _DATA
sBegin DATA
assume ds:_DATA
;extrn atomSysClass:word
sEnd DATA
ExternFP IsMenu
IFNDEF WOW
ExternFP IsGDIObject
ENDIF
ExternFP IsWindow
MESSAGE_START macro seg
_SwitchSeg <seg>,%VLseg
IFNDEF WOW
ExternNP VHWND&seg
ExternNP VHWND0&seg
ExternNP VHMENU&seg
ExternNP VHMENU0&seg
ExternNP GHANDLE&seg
ExternNP GHANDLE0&seg
ENDIF
ExternNP LP&seg
ExternNP LP0&seg
ExternNP CLP&seg
ExternNP CLP0&seg
ExternNP LPFN&seg
ExternNP LPFN0&seg
ExternNP CLPSZ&seg
ExternNP CLPSZ0&seg
ExternNP Inval_Param_&seg
hwnd equ <[bp].0eh>
msg equ <[bp].0ch>
wParam equ <[bp].0ah>
lParam equ <dword ptr [bp]+06h>
;cProc ValidateMessage,<FAR, PUBLIC>
;ParmW hwnd
;ParmW msg
;ParmW wParam
;ParmD lParam
;cBegin
public ValidateMessage
ValidateMessage proc far
push bp
mov bp,sp
push offset VM_ERROR ; push error handler address
IFNDEF WOW
mov bx,hwnd ; validate the window handle
lcall VHWND
ENDIF
mov ax,msg
cmp ax,WM_USER
jb VM_COMMON
jmp SHORT VM_VALID ;
IFNDEF WOW
mov bx,_DATA
mov es,bx
assume es:_DATA
mov bx,hwnd ; ax = hwnd->pcls->atomClassName
mov bx,es:[bx].wndPcls
mov ax,es:[bx].uclsAtomClassName
mov cx,ICLS_CTL_MAX ; look up the class name
push di ; in the atomSysClass array
mov di,offset DGROUP:atomSysClass+(ICLS_CTL_MAX-1)*2
std
repnz scasw
pop di
cld
jnz VM_VALID ; Not special window class: just return.
mov bx,cx ; cx has ICLS index
add bx,bx
mov ax,msg
jmp word ptr cs:vmjump[bx]
ENDIF
VM_VALID:
mov ax,1 ; return TRUE
VM_EXIT:
pop dx ; strip off error handler address
assume es:NOTHING
pop bp
VM_ERROR:
retf 2+2+2+4 ; error handler jmps here, with clean stack
ValidateMessage endp
;
; NOTE: The order of the following jump table is dependent
; on the order of the ICLS_* values defined in user.h
;
IFNDEF WOW
vmjump:
dw VM_BUTTON
errnz <ICLS_BUTTON-0>
dw VM_EDIT
errnz <ICLS_EDIT-1>
dw VM_STATIC
errnz <ICLS_STATIC-2>
dw VM_LISTBOX
errnz <ICLS_LISTBOX-3>
dw VM_VALID ; No scrollbar messages
errnz <ICLS_SCROLLBAR-4>
dw VM_COMBOBOX
errnz <ICLS_COMBOBOX-5>
ENDIF
endm ; MESSAGE_START
MESSAGE_END macro
if VLmopen
ENDMESSAGE
endif
sEnd %VLseg
endm
;
; MESSAGE - begins a structure declaration
;
MESSAGE macro name,opts
if VLmopen
ENDMESSAGE
endif
VLmopen=1
VLmpoff = 4
VLmjmp = 0
_MOpts <opts>
concat VLmcont,<VLm>,name
concat VLmname,name
VLcbstruct = 0
endm
_MOpts macro opts
VLnogen = 0
VLnogenparm = 0
irp opt,<opts>
ifidni <opt>,<NOGEN>
VLnogen = 1
endif
ifidni <opt>,<DEBUGONLY>
ifndef DEBUG
VLnogen = 1
endif
endif
ifidni <opt>,<POSTED>
endif
ifidni <opt>,<INTERNAL>
endif
endm
VLgen = 0
endm
;
; ENDMESSAGE - Terminates a message declaration
;
ENDMESSAGE macro
VLmopen = 0
ife VLmjmp
;_print <Nothing to validate for >,%VLmname
else
jmp VM_VALID
endif
irp label,<VLmcont>
label:
endm
endm
;
; MESSAGE_CLASS - Announce
;
MESSAGE_CLASS macro cls
VM_&cls:
endm
MESSAGE_CLASS_END macro
if VLmopen
ENDMESSAGE
endif
jmp VM_VALID
endm
_FlsMJmp2 macro name
public PV_&name
PV_&name:
endm
_FlsMJmp macro
ife VLmjmp
_FlsMJmp2 %VLmname
cmp ax,VLmname
jnz VLmcont
VLmjmp = 1
endif
endm
;
; Increment mpOff: 4 -> 0 -> 2
;
_IncMpOff macro size
ife VLmpoff-99
_print <Too many message parameters>
errnz 1
else
ife size-2
ife VLmpoff-4
VLmpoff = 0
else
ife VLmpoff-0
VLmpoff = 2
else
VLmpoff = 99
endif
endif
else
ife VLmpoff-4
_print <First message parameter must be 16 bits>
errnz 1
else
ife VLmpoff-0
VLmpoff = 99
else
_print <Too many message parameters>
errnz 1
endif
endif
endif
endif
endm
;
;
;
_GenMP macro name,size,opts
VLnogenparm = 0
irp opt,<opts>
ifidni opt,<NOGEN>
VLnogenparm = 1
endif
ifidni opt,<DEBUGONLY>
ifndef DEBUG
VLnogenparm = 1
endif
endif
endm
VLgen = 1
if VLnogenparm or VLnogen
VLgen = 0
endif
concat _P_&name,<[bp]+2+4+>,%VLmpoff
_IncMpOff size
endm
;
; Message parameter macros
;
MP_2 macro name,opts
_GenMP <name>,2,<opts>
endm
MP_4 macro name,opts
_GenMP <name>,4,<opts>
endm
MP_WMBZ macro name,opts
_GenMP <name>,2,<opts>
if VLgen
ifdef DEBUG
_FlsMJmp
mov ax,_P_&name
or ax,ax
jz @F
mov bx,ERR_BAD_VALUE or ERR_WARNING
lcall Inval_Param_
@@:
endif
endif
endm
MP_LMBZ macro name,opts
_GenMP <name>,4,<opts>
if VLgen
ifdef DEBUG
_FlsMJmp
mov bx,_P_&name
mov cx,_P_&name+2
or bx,cx
jz @F
mov ax,_P_&name
mov bx,ERR_BAD_DVALUE or ERR_WARNING
lcall Inval_Param_
@@:
endif ; DEBUG
endif
endm
; Simple types
MP_int equ <MP_2>
MP_BOOL equ <MP_2>
MP_LONG equ <MP_4>
MP_DWORD equ <MP_4>
MP_WORD equ <MP_2>
MP_POINT equ <MP_4>
MP_RVALUE macro val, min, max, opts
MP_2 <flags>,<opts>
endm
MP_VALUE macro val, max, opts
MP_2 <flags>,<opts>
endm
MP_FLAGS macro flags, valid, opts
MP_2 <flags>,<opts>
endm
; Handles
;
; Generate a GDI object validation macro.
;
; If nullok is 1, allow NULL.
; min & max are the allowed OBJ_* range.
; except, if specified, is an OBJ_* value within the range to reject.
;
_GenMPHGDI macro name,nullok,min,max,except
name &macro hObj,opts
local badobj
local objok
_GenMP <hObj>,2,<opts>
if VLgen
_FlsMJmp
IFNDEF WOW
if nullok
mov cx,_P_&&hObj
jcxz objok
push cx
else
push _P_&&hObj
endif
call IsGDIObject
ifnb <except>
cmp al,except
jz badobj
endif
ife min-max
cmp al,min
je objok
else
cmp al,min
jb badobj
cmp al,max
jbe objok
endif
badobj:
mov ax,_P_&&hObj
mov bx,ERR_BAD_HANDLE
lcall Inval_Param_
objok:
ENDIF
endif
&endm
endm
OBJ_PEN equ 1
OBJ_BRUSH equ 2
OBJ_FONT equ 3
OBJ_PALETTE equ 4
OBJ_BITMAP equ 5
OBJ_RGN equ 6
OBJ_DC equ 7
OBJ_IC equ 8
OBJ_DISABLED_DC equ 9
OBJ_METADC equ 10
OBJ_METAFILE equ 11
_GenMPHGDI <MP_HDC>,0,OBJ_DC,OBJ_METAFILE
_GenMPHGDI <MP_HDC0>,1,OBJ_DC,OBJ_METAFILE
_GenMPHGDI <MP_HPEN>,0,OBJ_PEN,OBJ_PEN
_GenMPHGDI <MP_HPEN0>,1,OBJ_PEN,OBJ_PEN
_GenMPHGDI <MP_HBRUSH>,0,OBJ_BRUSH,OBJ_BRUSH
_GenMPHGDI <MP_HBRUSH0>,1,OBJ_BRUSH,OBJ_BRUSH
_GenMPHGDI <MP_HFONT>,0,OBJ_FONT,OBJ_FONT
_GenMPHGDI <MP_HFONT0>,1,OBJ_FONT,OBJ_FONT
_GenMPHGDI <MP_HPALETTE>,0,OBJ_PALETTE,OBJ_PALETTE
_GenMPHGDI <MP_HPALETTE0>,1,OBJ_PALETTE,OBJ_PALETTE
_GenMPHGDI <MP_HBITMAP>,0,OBJ_BITMAP,OBJ_BITMAP
_GenMPHGDI <MP_HBITMAP0>,1,OBJ_BITMAP,OBJ_BITMAP
_GenMPHGDI <MP_HRGN>,0,OBJ_RGN,OBJ_RGN
_GenMPHGDI <MP_HRGN0>,1,OBJ_RGN,OBJ_RGN
MP_HRGN01 equ <MP_2> ; hrgn, NULL, or (HRGN)1
MP_HMENU macro hMenu,opts
_GenMP <hMenu>,2,<opts>
if VLgen
_FlsMJmp
IFNDEF WOW
mov bx,_P_&hMenu
lcall VHMENU
ENDIF
_gensub VHMENU
@@:
endif
endm
MP_HMENU0 macro hMenu,opts
_GenMP <hMenu>,2,<opts>
if VLgen
_FlsMJmp
IFNDEF WOW
mov bx,_P_&hMenu
lcall VHMENU0
ENDIF
_gensub VHMENU
endif
endm
MP_HWND macro hwnd,opts
_GenMP <hwnd>,2,<opts>
if VLgen
_FlsMJmp
IFNDEF WOW
mov bx,_P_&hwnd
lcall VHWND
ENDIF
_gensub VHWND
endif
endm
MP_HWND0 macro hwnd,opts
_GenMP <hwnd>,2,<opts>
if VLgen
_FlsMJmp
IFNDEF WOW
mov bx,_P_&hwnd
lcall VHWND0
ENDIF
_gensub VHWND
endif
endm
; Warn if the window handle is 0 or a bad window handle
MP_HWNDW macro hwnd,opts
Local ZeroHandle
_GenMP <hwnd>,2,<opts>
ifdef DEBUG
if VLgen
_FlsMJmp
mov cx,_P_&hwnd
mov ax, cx ;; Error reporting expects window handle in AX
jcxz ZeroHandle
jmp @F
IFNDEF WOW
push cx ;; Save window handle
push cx
call IsWindow
or ax,ax
pop ax ;; Resore the window handle to AX
jnz @F
ENDIF
ZeroHandle:
;; AX must have the bad Window handle
mov bx,ERR_BAD_HWND or ERR_WARNING
lcall Inval_Param_
@@:
endif
endif
endm
; Warning only.
MP_HWNDW0 macro hwnd,opts
_GenMP <hwnd>,2,<opts>
ifdef DEBUG
if VLgen
_FlsMJmp
IFNDEF WOW
mov cx,_P_&hwnd
jcxz @F
push cx
push cx
call IsWindow
or ax,ax
pop ax
jnz @F
mov bx,ERR_BAD_HWND or ERR_WARNING
lcall Inval_Param_
@@:
ENDIF
endif
endif
endm
MP_HWND01 macro hwnd,opts ; hwnd, 0, or 1
_GenMP <hwnd>,2,<opts>
if VLgen
_FlsMJmp
IFNDEF WOW
mov bx,_P_&hwnd
cmp bx,1
jbe @F
lcall VHWND
ENDIF
_gensub VHWND
@@:
endif
endm
MP_HWNDCLIP equ <MP_HWND>
MP_LHANDLE macro name,opts
_GenMP <name>,2,<opts>
if VLgen
_FlsMJmp
mov ax,_P_&name
or ax,ax
jnz @F
mov bx,ERR_BAD_LOCAL_HANDLE
lcall Inval_Param_
@@:
endif
endm
MP_LHANDLE0 equ <MP_2>
MP_GHANDLE macro h,opts
_GenMP <h>,2,<opts>
if VLgen
_FlsMJmp
IFNDEF WOW
mov ax,_P_&h
lcall GHANDLE
ENDIF
endif
endm
MP_GHANDLE0 macro h,opts
_GenMP <h>,2,<opts>
if VLgen
_FlsMJmp
IFNDEF WOW
mov ax,_P_&h
lcall GHANDLE0
ENDIF
endif
endm
MP_GHANDLEDDE equ <MP_GHANDLE>
MP_GHANDLEDDE0 equ <MP_GHANDLE0>
MP_GHANDLEDDEW macro h,opts
local GHexit
_GenMP <h>,2,<opts>
ifdef DEBUG
if VLgen
_FlsMJmp
mov ax,_P_&h
test al,0100b ; Reject GDT selectors
jz @F
cmp ax,0ffffh ; special case: -1 -> DS
jz GHexit
lar dx,ax ; is it a valid selector?
jz GHexit
@@:
mov bx,ERR_BAD_GLOBAL_HANDLE or ERR_WARNING
lcall Inval_Param_
GHexit:
endif
endif
endm
MP_HICON equ <MP_GHANDLE>
MP_HICON0 equ <MP_GHANDLE0>
MP_HTASK equ <MP_GHANDLE>
MP_HTASK0 equ <MP_GHANDLE0>
; Pointers
MP_LP macro lptr,opts
_GenMP <lptr>,4,<opts>
if VLgen
_FlsMJmp
mov ax,_P_&lptr
mov cx,_P_&lptr+2
mov bx,1
lcall LP
_gensub LP
endif
endm
MP_CLP macro lp,opts
_GenMP <lp>,4,<opts>
if VLgen
_FlsMJmp
mov ax,_P_&lp
mov cx,_P_&lp+2
mov bx,1
lcall CLP
_gensub LP
endif
endm
MP_LP0 macro lp,opts
_GenMP <lp>,4,<opts>
if VLgen
_FlsMJmp
mov ax,_P_&lp
mov cx,_P_&lp+2
mov bx,1
lcall LP0
_gensub LP
endif
endm
MP_CLP0 macro lp,opts
_GenMP <lp>,4,<opts>
if VLgen
_FlsMJmp
mov ax,_P_&lp
mov cx,_P_&lp+2
mov bx,1
lcall CLP0
_gensub LP
endif
endm
MP_LPBUFFERCNT equ <MP_LP>
MP_CLPSTR macro lpsz,opts
_GenMP <lpsz>,4,<opts>
if VLgen
_FlsMJmp
mov ax,_P_&lpsz
mov cx,_P_&lpsz+2
mov bx,-1
lcall CLPSZ
_gensub LPSZ
endif
endm
MP_CLPSTR0 macro lpsz,opts
_GenMP <lpsz>,4,<opts>
if VLgen
_FlsMJmp
mov ax,_P_&lpsz
mov cx,_P_&lpsz+2
mov bx,-1
lcall CLPSZ0
_gensub LPSZ
endif
endm
MP_LPSTRCB equ <MP_4> ; may be arbitrary 32-bit value
MP_CLPSTRCB equ <MP_4>
MP_CLPSTRLB equ <MP_4> ; may be arbitrary 32-bit value
MP_CLPMSG0 equ <MP_CLP0>
MP_LPRECT equ <MP_LP>
MP_CLPRECT equ <MP_LP>
MP_LPBUFFERX macro count, lpBuffer, opts
MP_int <count>,<opts>
MP_LP <lpBuffer>,<opts>
endm
MP_LPTSBUFFER0 macro cTabs, lpTabs, opts
MP_int <cTabs>,<opts>
MP_LP0 <lpTabs>,<opts>
endm
MP_LPWBUFFERX macro wCount, lpBuf, opts ;** lpBuf is int. buffer
MP_int <count>,<opts>
MP_LP <lpTabs>,<opts>
endm
MP_LPMEASUREITEMSTRUCT equ <MP_LP>
MP_LPCREATESTRUCT equ <MP_LP>
MP_CLPCOMPAREITEMSTRUCT equ <MP_CLP>
MP_CLPDELETEITEMSTRUCT equ <MP_CLP>
MP_CLPDRAWITEMSTRUCT equ <MP_CLP>
MP_CLPMDICREATESTRUCT equ <MP_CLP>
MP_CLP5POINTBUFFER equ <MP_CLP> ; array of 5 points
; Function pointers
MP_LPFNWORDBREAK0 macro pfn,opts
_GenMP <pfn>,4,<opts>
if VLgen
_FlsMJmp
mov ax,_P_&pfn
mov cx,_P_&pfn+2
lcall LPFN0
_gensub LPFN
endif
endm
MP_LPFNTIMER0 macro pfn,opts
_GenMP <pfn>,4,<opts>
if VLgen
_FlsMJmp
mov ax,_P_&pfn
mov cx,_P_&pfn+2
lcall LPFN0
_gensub LPFN
endif
endm
; More types
MP_ATOM equ <MP_2>
MP_ATOM0 equ <MP_2>
MP_BIVALUE macro val,v1,v2,opts
MP_2 <val>,<opts>
endm
MP_CBINDEX equ <MP_2>
MP_CBINDEXFFFF equ <MP_2>
MP_CBITEMHEIGHTFFFF equ <MP_2>
MP_CHARINDEXFFFF equ <MP_2>
MP_CHARVALUE equ <MP_2>
MP_CID equ <MP_2>
MP_CONST macro val, constant, opts ;** set to SMP_JOBSTATUS
MP_2 <val>,<opts>
endm
MP_CTRLID equ <MP_2>
MP_EDITPOS equ <MP_2>
MP_EMCHARPOS equ <MP_2>
MP_EMLINE equ <MP_2>
MP_EMLINEFFFF equ <MP_2>
MP_EMLINEFFFF equ <MP_2>
MP_EMCLINE equ <MP_2>
MP_LBINDEX equ <MP_2>
MP_LBINDEXFFFF equ <MP_2>
MP_LBLPBUFFERINDEX macro wIndex, lpBuf, opts
MP_2 <wIndex>,<opts>
MP_4 <lpBuf>,<opts>
endm
MP_SHOWVALUE equ <MP_WORD>
MP_SYSCOMMAND equ <MP_WORD>
MP_VKEY equ <MP_WORD>
MP_WMMENUSELECT macro idOrHandle, flags, opts
MP_2 idOrHMenu ; id or menu handle
MP_2 flags ; may be -1
MP_2 hMenu ; may be NULL
endm
MP_WMNEXTDLGCTL macro hwndOrFPrev, fHandle, opts ;** if lParam is 0 wParam is a flag
MP_2 <hwndOrFPrev>,<opts>
MP_BOOL <fHandle>,<opts>
MP_WMBZ lParamH,<opts>
endm
Reference in a new issue Copy permalink