You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
1250 lines
60 KiB
1250 lines
60 KiB
'--------------------------------------------------------------------------
|
|
'
|
|
' MSTEST.INC Version 2.00
|
|
' API Declarations for TEST Tools
|
|
'
|
|
' NOTE: All API are ALIAS'd to themselves to support NT
|
|
' API Not yet supported under NT are IFDEF'd out using the
|
|
' predefine symbol of NT.
|
|
'
|
|
' To include the various portions of this file, any combination of the
|
|
' following $DEFINE's must be used in your script prior to $INCLUDEing
|
|
' MSTEST.INC:
|
|
'
|
|
' i.e. IN YOUR SCRIPT add a line such as the following to DEFINE one of
|
|
' the SYMBOLS below, so you only include what you need.
|
|
'
|
|
' REM$ DEFINE MSTest - to get everything in this include file
|
|
' REM$ DEFINE TestCtrl - to get ALL the TESTCTRL declarations etc.
|
|
' REM$ DEFINE TestScrn - to get ALL the TESTSCRN declarations etc.
|
|
' REM$ DEFINE TestDlgs - to get ALL the TESTDLGS declarations etc.
|
|
' REM$ DEFINE TestEvnt - to get ALL the TESTEVNT declarations etc.
|
|
' REM$ DEFINE TestUI - to get ALL the TESTUI declarations etc.
|
|
'
|
|
' OR USE ANY OF THE FOLLOWING SYMBOLS TO GET PARTIAL
|
|
'
|
|
' MSTEST: includes all of MSTEST.INC
|
|
'
|
|
' TESTCTRL: includes all of TESTCTRL
|
|
' W_MISC TESTCTRL Miscellaneous routines
|
|
' W_WINDOW TESTCTRL Window routines
|
|
' W_MENU TESTCTRL Menu routines
|
|
' W_ERROR: TESTCTRL error routines
|
|
' W_CONTROL: includes all of the control declares & routines
|
|
' W_BUTTON: includes all of the BUTTON declares etc.
|
|
' W_CHECK: " CHECKBOX
|
|
' W_OPTION " OPTION BUTTON
|
|
' W_EDIT " EDIT CONTROL
|
|
' W_LIST " LIST BOX
|
|
' W_COMBO " COMBO BOX
|
|
'
|
|
' TESTSCRN: includes all of TESTSCRN, Declares & Error codes
|
|
' TESTSCRN_DECL: includes all SCR Declares
|
|
' TESTSCRN_ERRS: includes all SCR Error codes
|
|
'
|
|
' TESTDLGS: includes all of TESTDLGS, Declares & Error codes
|
|
' TESTDLGS_DECL: includes all DLGS Declares
|
|
' TESTDLGS_ERRS: includes all DLGS Error codes
|
|
'
|
|
' TESTEVNT: includes all TESTEVNT Declares
|
|
'
|
|
' W_ERROR_TRAP: Just like W_ERROR, but includes a generic
|
|
' WErrorTrap to display WError and ErrorText
|
|
' NOTE: This is not included from any other define.
|
|
'
|
|
' NOTE: Including MSTEST.INC without out using any of the above $DEFINE's
|
|
' will include only TESTDRVR.EXE trappable and untrappable error
|
|
' codes, and declares for CRLF, TRUE (-1), FALSE(0), Key values for
|
|
' DoKeys() from TESTEVNT and few routines from TESTCtrl.
|
|
'
|
|
'---------------------------------------------------------------------------
|
|
'
|
|
' Copyright (C) 1991-1992 Microsoft Corporation
|
|
'
|
|
' You have a royalty-free right to use, modify, reproduce and distribute
|
|
' this file (and/or any modified version) in any way you find useful,
|
|
' provided that you agree that Microsoft has no warranty, obligation or
|
|
' liability for its contents. Refer to the Microsoft Windows Programmer's
|
|
' Reference for further information.
|
|
'
|
|
' This file is not garanteed by Microsoft to be error free. Every effort
|
|
' has been made to ensure proper data-types and declarations etc., but no
|
|
' testing has been performed using this include file. Additionally, some
|
|
' API's, though listed, may not be compatible with the TESTDrvr language.
|
|
'
|
|
'----------------------------------------------------------------------------
|
|
|
|
' *********************
|
|
'$IFNDEF MSTEST_INCLUDED
|
|
'$DEFINE MSTEST_INCLUDED
|
|
' *********************
|
|
|
|
'----------------------------------------------------------------------------
|
|
' Generic Global Variables
|
|
'----------------------------------------------------------------------------
|
|
Global CRLF As String ' UNDONE: Change to Const X = Chr$()
|
|
CRLF = Chr$(13) + Chr$(10) ' once supported
|
|
|
|
Const TRUE = -1
|
|
Const FALSE = 0
|
|
|
|
|
|
'----------------------------------------------------------------------------
|
|
' Unrecoverable TESTDRVR error codes
|
|
'----------------------------------------------------------------------------
|
|
Const ERR_STACK_OVERFLOW = 0
|
|
Const ERR_STACK_UNDERFLOW = 1
|
|
Const ERR_OUT_OF_STRING_SPACE = 2
|
|
Const ERR_CANT_LOAD_TESTVIEW_DLL = 3
|
|
Const ERR_OUT_OF_MEMORY = 4
|
|
|
|
|
|
'----------------------------------------------------------------------------
|
|
' Recoverable TESTDRVR error codes
|
|
'----------------------------------------------------------------------------
|
|
Const ERR_GOSUB_STACK_OVERFLOW = 5
|
|
Const ERR_RETURN_WITHOUT_GOSUB = 6
|
|
Const ERR_BAD_FILE_NUMBER = 7
|
|
Const ERR_FILE_IO = 8
|
|
Const ERR_RUN_CMD_TOO_LONG = 9
|
|
Const ERR_SHELL_CMD_TOO_LONG = 10
|
|
Const ERR_SETFILE = 11
|
|
Const ERR_FILE_NUMBER_IN_USE = 12
|
|
Const ERR_CANT_OPEN_FILE = 13
|
|
Const ERR_ILLEGAL_FUNCTION_CALL = 14
|
|
Const ERR_INVALID_PATH = 15
|
|
Const ERR_INVALID_DRIVE = 16
|
|
Const ERR_NO_CURRENT_WORKING_DIR = 17
|
|
Const ERR_BAD_RUN_CMD = 18
|
|
Const ERR_DIVISION_BY_ZERO = 19
|
|
Const ERR_CANT_LOAD_DLL = 20
|
|
Const ERR_PROC_NOT_FOUND_IN_DLL = 21
|
|
Const ERR_CANNOT_RESUME = 22
|
|
Const ERR_MEM_ALLOC = 23
|
|
Const ERR_INVALID_POINTER = 24
|
|
Const ERR_INVALID_ALLOC_SIZE = 25
|
|
Const ERR_NULL_PIONTER_REF = 26
|
|
Const ERR_SUBSCRIPT_RANGE = 27
|
|
Const ERR_INPUT_PAST_EOF = 28
|
|
Const ERR_FILELIST_PROC = 29
|
|
Const ERR_INVALID_ATTRIBUTE = 30
|
|
|
|
'$ifdef WINUSER_SHOW_COMMANDS AND NOT NT
|
|
|
|
'----------------------------------------------------------------------------
|
|
' RUN statement Show commands: RUN "command"[, [NOWAIT][, ShowCommand]]
|
|
' NOTE: These are the same as the SW_ constants in Windows.h
|
|
'----------------------------------------------------------------------------
|
|
Const SW_HIDE = 0
|
|
Const SW_SHOWNORMAL = 1
|
|
Const SW_NORMAL = 1
|
|
Const SW_SHOWMINIMIZED = 2
|
|
Const SW_SHOWMAXIMIZED = 3
|
|
Const SW_MAXIMIZE = 3
|
|
Const SW_SHOWNOACTIVATE = 4
|
|
Const SW_SHOW = 5
|
|
Const SW_MINIMIZE = 6
|
|
Const SW_SHOWMINNOACTIVE = 7
|
|
Const SW_SHOWNA = 8
|
|
Const SW_RESTORE = 9
|
|
|
|
'$endif WINUSER_SHOW_COMMANDS AND NOT NT
|
|
|
|
'----------------------------------------------------------------------------
|
|
' Key contants used with WKey, PlayKeys, & PlayKeyshWnd
|
|
'----------------------------------------------------------------------------
|
|
Const K_ENTER = "{ENTER}"
|
|
Const K_ESC = "{ESC}"
|
|
Const K_UP = "{UP}"
|
|
Const K_DOWN = "{DOWN}"
|
|
Const K_LEFT = "{LEFT}"
|
|
Const K_RIGHT = "{RIGHT}"
|
|
Const K_END = "{END}"
|
|
Const K_PGUP = "{PGUP}"
|
|
Const K_PGDN = "{PGDN}"
|
|
Const K_INSERT = "{INSERT}"
|
|
Const K_INS = "{INSERT}"
|
|
Const K_DELETE = "{DELETE}"
|
|
Const K_DEL = "{DELETE}"
|
|
Const K_HOME = "{HOME}"
|
|
Const K_TAB = "{TAB}"
|
|
Const K_BS = "{BS}"
|
|
Const K_F1 = "{F1}"
|
|
Const K_F2 = "{F2}"
|
|
Const K_F3 = "{F3}"
|
|
Const K_F4 = "{F4}"
|
|
Const K_F5 = "{F5}"
|
|
Const K_F6 = "{F6}"
|
|
Const K_F7 = "{F7}"
|
|
Const K_F8 = "{F8}"
|
|
Const K_F9 = "{F9}"
|
|
Const K_F10 = "{F10}"
|
|
Const K_F11 = "{F11}"
|
|
Const K_F12 = "{F12}"
|
|
Const K_F13 = "{F13}"
|
|
Const K_F14 = "{F14}"
|
|
Const K_F15 = "{F15}"
|
|
Const K_F16 = "{F16}"
|
|
Const K_SHIFT = "+"
|
|
Const K_CTRL = "^"
|
|
Const K_ALT = "%"
|
|
|
|
' TESTCtrl API & Constants that are always declared.
|
|
'
|
|
' WGetFocus() simply preforms the exact function as the windows
|
|
' GetFocus() API. Is contained in TESTCtrl since it is such a
|
|
' commonly used API in scripts, and it makes it much easier to
|
|
' use since it is defined simply by including MSTEST.INC. It is
|
|
' renamed to prevent duplicate definitions due to scripts that
|
|
' do define GetFocus() and include MSTEST.INC.
|
|
'---------------------------------------------------------------
|
|
Declare Function WGetFocus Lib "TESTCtrl.dll" Alias "WGetFocus" () As Integer
|
|
Declare Sub WSetActWnd Lib "TESTCtrl.dll" Alias "WSetActWnd" (hWnd%)
|
|
Declare Function WGetActWnd Lib "TESTCtrl.dll" Alias "WGetActWnd" (hWnd%) As Integer
|
|
Declare Function WFndWnd Lib "TESTCtrl.dll" Alias "WFndWnd" (lpszCaption$, wFlags%) As Integer
|
|
Declare Function WFndWndC Lib "TESTCtrl.dll" Alias "WFndWndC" (lpszText$, lpszClass$, wFlags%) As Integer
|
|
Declare Function WFndWndWait Lib "TESTCtrl.dll" Alias "WFndWndWait" (lpszCaption$, wFlags%, wSeconds%) As Integer
|
|
Declare Function WFndWndWaitC Lib "TESTCtrl.dll" Alias "WFndWndWaitC" (lpszText$, lpszClass$, wFlags%, wSeconds%) As Integer
|
|
|
|
Const FW_DEFAULT = &h0000 'Default
|
|
Const FW_RESTOREICON = &h0081 '&h0080 Or FW_FOCUS
|
|
Const FW_NOEXIST = &h0040
|
|
Const FW_EXIST = &h0000 'Default
|
|
Const FW_CHILDNOTOK = &h0020
|
|
Const FW_CHILDOK = &h0000 'Default
|
|
Const FW_HIDDENOK = &h0010
|
|
Const FW_HIDDENNOTOK = &h0000 'Default
|
|
Const FW_ACTIVE = &h0008
|
|
Const FW_ALL = &h0000 'Default
|
|
Const FW_CASE = &h0004
|
|
Const FW_NOCASE = &h0000 'Default
|
|
Const FW_PART = &h0002
|
|
Const FW_FULL = &h0000 'Default
|
|
Const FW_FOCUS = &h0001
|
|
Const FW_NOFOCUS = &h0000 'Default
|
|
|
|
' TESTEvnt API that are always defined.
|
|
'--------------------------------------
|
|
Declare Sub DoKeys Lib "TESTEvnt.Dll" Alias "DoKeys" (lpStr$)
|
|
Declare Sub DoKeysHwnd Lib "TESTEvnt.Dll" Alias "DoKeyshWnd" (hWnd%, lpStr$)
|
|
|
|
' Useful function when working with the Windows API,
|
|
' to extract the HI/LO wordt from a Long Integer.
|
|
'---------------------------------------------------
|
|
Declare Function HIWORD(LongVar&) As Integer
|
|
Function HIWORD (LongVar&) Static As Integer
|
|
HIWORD = LongVar& / 65536
|
|
End Function
|
|
|
|
Declare Function LOWORD(LongVar&) As Integer
|
|
Function LOWORD (LongVar&) Static As Integer
|
|
LOWORD = LongVar& And &H0000FFFF
|
|
End Function
|
|
|
|
' Useful function when working with the Windows API,
|
|
' to extract the HI/LO byte from am Integer.
|
|
'---------------------------------------------------
|
|
Declare Function HIBYTE(IntVar%) As Integer
|
|
Function HIBYTE (IntVar%) Static As Integer
|
|
HIBYTE = IntVar% / 256
|
|
End Function
|
|
|
|
Declare Function LOBYTE(IntVar%) As Integer
|
|
Function LOBYTE (IntVar%) Static As Integer
|
|
LOBYTE = IntVar% And &H00FF
|
|
End Function
|
|
|
|
' *********************
|
|
'$ENDIF MSTEST_INCLUDED
|
|
' *********************
|
|
|
|
'----------------------------------------------------------------------------
|
|
' DEFINE's that control the inclusion of the remainder of MSTEST.INC
|
|
'----------------------------------------------------------------------------
|
|
'$IFDEF MSTEST
|
|
'$DEFINE TESTCTRL
|
|
'$DEFINE TESTSCRN
|
|
'$DEFINE TESTDLGS
|
|
'$DEFINE TESTEVNT
|
|
'$DEFINE TESTUI
|
|
'$ENDIF
|
|
|
|
'$IFDEF TESTCTRL
|
|
'$DEFINE W_MISC
|
|
'$DEFINE W_WINDOW
|
|
'$DEFINE W_MENU
|
|
'$DEFINE W_ERROR
|
|
'$DEFINE W_CONTROL
|
|
'$ENDIF
|
|
|
|
'$IFDEF W_ERROR_TRAP
|
|
'$DEFINE W_ERROR
|
|
'$ENDIF
|
|
|
|
'$IFDEF W_CONTROL
|
|
'$DEFINE W_BUTTON
|
|
'$DEFINE W_CHECK
|
|
'$DEFINE W_OPTION
|
|
'$DEFINE W_EDIT
|
|
'$DEFINE W_LIST
|
|
'$DEFINE W_COMBO
|
|
'$ENDIF
|
|
|
|
'$IFDEF TESTSCRN
|
|
'$DEFINE TESTSCRN_DECL
|
|
'$DEFINE TESTSCRN_ERRS
|
|
'$ENDIF
|
|
|
|
'$IFDEF TESTDLGS
|
|
'$DEFINE TESTDLGS_DECL
|
|
'$DEFINE TESTDLGS_ERRS
|
|
'$ENDIF
|
|
|
|
'$IFDEF W_BUTTON OR W_CHECK OR W_OPTION OR W_EDIT OR W_LIST OR W_COMBO
|
|
'$DEFINE W_A_CONTROL
|
|
'$ENDIF
|
|
|
|
' *********************
|
|
'$IFDEF TESTUI AND NOT TESTUI_INCLUDED AND NOT NT
|
|
' *********************
|
|
'----------------------------------------------------------------------------
|
|
' TESTUI.dll:
|
|
' Function declarations for use with TESTUI
|
|
'----------------------------------------------------------------------------
|
|
Declare Function DlgBox Lib "TESTUI.dll" Alias "DlgBox" (DlgId%, hwndOwner%, proc As CallBack, ResFile$) As Integer
|
|
Declare Function DlgBox3D Lib "TESTUI.dll" Alias "DlgBox3D" (DlgId%, hwndOwner%, proc As CallBack, ResFile$) As Integer
|
|
Declare Function SetScriptMenu Lib "TESTUI.dll" Alias "SetScriptMenu" (MenuId%, hwnd%, ResFile$) As Integer
|
|
Declare Function SetIconBar Lib "TESTUI.dll" Alias "SetIconBar" (IconBarId%, proc As Callback, AppName$, ResFile$, fAlwaysOnTop%) As Integer
|
|
Declare Function SetSysMenu Lib "TESTUI.dll" Alias "SetSysMenu" (MenuId%, proc As Callback, AppName$, ResFile$) As Integer
|
|
Declare Function SetSysMenu3D Lib "TESTUI.dll" Alias "SetSysMenu3D" (MenuId%, proc As Callback, AppName$, ResFile$) As Integer
|
|
Declare Function MSTLoadIcon Lib "TESTUI.dll" Alias "MSTLoadIcon" (IconId%, ResFile$) As Integer
|
|
Declare Sub MSTDestroyIcon Lib "TESTUI.dll" Alias "MSTDestroyIcon" (hIcon%)
|
|
|
|
' *********************
|
|
'$DEFINE TESTUI_INCLUDED
|
|
'$ENDIF
|
|
'$IFDEF W_MISC AND NOT W_MISC_INCLUDED
|
|
' *********************
|
|
|
|
|
|
'----------------------------------------------------------------------------
|
|
' W_MISC: Miscellanious Routines, types and Constants.
|
|
'----------------------------------------------------------------------------
|
|
Const MAX_CAPTION = 128
|
|
|
|
Type INFO
|
|
hWnd As Integer
|
|
hWndParent As Integer
|
|
szClass As String * MAX_CAPTION
|
|
szCaption As String * MAX_CAPTION
|
|
szParentClass As String * MAX_CAPTION
|
|
szParentCaption As String * MAX_CAPTION
|
|
szModuleName As String * MAX_CAPTION
|
|
lStyle As Long
|
|
fChild As Integer
|
|
wID As Integer
|
|
wLeft As Integer
|
|
wTop As Integer
|
|
wRight As Integer
|
|
wBottom As Integer
|
|
wWidth As Integer
|
|
wHeight As Integer
|
|
End Type
|
|
|
|
' The 4 WMessage[W|L] API are slight variations on the windows
|
|
' SendMessage() API. Two things are provided:
|
|
'
|
|
' Validation of hWnd%: - If invalid an error value that
|
|
' is trappable by WErrorTrap is
|
|
' - If hWnd is NULL, the message goes
|
|
' to the ActiveWindow.
|
|
' Only need paramaters: Pass in only the paramaters that are needed:
|
|
' WMessage: Wp and Lp are set to zero
|
|
' WMessageW: Lp is set to zero
|
|
' WMessageL: Wp is set to zero
|
|
' WMessageWL: just like SendMessage() but with hWnd validation
|
|
'---------------------------------------------------------------------
|
|
Declare Function WMessage Lib "TESTCtrl.dll" Alias "WMessage" (hWnd%, wMsg%)
|
|
Declare Function WMessageW Lib "TESTCtrl.dll" Alias "WMessageW" (hWnd%, wMsg%, wp%)
|
|
Declare Function WMessageL Lib "TESTCtrl.dll" Alias "WMessageL" (hWnd%, wMsg%, lp As Any)
|
|
Declare Function WMessageWL Lib "TESTCtrl.dll" Alias "WMessageWL" (hWnd%, wMsg%, wp%, lp As Any)
|
|
Declare Function WIsVisible Lib "TESTCtrl.dll" Alias "WIsVisible" (hWnd%) As Integer
|
|
Declare Function WTextLen Lib "TESTCtrl.dll" Alias "WTextLen" (hWnd%) As Long
|
|
Declare Sub WGetText Lib "TESTCtrl.dll" Alias "WGetText" (hWnd%, lpszBuffer$)
|
|
Declare Sub WSetText Lib "TESTCtrl.dll" Alias "WSetText" (hWnd%, lpszText$)
|
|
Declare Function WNumAltKeys Lib "TESTCtrl.dll" Alias "WNumAltKeys" () As Integer
|
|
Declare Sub WGetAltKeys Lib "TESTCtrl.dll" Alias "WGetAltKeys" (lpszBuff$)
|
|
Declare Function WNumDupAltKeys Lib "TESTCtrl.dll" Alias "WNumDupAltKeys" () As Integer
|
|
Declare Sub WGetDupAltKeys Lib "TESTCtrl.dll" Alias "WGetDupAltKeys" (lpszBuff$)
|
|
Declare Sub WDisplayInfo Lib "TESTCtrl.dll" Alias "WDisplayInfo" (hWnd%, wDisplay%)
|
|
Declare Sub WGetInfo Lib "TESTCtrl.dll" Alias "WGetInfo" (hWnd%, lpInfo As INFO)
|
|
|
|
' Layered routines to simulate string functions for the coresponding
|
|
' TESTCtrl API
|
|
'----------------------------------------------------------------------------
|
|
Declare Function GetText (hWnd%) As String
|
|
Declare Function GetAltKeys () As String
|
|
Declare Function GetDupAltKeys () As String
|
|
|
|
Const DI_DIALOG = 1
|
|
Const DI_DEBUG = 2
|
|
Const DI_BOTH = 3
|
|
|
|
'----------------------------------------------------------------------------
|
|
' GetText: Layered routine for WGetText()
|
|
'----------------------------------------------------------------------------
|
|
Function GetText(hWnd%) Static As String
|
|
Dim lpszBuffer As String
|
|
Dim textLength As Long
|
|
GetText = ""
|
|
textLength = WTextLen(hWnd%)
|
|
If textLength > 0 Then
|
|
lpszBuffer = String$(textLength+1, " ")
|
|
WGetText hWnd%, lpszBuffer
|
|
GetText = lpszBuffer
|
|
End If
|
|
lpszBuffer = ""
|
|
End Function
|
|
|
|
'----------------------------------------------------------------------------
|
|
' GetAltKeys: Layered routine for WGetAltKeys()
|
|
'----------------------------------------------------------------------------
|
|
Function GetAltKeys() Static As String
|
|
Dim lpszBuffer As String
|
|
lpszBuffer = String$(WNumAltKeys()+1, " ")
|
|
WGetAltKeys lpszBuffer
|
|
GetAltKeys = lpszBuffer
|
|
lpszBuffer = ""
|
|
End Function
|
|
|
|
'----------------------------------------------------------------------------
|
|
' GetDupAltKeys: Layered routine for WGetDupAltKeys()
|
|
'----------------------------------------------------------------------------
|
|
Function GetDupAltKeys() Static As String
|
|
Dim lpszBuffer As String
|
|
lpszBuffer = String$(WNumDupAltKeys()+1, " ")
|
|
WGetDupAltKeys lpszBuffer
|
|
GetDupAltKeys = lpszBuffer
|
|
lpszBuffer = ""
|
|
End Function
|
|
|
|
' *********************
|
|
'$DEFINE W_MISC_INCLUDED
|
|
'$ENDIF
|
|
'$IFDEF TESTEVNT AND NOT TESTEVNT_INCLUDED
|
|
' *********************
|
|
|
|
'----------------------------------------------------------------------------
|
|
' TESTEvnt.Dll:
|
|
' Function declarations for use with TESTEvnt
|
|
'----------------------------------------------------------------------------
|
|
'$IFNDEF NT
|
|
|
|
TYPE MEMORYINFO
|
|
LargestAvail AS LONG ' Largest available free block in bytes
|
|
MaxPagesUnlock AS LONG ' Maximum unlocked page allocation in pages
|
|
MaxPagesLocked AS LONG ' Maximum locked page allocation in pages
|
|
TotalLinBytes AS LONG ' Linear address space size in bytes
|
|
TotalUnlockBytes AS LONG ' Total number of unlocked bytes
|
|
TotalFreePhysBytes AS LONG ' Total number of free physical bytes
|
|
TotalPhysBytes AS LONG ' Total number of physical bytes
|
|
FreeLinBytes AS LONG ' Free linear address space in bytes
|
|
SwapFileSize AS LONG ' Size of paging file/partition in bytes
|
|
Reserved1 AS LONG ' reserved for future expansion, all bits set
|
|
Reserved2 AS LONG ' reserved for future expansion, all bits set
|
|
Reserved3 AS LONG ' reserved for future expansion, all bits set
|
|
Reserved4 AS LONG ' reserved for future expansion, all bits set
|
|
NumSelectors AS INTEGER ' Total number of selectors on current LDT
|
|
NumFreeSelectors AS INTEGER ' Number of free selectors on current LDT
|
|
GlobalHeapFree AS LONG ' Number of free Global bytes
|
|
USERHeapFree AS LONG ' Number of free bytes in USER.EXE's heap
|
|
GDIHeapFree AS LONG ' Number of free bytes in GDI.EXE's heap
|
|
SysResFree AS INTEGER ' *PERCENTAGE* of free system resources
|
|
END TYPE
|
|
|
|
Declare Sub WaitUntilIdle Lib "TESTEVNT.DLL" Alias "WaitUntilIdle" ()
|
|
Declare Function GetMemoryInfo Lib "TESTEvnt.Dll" Alias "GetMemoryInfo" (lpMemInfo As MEMORYINFO) As Integer
|
|
Declare Function VMGetScreenCols Lib "TESTEvnt.Dll" Alias "VMGetScreenCols" (HWND%) As Integer
|
|
Declare Function VMGetCursPos Lib "TESTEvnt.Dll" Alias "VMGetCursPos" (HWND%) As Integer
|
|
Declare Function VMGetScreen Lib "TESTEvnt.Dll" Alias "VMGetScreen" (HWND%, UINT%, UINT%, UINT%, UINT%, LPSTR$) As Integer
|
|
Declare Function VMGetScreenClip Lib "TESTEvnt.Dll" Alias "VMGetScreenClip" (HWND%, UINT%, UINT%, UINT%, UINT%) As Integer
|
|
Declare Sub VMSetBackground Lib "TESTEvnt.Dll" Alias "VMSetBackground" (HWND%, BOOL%)
|
|
Declare Function VMPipeOpen Lib "TESTEvnt.Dll" Alias "VMPipeOpen" (HWND%, SCRIPTSUB As Callback ) As Integer
|
|
Declare Function VMPipeClose Lib "TESTEvnt.Dll" Alias "VMPipeClose" (HWND%) As Integer
|
|
Declare Function VMPipeGetText Lib "TESTEvnt.Dll" Alias "VMPipeGetText" (HWND%, LPSTR$ ) As Integer
|
|
|
|
CONST PIPESTRINGSIZE = 129 ' 128 chars + NULL
|
|
|
|
' ** VMPipeGetText() Return values... **
|
|
'----------------------------------------
|
|
CONST PGT_FAILED = &H0000
|
|
CONST PGT_COMPLETE = &H0001
|
|
CONST PGT_MOREREADY = &H0002
|
|
|
|
'$ENDIF NT 'for TESTEvnt VM Stuff
|
|
|
|
Declare Sub QueKeys Lib "TESTEvnt.Dll" Alias "QueKeys" (lpStr$)
|
|
Declare Sub QueKeyDn Lib "TESTEvnt.Dll" Alias "QueKeyDn" (lpStr$)
|
|
Declare Sub QueKeyUp Lib "TESTEvnt.Dll" Alias "QueKeyUp" (lpStr$)
|
|
Declare Sub QueSetSpeed Lib "TESTEvnt.Dll" Alias "QueSetSpeed" (ms%)
|
|
Declare Sub QuePause Lib "TESTEvnt.Dll" Alias "QuePause" (ms&)
|
|
Declare Sub QueFlush Lib "TESTEvnt.Dll" Alias "QueFlush" (fRestoreKeyState%)
|
|
Declare Sub QueEmpty Lib "TESTEvnt.Dll" Alias "QueEmpty" ()
|
|
Declare Sub QueMouseMove Lib "TESTEvnt.Dll" Alias "QueMouseMove" (x%, y%)
|
|
Declare Sub QueMouseDn Lib "TESTEvnt.Dll" Alias "QueMouseDn" (iBtn%, x%, y%)
|
|
Declare Sub QueMouseUp Lib "TESTEvnt.Dll" Alias "QueMouseUp" (iBtn%, x%, y%)
|
|
Declare Sub QueMouseClick Lib "TESTEvnt.Dll" Alias "QueMouseClick" (iBtn%, x%, y%)
|
|
Declare Sub QueMouseDblClk Lib "TESTEvnt.Dll" Alias "QueMouseDblClk" (iBtn%, x%, y%)
|
|
Declare Sub QueMouseDblDn Lib "TESTEvnt.Dll" Alias "QueMouseDblDn" (iBtn%, x%, y%)
|
|
Declare Sub QueSetFocus Lib "TESTEvnt.Dll" Alias "QueSetFocus" (hwnd%)
|
|
Declare Sub QueSetRelativeWindow Lib "TESTEvnt.Dll" Alias "QueSetRelativeWindow" (hwnd%)
|
|
|
|
'$ifndef VK_WINAPI
|
|
Const VK_LBUTTON = 1
|
|
Const VK_RBUTTON = 2
|
|
Const VK_MBUTTON = 4
|
|
'$define VK_WINAPI
|
|
'$endif
|
|
|
|
' *********************
|
|
'$DEFINE TESTEVNT_INCLUDED
|
|
'$ENDIF
|
|
'$IFDEF TESTSCRN_DECL AND NOT TESTSCRN_DECL_INCLUDED
|
|
' *********************
|
|
|
|
|
|
'----------------------------------------------------------------------------
|
|
' TESTScrn.DLL:
|
|
' Type, Const, and Function declarations for use with TESTScrn
|
|
'----------------------------------------------------------------------------
|
|
Type wRect
|
|
x1 As Integer
|
|
y1 As Integer
|
|
x2 As Integer
|
|
y2 As Integer
|
|
End Type
|
|
|
|
Const SCRNAPPEND = 0
|
|
Const SCRNREPLACE = 1
|
|
Const SCRNINSERT = 2
|
|
|
|
'*** TESTSCRN.DLL Routines
|
|
'
|
|
Declare Function fCompFiles Lib "TESTScrn.DLL" Alias "fCompFiles" (lpszFileName1$, Scr1%, lpszFileName2$, Scr2%, CompareType%) As Integer
|
|
Declare Function fCompScreenActivate Lib "TESTScrn.DLL" Alias "fCompScreenActivate" (lpszFileName$, OpenKeys$, CloseKeys$, lpRect As wRect, Scr1%, Hide%, Flag%) As Integer
|
|
Declare Function fCompScreen Lib "TESTScrn.DLL" Alias "fCompScreen" (lpszFileName$, lpRect As wRect, Scr1%, Hide%, Flag%) As Integer
|
|
Declare Function fCompWindowActivate Lib "TESTScrn.DLL" Alias "fCompWindowActivate" (lpszFileName$, OpenKeys$, CloseKeys$, Scr1%, Hide%, Flag%) As Integer
|
|
Declare Function fCompWindow Lib "TESTScrn.DLL" Alias "fCompWindow" (lpszFileName$, hWnd%, Scr1%, Hide%, Flag%) As Integer
|
|
Declare Function fDelScreen Lib "TESTScrn.DLL" Alias "fDelScreen" (lpszFileName$, Scr%) As Integer
|
|
Declare Function fDumpFileToClip Lib "TESTScrn.DLL" Alias "fDumpFileToClip" (lpszFileName$, Scr%) As Integer
|
|
Declare Function fDumpScreenActivate Lib "TESTScrn.DLL" Alias "fDumpScreenActivate" (lpszFileName$, OpenKeys$, CloseKeys$, lpRect As wRect, Action%, Scr1%, Flag%) As Integer
|
|
Declare Function fDumpScreen Lib "TESTScrn.DLL" Alias "fDumpScreen" (lpszFileName$, lpRect As wRect, Action%, Scr1%, Flag%) As Integer
|
|
Declare Function fDumpSrnToClipActivate Lib "TESTScrn.DLL" Alias "fDumpSrnToClipActivate" (OpenKeys$, CloseKeys$, lpRect As wRect, Hide%) As Integer
|
|
Declare Function fDumpSrnToClip Lib "TESTScrn.DLL" Alias "fDumpSrnToClip" (lpRect As wRect, Hide%) As Integer
|
|
Declare Function fDumpWindowActivate Lib "TESTScrn.DLL" Alias "fDumpWindowActivate" (lpszFileName$, OpenKeys$, CloseKeys$, Action%, Scr1%, Flag%) As Integer
|
|
Declare Function fDumpWindow Lib "TESTScrn.DLL" Alias "fDumpWindow" (lpszFileName$, wHnd%, Action%, Scr1%, Flag%) As Integer
|
|
Declare Function fDumpWndToClipActivate Lib "TESTScrn.DLL" Alias "fDumpWndToClipActivate" (OpenKeys$, CloseKeys$, Hide%) As Integer
|
|
Declare Function fDumpWndToClip Lib "TESTScrn.DLL" Alias "fDumpWndToClip" (hWnd%, Hide%) As Integer
|
|
Declare Function fFileInfo Lib "TESTScrn.DLL" Alias "fFileInfo" (lpszName$, lpRect AS wRect, VideoMode AS POINTER TO INTEGER, Count AS POINTER TO INTEGER) As Integer
|
|
Declare Function fGetDLLVersion Lib "TESTScrn.DLL" Alias "fGetDLLVersion" (lpszFileName$) As Integer
|
|
Declare Function fGetMaxScreen Lib "TESTScrn.DLL" Alias "fGetMaxScreen" (lpszFileName$) As Integer
|
|
Declare Function fGetOS Lib "TESTScrn.DLL" Alias "fGetOS" (lpszFileName$) As Integer
|
|
Declare Function fSaveFileToDIB Lib "TESTScrn.DLL" Alias "fSaveFileToDIB" (lpszFileName1$, Scr%, lpszFileName2$) As Integer
|
|
Declare Function fSaveSrnToDIBActivate Lib "TESTScrn.DLL" Alias "fSaveSrnToDIBActivate" (lpszFileName$, OpenKeys$, CloseKeys$, lpRect As wRect, Hide%) As Integer
|
|
Declare Function fSaveSrnToDIB Lib "TESTScrn.DLL" Alias "fSaveSrnToDIB" (lpszFileName$, lpRect As wRect, Hide%) As Integer
|
|
Declare Function fSaveWndToDIBActivate Lib "TESTScrn.DLL" Alias "fSaveWndToDIBActivate" (lpszFileName$, OpenKeys$, CloseKeys$, Hide%) As Integer
|
|
Declare Function fSaveWndToDIB Lib "TESTScrn.DLL" Alias "fSaveWndToDIB" (lpszFileName$, hWnd%, Hide%) As Integer
|
|
Declare Function fViewScreen Lib "TESTScrn.DLL" Alias "fViewScreen" (lpszFileName$, hWnd%, Scr1%, Action%) As Integer
|
|
|
|
|
|
' *********************
|
|
'$DEFINE TESTSCRN_DECL_INCLUDED
|
|
'$ENDIF
|
|
'$IFDEF TESTSCRN_ERRS AND NOT TESTSCRN_ERRS_INCLUDED
|
|
' *********************
|
|
|
|
|
|
'*** TESTScrn.DLL Error Codes
|
|
'
|
|
Const ERR_SCR_NOERROR = 0
|
|
Const ERR_SCR_FILEACCESS = 301
|
|
Const ERR_SCR_INVALIDFIL = 302
|
|
Const ERR_SCR_INVALSRNID = 303
|
|
Const ERR_SCR_INVALSRNMD = 304
|
|
Const ERR_SCR_OUTOMEMORY = 305
|
|
Const ERR_SCR_READSRNFIL = 306
|
|
Const ERR_SCR_RELMEMORY = 307
|
|
Const ERR_SCR_CREATEDDB = 308
|
|
Const ERR_SCR_RWSRNTABLE = 309
|
|
Const ERR_SCR_RWCOLTABLE = 310
|
|
Const ERR_SCR_WSRNIMAGE = 311
|
|
Const ERR_SCR_WFILEHEAD = 312
|
|
Const ERR_SCR_CREATEDIB = 313
|
|
Const ERR_SCR_SCREENSIZE = 314
|
|
Const ERR_SCR_DISPSCREEN = 315
|
|
Const ERR_SCR_INVALIDACT = 316
|
|
Const ERR_SCR_IMAGEDIFF = 317
|
|
Const ERR_SCR_SRNSIZEDIF = 318
|
|
Const ERR_SCR_FILEEXIST = 319
|
|
Const ERR_SCR_CTEMPFILE = 320
|
|
Const ERR_SCR_HIDEWIN = 321
|
|
Const ERR_SCR_INVALWHAND = 322
|
|
Const ERR_SCR_OFILEFORM = 323
|
|
Const ERR_SCR_SRNFILEFUL = 324
|
|
Const ERR_SCR_INVALSCALE = 325
|
|
Const ERR_SCR_OPENCB = 326
|
|
Const ERR_SCR_EMPTYCB = 327
|
|
Const ERR_SCR_COPYTOCB = 328
|
|
Const ERR_SCR_CLOSECB = 329
|
|
Const ERR_SCR_CREATEPAL = 330
|
|
Const ERR_SCR_LIBLOADERR = 331
|
|
|
|
|
|
' *********************
|
|
'$DEFINE TESTSCRN_ERRS_INCLUDED
|
|
'$ENDIF
|
|
'$IFNDEF NT
|
|
'$IFDEF TESTDLGS_DECL AND NOT TESTDLGS_DECL_INCLUDED
|
|
' *********************
|
|
|
|
|
|
'----------------------------------------------------------------------------
|
|
' TESTDlgs.DLL:
|
|
' Type, Const, and Function declarations for use with TESTDlgs
|
|
'----------------------------------------------------------------------------
|
|
Const cchCLASSMAC = 32
|
|
Const cchTEXTMAC = 256
|
|
Const wVEREB = 1
|
|
|
|
Type DCR
|
|
xLeft As Integer
|
|
yMin As Integer
|
|
xRight As Integer
|
|
yLast As Integer
|
|
End Type
|
|
|
|
Declare Function AwaitSaveCompletion Lib "TESTDlgs.DLL" Alias "AwaitSaveCompletion" () As Integer
|
|
Declare Function ComparisonResults Lib "TESTDlgs.DLL" Alias "ComparisonResults" () As Integer
|
|
Declare Function CmpWindow Lib "TESTDlgs.DLL" Alias "CmpWindow" (hWnd%, nDialog%, fIncludeParent%) As Integer
|
|
Declare Function CmpWindowActivate Lib "TESTDlgs.DLL" Alias "CmpWindowActivate" (lpszOpenKeys$, lpszCloseKey$, nDialog%, fIncludeParent%) As Integer
|
|
Declare Function CmpWindowCaption Lib "TESTDlgs.DLL" Alias "CmpWindowCaption" (lpszCap$, nDialog%, fIncludeParent%) As Integer
|
|
Declare Function CmpWindowDelayed Lib "TESTDlgs.DLL" Alias "CmpWindowDelayed" (nDelay%, nDialog%, fIncludeParent%, lpszCloseKeys$) As Integer
|
|
Declare Function FindWindowCaption Lib "TESTDlgs.DLL" Alias "FindWindowCaption" (lpszCap$, hWndStart%) As Integer
|
|
Declare Function SaveMenu Lib "TESTDlgs.DLL" Alias "SaveMenu" (hWnd%, nDialog%, lpszDesc$, fReplace%) As Integer
|
|
Declare Function SaveMenuActivate Lib "TESTDlgs.DLL" Alias "SaveMenuActivate" (lpszOpenKeys$, lpszCloseKeys$, nDialog%, lpszDesc$, fReplace%) As Integer
|
|
Declare Function SaveMenuCaption Lib "TESTDlgs.DLL" Alias "SaveMenuCaption" (lpszCap$, nDialog%, lpszDesc$, fReplace%) As Integer
|
|
Declare Function SaveMenuDelayed Lib "TESTDlgs.DLL" Alias "SaveMenuDelayed" (nDelay%, nDialog%, lpszDesc$, fReplace%, CloseKeys$) As Integer
|
|
Declare Function SaveWindow Lib "TESTDlgs.DLL" Alias "SaveWindow" (hWnd%, nDialog%, lpszDesc$, fReplace%, fIncludeParent%) As Integer
|
|
Declare Function SaveWindowActivate Lib "TESTDlgs.DLL" Alias "SaveWindowActivate" (lpszOpenKeys$, lpszCloseKeys$, nDialog%, lpszDesc$, fReplace%, fIncludeParent%) As Integer
|
|
Declare Function SaveWindowCaption Lib "TESTDlgs.DLL" Alias "SaveWindowCaption" (lpszCap$, nDialog%, lpszDesc$, fReplace%, fIncludeParent%) As Integer
|
|
Declare Function SaveWindowDelayed Lib "TESTDlgs.DLL" Alias "SaveWindowDelayed" (nDelay%, nDialog%, lpszDesc$, fReplace%, fIncludeParent%, lpszCloseKeys$) As Integer
|
|
Declare Function SetDialogFile Lib "TESTDlgs.DLL" Alias "SetDialogFile" (lpszDialogName$) As Integer
|
|
Declare Function SetLogFile Lib "TESTDlgs.DLL" Alias "SetLogFile" (lpszLogName$) As Integer
|
|
|
|
|
|
' *********************
|
|
'$DEFINE TESTDLGS_DECL_INCLUDED
|
|
'$ENDIF
|
|
'$IFDEF TESTDLGS_ERRS AND NOT TESTDLGS_ERRS_INCLUDED
|
|
' *********************
|
|
|
|
|
|
'*** Function return codes
|
|
'
|
|
Const ERR_DLGS_NOERR = 0
|
|
Const ERR_DLGS_FUZZY = -1
|
|
Const ERR_DLGS_EXCESS = -2
|
|
Const ERR_DLGS_CTLNOTFOUND = -3
|
|
Const ERR_DLGS_NODLGFILE = -10
|
|
Const ERR_DLGS_FILENOTFOUND = -11
|
|
Const ERR_DLGS_BADWDLFILE = -12
|
|
Const ERR_DLGS_LIBLOADERR = -13
|
|
Const ERR_DLGS_SAVEERR = -14
|
|
Const ERR_DLGS_DLGFILEERR = -15
|
|
Const ERR_DLGS_TMPFILEERR = -16
|
|
Const ERR_DLGS_VERSIONERR = -17
|
|
Const ERR_DLGS_DLGFILEFULL = -18
|
|
Const ERR_DLGS_OUTOFMEMORY = -20
|
|
Const ERR_DLGS_BUFFERERR = -21
|
|
Const ERR_DLGS_NOTIMER = -22
|
|
Const ERR_DLGS_NODYNDIALOG = -30
|
|
Const ERR_DLGS_INVALIDHWND = -31
|
|
Const ERR_DLGS_BADCAPTION = -32
|
|
Const ERR_DLGS_BADDLGNUM = -33
|
|
Const ERR_DLGS_BADCTLINDEX = -34
|
|
Const ERR_DLGS_BADCTLTYPE = -35
|
|
Const ERR_DLGS_BADSAVEACTION = -36
|
|
Const ERR_DLGS_APPSPECIFIC = -37
|
|
|
|
|
|
' *********************
|
|
'$DEFINE TESTDLGS_ERRS_INCLUDED
|
|
'$ENDIF
|
|
'$ENDIF NT for TESTDLGS
|
|
'$IFDEF W_WINDOW AND NOT W_WINDOW_INCLUDED
|
|
' *********************
|
|
|
|
|
|
'----------------------------------------------------------------------------
|
|
' TESTCtrl.dll routines, types, & constants
|
|
'----------------------------------------------------------------------------
|
|
|
|
'*** Window size and position types
|
|
'
|
|
Type WNDPOS
|
|
wLeft As Integer
|
|
wTop As Integer
|
|
End Type
|
|
|
|
Type WNDSIZ
|
|
wWidth As Integer
|
|
wHeight As Integer
|
|
End Type
|
|
|
|
Type WNDPOSSIZ
|
|
wLeft As Integer
|
|
wTop As Integer
|
|
wWidth As Integer
|
|
wHeight As Integer
|
|
End Type
|
|
|
|
'*** Window Positioning and Sizing routines & contants
|
|
'
|
|
Declare Sub WMinWnd Lib "TESTCtrl.dll" Alias "WMinWnd" (hWnd%)
|
|
Declare Sub WMaxWnd Lib "TESTCtrl.dll" Alias "WMaxWnd" (hWnd%)
|
|
Declare Sub WResWnd Lib "TESTCtrl.dll" Alias "WResWnd" (hWnd%)
|
|
Declare Sub WSetWndPos Lib "TESTCtrl.dll" Alias "WSetWndPos" (hWnd%, wLeft%, wTop%)
|
|
Declare Sub WSetWndSiz Lib "TESTCtrl.dll" Alias "WSetWndSiz" (hWnd%, wWidth%, wHeight%)
|
|
Declare Sub WSetWndPosSiz Lib "TESTCtrl.dll" Alias "WSetWndPosSiz" (hWnd%, wLeft%, wTop%, wWidth%, wHeight%)
|
|
Declare Sub WAdjWndPos Lib "TESTCtrl.dll" Alias "WAdjWndPos" (hWnd%, deltaLeft%, deltaTop%)
|
|
Declare Sub WAdjWndSiz Lib "TESTCtrl.dll" Alias "WAdjWndSiz" (hWnd%, deltaWidth%, deltaHeight%)
|
|
Declare Sub WAdjWndPosSiz Lib "TESTCtrl.dll" Alias "WAdjWndPosSiz" (hWnd%, deltaLeft%, deltaTop%, deltaWidth%, deltaHeight%)
|
|
Declare Sub WGetWndPos Lib "TESTCtrl.dll" Alias "WGetWndPos" (hWnd%, lpWndPos As WNDPOS, fRelative%)
|
|
Declare Sub WGetWndSiz Lib "TESTCtrl.dll" Alias "WGetWndSiz" (hWnd%, lpWndSiz As WNDSIZ)
|
|
Declare Sub WGetWndPosSiz Lib "TESTCtrl.dll" Alias "WGetWndPosSiz" (hWnd%, lpWndPosSiz As WNDPOSSIZ, fRelative%)
|
|
Declare Function WIsMaximized Lib "TESTCtrl.dll" Alias "WIsMaximized" (hWnd%) As Integer
|
|
Declare Function WIsMinimized Lib "TESTCtrl.dll" Alias "WIsMinimized" (hWnd%) As Integer
|
|
|
|
|
|
Const W_RELATIVE = TRUE
|
|
Const W_ABSOLUTE = FALSE
|
|
|
|
|
|
' *********************
|
|
'$DEFINE W_WINDOW_INCLUDED
|
|
'$ENDIF
|
|
'$IFDEF W_MENU AND NOT W_MENU_INCLUDED
|
|
' *********************
|
|
|
|
|
|
'*** Menu routines & constants
|
|
'
|
|
Declare Sub WSysMenu Lib "TESTCtrl.dll" Alias "WSysMenu" (hWnd%)
|
|
Declare Function WSysMenuExists Lib "TESTCtrl.dll" Alias "WSysMenuExists" (hWnd%) As Integer
|
|
Declare Sub WMenu Lib "TESTCtrl.dll" Alias "WMenu" (lpszName$)
|
|
Declare Sub WMenuEx CDECL Lib "TESTCtrl.dll" Alias "WMenuEx" (lpszName$, ...)
|
|
Declare Function WMenuExists Lib "TESTCtrl.dll" Alias "WMenuExists" (lpszName$) As Integer
|
|
Declare Function WMenuGrayed Lib "TESTCtrl.dll" Alias "WMenuGrayed" (lpszName$) As Integer
|
|
Declare Function WMenuChecked Lib "TESTCtrl.dll" Alias "WMenuChecked" (lpszName$) As Integer
|
|
Declare Function WMenuEnabled Lib "TESTCtrl.dll" Alias "WMenuEnabled" (lpszName$) As Integer
|
|
Declare Function WMenuCount Lib "TESTCtrl.dll" Alias "WMenuCount" () As Integer
|
|
Declare Sub WMenuText Lib "TESTCtrl.dll" Alias "WMenuText" (lpszName$, lpszBuffer$)
|
|
Declare Function WMenuLen Lib "TESTCtrl.dll" Alias "WMenuLen" (lpszName$) As Integer
|
|
Declare Sub WMenuFullText Lib "TESTCtrl.dll" Alias "WMenuFullText" (lpszName$, lpszBuffer$)
|
|
Declare Function WMenuFullLen Lib "TESTCtrl.dll" Alias "WMenuFullLen" (lpszName$) As Integer
|
|
Declare Sub WMenuEnd Lib "TESTCtrl.dll" Alias "WMenuEnd" ()
|
|
Declare Function WMenuNumAltKeys Lib "TESTCtrl.dll" Alias "WMenuNumAltKeys" () As Integer
|
|
Declare Sub WMenuGetAltKeys Lib "TESTCtrl.dll" Alias "WMenuGetAltKeys" (lpszBuff$)
|
|
Declare Function WMenuNumDupAltKeys Lib "TESTCtrl.dll" Alias "WMenuNumDupAltKeys" () As Integer
|
|
Declare Sub WMenuGetDupAltKeys Lib "TESTCtrl.dll" Alias "WMenuGetDupAltKeys" (lpszBuff$)
|
|
|
|
' Layered routines to simulate string functions for the coresponding
|
|
' TESTCtrl API
|
|
'----------------------------------------------------------------------------
|
|
Declare Function MenuText (lpszName$) As String
|
|
Declare Function MenuFullText (lpszName$) As String
|
|
Declare Function MenuGetAltKeys () As String
|
|
Declare Function MenuGetDupAltKeys () As String
|
|
|
|
' Unlike the rest of the menu routines, WMenuSeparator() does not ignore
|
|
' menu separators when specifing indexes. The first menu item is item #1
|
|
' the second #2, and so on including all separators.
|
|
'------------------------------------------------------------------------
|
|
Declare Function WMenuSeparator Lib "TESTCtrl.dll" Alias "WMenuSeparator" (sIndex%) As Integer
|
|
|
|
' Obsolete Menu API
|
|
'------------------
|
|
Declare Sub WMenuX Lib "TESTCtrl.dll" Alias "WMenuX" (iIndex%)
|
|
Declare Function WMenuGrayedX Lib "TESTCtrl.dll" Alias "WMenuGrayedX" (iIndex%) As Integer
|
|
Declare Function WMenuCheckedX Lib "TESTCtrl.dll" Alias "WMenuCheckedX" (iIndex%) As Integer
|
|
Declare Function WMenuEnabledX Lib "TESTCtrl.dll" Alias "WMenuEnabledX" (iIndex%) As Integer
|
|
|
|
|
|
'----------------------------------------------------------------------------
|
|
' MenuText: Layered routine for WMenuText()
|
|
'----------------------------------------------------------------------------
|
|
Function MenuText(lpszName$) Static As String
|
|
Dim lpszBuffer As String
|
|
Dim menuLength As Integer
|
|
MenuText = ""
|
|
menuLength = WMenuLen(lpszName$)
|
|
If menuLength >= 0 Then
|
|
lpszBuffer = String$(menuLength+1, " ")
|
|
WMenuText lpszName$, lpszBuffer
|
|
MenuText = lpszBuffer
|
|
End if
|
|
lpszBuffer = ""
|
|
End Function
|
|
|
|
'----------------------------------------------------------------------------
|
|
' MenuFullText: Layered routine for WMenuFullText()
|
|
'----------------------------------------------------------------------------
|
|
Function MenuFullText(lpszName$) Static As String
|
|
Dim lpszBuffer As String
|
|
Dim menuLength As Integer
|
|
MenuFullText = ""
|
|
menuLength = WMenuFullLen(lpszName$)
|
|
If menuLength >= 0 Then
|
|
lpszBuffer = String$(menuLength+1, " ")
|
|
WMenuFullText lpszName$, lpszBuffer
|
|
MenuFullText = lpszBuffer
|
|
End If
|
|
lpszBuffer = ""
|
|
End Function
|
|
|
|
'----------------------------------------------------------------------------
|
|
' MenuGetAltKeys: Layered routine for WMenuGetAltKeys()
|
|
'----------------------------------------------------------------------------
|
|
Function MenuGetAltKeys() Static As String
|
|
Dim lpszBuffer As String
|
|
lpszBuffer = String$(WMenuNumAltKeys()+1, " ")
|
|
WMenuGetAltKeys lpszBuffer
|
|
MenuGetAltKeys = lpszBuffer
|
|
lpszBuffer = ""
|
|
End Function
|
|
|
|
'----------------------------------------------------------------------------
|
|
' MenuGetDupAltKeys: Layered routine for WMenuGetDupAltKeys()
|
|
'----------------------------------------------------------------------------
|
|
Function MenuGetDupAltKeys() Static As String
|
|
Dim lpszBuffer As String
|
|
lpszBuffer = String$(WMenuNumDupAltKeys()+1, " ")
|
|
WMenuGetDupAltKeys lpszBuffer
|
|
MenuGetDupAltKeys = lpszBuffer
|
|
lpszBuffer = ""
|
|
End Function
|
|
|
|
' *********************
|
|
'$DEFINE W_MENU_INCLUDED
|
|
'$ENDIF
|
|
'$IFDEF W_A_CONTROL AND NOT W_A_CONTROL_INCLUDED
|
|
' *********************
|
|
|
|
|
|
'*** Global routine & constants used by all controls
|
|
'
|
|
Declare Sub WStaticSetClass Lib "TESTCtrl.dll" Alias "WStaticSetClass" (lpszClassName$)
|
|
Declare Sub WResetClasses Lib "TESTCtrl.dll" Alias "WResetClasses" ()
|
|
|
|
|
|
' *********************
|
|
'$DEFINE W_A_CONTROL_INCLUDED
|
|
'$ENDIF
|
|
'$IFDEF W_BUTTON AND NOT W_BUTTON_INCLUDED
|
|
' *********************
|
|
|
|
|
|
'*** Button routines
|
|
'
|
|
Declare Sub WButtonSetClass Lib "TESTCtrl.dll" Alias "WButtonSetClass" (lpszClassName$)
|
|
Declare Function WButtonExists Lib "TESTCtrl.dll" Alias "WButtonExists" (lpszName$) As Integer
|
|
Declare Function WButtonEnabled Lib "TESTCtrl.dll" Alias "WButtonEnabled" (lpszName$) As Integer
|
|
Declare Function WButtonFocus Lib "TESTCtrl.dll" Alias "WButtonFocus" (lpszName$) As Integer
|
|
Declare Sub WButtonClick Lib "TESTCtrl.dll" Alias "WButtonClick" (lpszName$)
|
|
Declare Sub WButtonHide Lib "TESTCtrl.dll" Alias "WButtonHide" (lpszName$)
|
|
Declare Sub WButtonShow Lib "TESTCtrl.dll" Alias "WButtonShow" (lpszName$)
|
|
Declare Sub WButtonEnable Lib "TESTCtrl.dll" Alias "WButtonEnable" (lpszName$)
|
|
Declare Sub WButtonDisable Lib "TESTCtrl.dll" Alias "WButtonDisable" (lpszName$)
|
|
Declare Function WButtonDefault Lib "TESTCtrl.dll" Alias "WButtonDefault" (lpszName$) As Integer
|
|
Declare Function WButtonDefaults Lib "TESTCtrl.dll" Alias "WButtonDefaults" () As Integer
|
|
Declare Sub WButtonSetFocus Lib "TESTCtrl.dll" Alias "WButtonSetFocus" (lpszName$)
|
|
|
|
' *********************
|
|
'$DEFINE W_BUTTON_INCLUDED
|
|
'$ENDIF
|
|
'$IFDEF W_CHECK AND NOT W_CHECK_INCLUDED
|
|
' *********************
|
|
|
|
|
|
' CheckBox routines
|
|
'
|
|
Declare Sub WCheckSetClass Lib "TESTCtrl.dll" Alias "WCheckSetClass" (lpszClassName$)
|
|
Declare Function WCheckExists Lib "TESTCtrl.dll" Alias "WCheckExists" (lpszName$) As Integer
|
|
Declare Function WCheckEnabled Lib "TESTCtrl.dll" Alias "WCheckEnabled" (lpszName$) As Integer
|
|
Declare Function WCheckFocus Lib "TESTCtrl.dll" Alias "WCheckFocus" (lpszName$) As Integer
|
|
Declare Function WCheckState Lib "TESTCtrl.dll" Alias "WCheckState" (lpszName$) As Integer
|
|
Declare Sub WCheckClick Lib "TESTCtrl.dll" Alias "WCheckClick" (lpszName$)
|
|
Declare Sub WCheckHide Lib "TESTCtrl.dll" Alias "WCheckHide" (lpszName$)
|
|
Declare Sub WCheckShow Lib "TESTCtrl.dll" Alias "WCheckShow" (lpszName$)
|
|
Declare Sub WCheckEnable Lib "TESTCtrl.dll" Alias "WCheckEnable" (lpszName$)
|
|
Declare Sub WCheckDisable Lib "TESTCtrl.dll" Alias "WCheckDisable" (lpszName$)
|
|
Declare Sub WCheckCheck Lib "TESTCtrl.dll" Alias "WCheckCheck" (lpszName$)
|
|
Declare Sub WCheckUnCheck Lib "TESTCtrl.dll" Alias "WCheckUnCheck" (lpszName$)
|
|
Declare Sub WCheckSetFocus Lib "TESTCtrl.dll" Alias "WCheckSetFocus" (lpszName$)
|
|
|
|
Const UNCHECKED = 0
|
|
Const CHECKED = 1
|
|
Const GRAYED = 2
|
|
|
|
|
|
' *********************
|
|
'$DEFINE W_CHECK_INCLUDED
|
|
'$ENDIF
|
|
'$IFDEF W_OPTION AND NOT W_OPTION_INCLUDED
|
|
' *********************
|
|
|
|
|
|
'*** Option Button routines
|
|
'
|
|
Declare Sub WOptionSetClass Lib "TESTCtrl.dll" Alias "WOptionSetClass" (lpszClassName$)
|
|
Declare Function WOptionExists Lib "TESTCtrl.dll" Alias "WOptionExists" (lpszName$) As Integer
|
|
Declare Function WOptionEnabled Lib "TESTCtrl.dll" Alias "WOptionEnabled" (lpszName$) As Integer
|
|
Declare Function WOptionFocus Lib "TESTCtrl.dll" Alias "WOptionFocus" (lpszName$) As Integer
|
|
Declare Function WOptionState Lib "TESTCtrl.dll" Alias "WOptionState" (lpszName$) As Integer
|
|
Declare Sub WOptionClick Lib "TESTCtrl.dll" Alias "WOptionClick" (lpszName$)
|
|
Declare Sub WOptionHide Lib "TESTCtrl.dll" Alias "WOptionHide" (lpszName$)
|
|
Declare Sub WOptionShow Lib "TESTCtrl.dll" Alias "WOptionShow" (lpszName$)
|
|
Declare Sub WOptionEnable Lib "TESTCtrl.dll" Alias "WOptionEnable" (lpszName$)
|
|
Declare Sub WOptionDisable Lib "TESTCtrl.dll" Alias "WOptionDisable" (lpszName$)
|
|
Declare Sub WOptionSelect Lib "TESTCtrl.dll" Alias "WOptionSelect" (lpszName$)
|
|
Declare Sub WOptionSetFocus Lib "TESTCtrl.dll" Alias "WOptionSetFocus" (lpszName$)
|
|
|
|
' *********************
|
|
'$DEFINE W_OPTION_INCLUDED
|
|
'$ENDIF
|
|
'$IFDEF W_LIST AND NOT W_LIST_INCLUDED
|
|
' *********************
|
|
|
|
|
|
'*** Listbox routines
|
|
'
|
|
Declare Sub WListSetClass Lib "TESTCtrl.dll" Alias "WListSetClass" (lpszClass$)
|
|
Declare Function WListExists Lib "TESTCtrl.dll" Alias "WListExists" (lpszName$) As Integer
|
|
Declare Function WListCount Lib "TESTCtrl.dll" Alias "WListCount" (lpszName$) As Integer
|
|
Declare Sub WListText Lib "TESTCtrl.dll" Alias "WListText" (lpszName$, lpszBuffer$)
|
|
Declare Function WListLen Lib "TESTCtrl.dll" Alias "WListLen" (lpszName$) As Integer
|
|
Declare Function WListIndex Lib "TESTCtrl.dll" Alias "WListIndex" (lpszName$) As Integer
|
|
Declare Function WListTopIndex Lib "TESTCtrl.dll" Alias "WListTopIndex" (lpszName$) As Integer
|
|
Declare Sub WListItemText Lib "TESTCtrl.dll" Alias "WListItemText" (lpszName$, iItem%, lpszBuffer$)
|
|
Declare Function WListItemLen Lib "TESTCtrl.dll" Alias "WListItemLen" (lpszName$, iItem%) As Integer
|
|
Declare Function WListItemExists Lib "TESTCtrl.dll" Alias "WListItemExists" (lpszName$, lpszItem$) As Integer
|
|
Declare Sub WListItemClk Lib "TESTCtrl.dll" Alias "WListItemClk" (lpszName$, iItem%)
|
|
Declare Sub WListItemCtrlClk Lib "TESTCtrl.dll" Alias "WListItemCtrlClk" (lpszName$, iItem%)
|
|
Declare Sub WListItemShftClk Lib "TESTCtrl.dll" Alias "WListItemShftClk" (lpszName$, iItem%)
|
|
Declare Sub WListItemDblClk Lib "TESTCtrl.dll" Alias "WListItemDblClk" (lpszName$, iItem%)
|
|
Declare Sub WListItemClkT Lib "TESTCtrl.dll" Alias "WListItemClkT" (lpszName$, lpszItem$)
|
|
Declare Sub WListItemCtrlClkT Lib "TESTCtrl.dll" Alias "WListItemCtrlClkT" (lpszName$, lpszItem$)
|
|
Declare Sub WListItemShftClkT Lib "TESTCtrl.dll" Alias "WListItemShftClkT" (lpszName$, lpszItem$)
|
|
Declare Sub WListItemDblClkT Lib "TESTCtrl.dll" Alias "WListItemDblClkT" (lpszName$, lpszItem$)
|
|
Declare Function WListSelCount Lib "TESTCtrl.dll" Alias "WListSelCount" (lpszName$) As Integer
|
|
Declare Sub WListSelItems Lib "TESTCtrl.dll" Alias "WListSelItems" (lpszName$, lpIntArray As Pointer To Integer)
|
|
Declare Sub WListClear Lib "TESTCtrl.dll" Alias "WListClear" (lpszName$)
|
|
Declare Sub WListAddItem Lib "TESTCtrl.dll" Alias "WListAddItem" (lpszName$, lpszItem$)
|
|
Declare Sub WListDelItem Lib "TESTCtrl.dll" Alias "WListDelItem" (lpszName$, iItem%)
|
|
Declare Sub WListDelItemT Lib "TESTCtrl.dll" Alias "WListDelItemT" (lpszName$, lpszItem$)
|
|
Declare Function WListEnabled Lib "TESTCtrl.dll" Alias "WListEnabled" (lpszName$) As Integer
|
|
Declare Sub WListSetFocus Lib "TESTCtrl.dll" Alias "WListSetFocus" (lpszName$)
|
|
|
|
' Layered routines to simulate string functions for the coresponding
|
|
' TESTCtrl API
|
|
'----------------------------------------------------------------------------
|
|
Declare Function ListText (lpszName$) As String
|
|
Declare Function ListItemText (lpszName$, iItem%) As String
|
|
|
|
'----------------------------------------------------------------------------
|
|
' ListText: Layered routine for WListText()
|
|
'----------------------------------------------------------------------------
|
|
Function ListText(lpszName$) Static As String
|
|
Dim lpszBuffer As String
|
|
Dim itemLength As Integer
|
|
ListText = ""
|
|
itemLength = WListLen(lpszName)
|
|
If itemLength >= 0 Then
|
|
lpszBuffer = String$(itemLength+1, " ")
|
|
WListText lpszName, lpszBuffer
|
|
ListText = lpszBuffer
|
|
End If
|
|
lpszBuffer = ""
|
|
End Function
|
|
|
|
'----------------------------------------------------------------------------
|
|
' ListItemText: Layered routine for WListItemText()
|
|
'----------------------------------------------------------------------------
|
|
Function ListItemText(lpszName$, sItem%) Static As String
|
|
Dim lpszBuffer As String
|
|
Dim itemLength As Integer
|
|
ListItemText = ""
|
|
itemLength = WListItemLen(lpszName, sItem)
|
|
If itemLength >= 0 Then
|
|
lpszBuffer = String$(itemLength+1, " ")
|
|
WListItemText lpszName, sItem, lpszBuffer
|
|
ListItemText = lpszBuffer
|
|
End If
|
|
lpszBuffer = ""
|
|
End Function
|
|
|
|
|
|
' *********************
|
|
'$DEFINE W_LIST_INCLUDED
|
|
'$ENDIF
|
|
'$IFDEF W_COMBO AND NOT W_COMBO_INCLUDED
|
|
' *********************
|
|
|
|
|
|
'*** Combobox routines
|
|
'
|
|
Declare Sub WComboSetClass Lib "TESTCtrl.dll" Alias "WComboSetClass" (lpszClass$)
|
|
Declare Sub WComboSetLBClass Lib "TESTCtrl.dll" Alias "WComboSetLBClass" (lpszClass$)
|
|
Declare Function WComboExists Lib "TESTCtrl.dll" Alias "WComboExists" (lpszName$) As Integer
|
|
Declare Function WComboCount Lib "TESTCtrl.dll" Alias "WComboCount" (lpszName$) As Integer
|
|
Declare Sub WComboSetText Lib "TESTCtrl.dll" Alias "WComboSetText" (lpszName$, lpszText$)
|
|
Declare Sub WComboText Lib "TESTCtrl.dll" Alias "WComboText" (lpszName$, lpszBuffer$)
|
|
Declare Function WComboLen Lib "TESTCtrl.dll" Alias "WComboLen" (lpszName$) As Integer
|
|
Declare Sub WComboSelText Lib "TESTCtrl.dll" Alias "WComboSelText" (lpszName$, lpszBuffer$)
|
|
Declare Function WComboSelLen Lib "TESTCtrl.dll" Alias "WComboSelLen" (lpszName$) As Integer
|
|
Declare Function WComboIndex Lib "TESTCtrl.dll" Alias "WComboIndex" (lpszName$) As Integer
|
|
Declare Sub WComboItemText Lib "TESTCtrl.dll" Alias "WComboItemText" (lpszName$, iItem%, lpszBuffer$)
|
|
Declare Function WComboItemLen Lib "TESTCtrl.dll" Alias "WComboItemLen" (lpszName$, iItem%) As Integer
|
|
Declare Function WComboItemExists Lib "TESTCtrl.dll" Alias "WComboItemExists" (lpszName$, lpszItem$) As Integer
|
|
Declare Sub WComboItemClk Lib "TESTCtrl.dll" Alias "WComboItemClk" (lpszName$, iItem%)
|
|
Declare Sub WComboItemDblClk Lib "TESTCtrl.dll" Alias "WComboItemDblClk" (lpszName$, iItem%)
|
|
Declare Sub WComboItemClkT Lib "TESTCtrl.dll" Alias "WComboItemClkT" (lpszName$, lpszItem$)
|
|
Declare Sub WComboItemDblClkT Lib "TESTCtrl.dll" Alias "WComboItemDblClkT" (lpszName$, lpszItem$)
|
|
Declare Sub WComboClear Lib "TESTCtrl.dll" Alias "WComboClear" (lpszName$)
|
|
Declare Sub WComboAddItem Lib "TESTCtrl.dll" Alias "WComboAddItem" (lpszName$, lpszItem$)
|
|
Declare Sub WComboDelItem Lib "TESTCtrl.dll" Alias "WComboDelItem" (lpszName$, iItem%)
|
|
Declare Sub WComboDelItemT Lib "TESTCtrl.dll" Alias "WComboDelItemT" (lpszName$, lpszItem$)
|
|
Declare Function WComboEnabled Lib "TESTCtrl.dll" Alias "WComboEnabled" (lpszName$) As Integer
|
|
Declare Sub WComboSetFocus Lib "TESTCtrl.dll" Alias "WComboSetFocus" (lpszName$)
|
|
|
|
' Layered routines to simulate string functions for the coresponding
|
|
' TESTCtrl API
|
|
'----------------------------------------------------------------------------
|
|
Declare Function ComboText (lpszName$) As String
|
|
Declare Function ComboSelText (lpszName$) As String
|
|
Declare Function ComboItemText (lpszName$, iItem%) As String
|
|
|
|
'----------------------------------------------------------------------------
|
|
' ComboText: Layered routine for WComboText()
|
|
'----------------------------------------------------------------------------
|
|
Function ComboText(lpszName$) Static As String
|
|
Dim lpszBuffer As String
|
|
Dim itemLength As Integer
|
|
ComboText = ""
|
|
itemLength = WComboLen(lpszName$)
|
|
If itemLength >= 0 Then
|
|
lpszBuffer = String$(itemLength+1, " ")
|
|
WComboText lpszName, lpszBuffer
|
|
ComboText = lpszBuffer
|
|
End If
|
|
lpszBuffer = ""
|
|
End Function
|
|
|
|
'----------------------------------------------------------------------------
|
|
' ComboSelText: Layered routine for WComboSelText()
|
|
'----------------------------------------------------------------------------
|
|
Function ComboSelText(lpszName$) Static As String
|
|
Dim lpszBuffer As String
|
|
Dim itemLength As Integer
|
|
ComboSelText = ""
|
|
itemLength = WComboSelLen(lpszName$)
|
|
If itemLength >= 0 Then
|
|
lpszBuffer = String$(itemLength+1, " ")
|
|
WComboSelText lpszName, lpszBuffer
|
|
ComboSelText = lpszBuffer
|
|
End If
|
|
lpszBuffer = ""
|
|
End Function
|
|
|
|
'----------------------------------------------------------------------------
|
|
' ComboItemText: Layered routine for WComboItemText()
|
|
'----------------------------------------------------------------------------
|
|
Function ComboItemText(lpszName$, sItem%) Static As String
|
|
Dim lpszBuffer As String
|
|
Dim itemLength As Integer
|
|
ComboItemText = ""
|
|
itemLength = WComboItemLen(lpszName, sItem)
|
|
If itemLength >= 0 Then
|
|
lpszBuffer = String$(itemLength+1, " ")
|
|
WComboItemText lpszName, sItem, lpszBuffer
|
|
ComboItemText = lpszBuffer
|
|
End If
|
|
lpszBuffer = ""
|
|
End Function
|
|
|
|
|
|
' *********************
|
|
'$DEFINE W_COMBO_INCLUDED
|
|
'$ENDIF
|
|
'$IFDEF W_EDIT AND NOT W_EDIT_INCLUDED
|
|
' *********************
|
|
|
|
|
|
'*** Edit box routines
|
|
'
|
|
Declare Sub WEditSetClass Lib "TESTCtrl.dll" Alias "WEditSetClass" (lpszClass$)
|
|
Declare Function WEditExists Lib "TESTCtrl.dll" Alias "WEditExists" (lpszName$) As Integer
|
|
Declare Function WEditLen Lib "TESTCtrl.dll" Alias "WEditLen" (lpszName$) As Long
|
|
Declare Sub WEditText Lib "TESTCtrl.dll" Alias "WEditText" (lpszName$, lpszBuffer$)
|
|
Declare Sub WEditSetText Lib "TESTCtrl.dll" Alias "WEditSetText" (lpszName$, lpszBuffer$)
|
|
Declare Sub WEditSelText Lib "TESTCtrl.dll" Alias "WEditSelText" (lpszName$, lpszBuffer$)
|
|
Declare Function WEditSelLen Lib "TESTCtrl.dll" Alias "WEditSelLen" (lpszName$) As Long
|
|
Declare Sub WEditLineText Lib "TESTCtrl.dll" Alias "WEditLineText" (lpszName$, lIndex&, lpszBuffer$)
|
|
Declare Function WEditLineLen Lib "TESTCtrl.dll" Alias "WEditLineLen" (lpszName$, lIndex&) As Long
|
|
Declare Function WEditPos Lib "TESTCtrl.dll" Alias "WEditPos" (lpszName$) As Long
|
|
Declare Function WEditLine Lib "TESTCtrl.dll" Alias "WEditLine" (lpszName$) As Long
|
|
Declare Function WEditChar Lib "TESTCtrl.dll" Alias "WEditChar" (lpszName$) As Long
|
|
Declare Function WEditFirst Lib "TESTCtrl.dll" Alias "WEditFirst" (lpszName$) As Long
|
|
Declare Function WEditLines Lib "TESTCtrl.dll" Alias "WEditLines" (lpszName$) As Long
|
|
Declare Sub WEditClick Lib "TESTCtrl.dll" Alias "WEditClick" (lpszName$)
|
|
Declare Function WEditEnabled Lib "TESTCtrl.dll" Alias "WEditEnabled" (lpszName$) As Integer
|
|
Declare Sub WEditSetFocus Lib "TESTCtrl.dll" Alias "WEditSetFocus" (lpszName$)
|
|
|
|
' Layered routines to simulate string functions for the coresponding
|
|
' TESTCtrl API
|
|
'----------------------------------------------------------------------------
|
|
Declare Function EditText (lpszName$) As String
|
|
Declare Function EditSelText (lpszName$) As String
|
|
Declare Function EditLineText (lpszName$, lIndex&) As String
|
|
|
|
'----------------------------------------------------------------------------
|
|
' EditText: Layered routine for WEditText()
|
|
'----------------------------------------------------------------------------
|
|
Function EditText(lpszName$) Static As String
|
|
Dim textLength As Long
|
|
Dim lpszBuffer As String
|
|
EditText = ""
|
|
textLength = WEditLen(lpszName)
|
|
If textLength >= 0 Then
|
|
lpszBuffer = String$(textLength+1, " ")
|
|
WEditText lpszName, lpszBuffer
|
|
EditText = lpszBuffer
|
|
End If
|
|
lpszBuffer = ""
|
|
End Function
|
|
|
|
'----------------------------------------------------------------------------
|
|
' EditSelText: Layered routine for WEditSelText()
|
|
'----------------------------------------------------------------------------
|
|
Function EditSelText(lpszName$) Static As String
|
|
Dim selLength As Long
|
|
Dim lpszBuffer As String
|
|
EditSelText = ""
|
|
selLength = WEditSelLen(lpszName)
|
|
If selLength >= 0 Then
|
|
lpszBuffer = String$(selLength+1, " ")
|
|
WEditSelText lpszName, lpszBuffer
|
|
EditSelText = lpszBuffer
|
|
End If
|
|
lpszBuffer = ""
|
|
End Function
|
|
|
|
'----------------------------------------------------------------------------
|
|
' EditLineText: Layered routine for WEditLineText()
|
|
'----------------------------------------------------------------------------
|
|
Function EditLineText(lpszName$, lIndex&) Static As String
|
|
Dim lineLength As Long
|
|
Dim lpszBuffer As String
|
|
EditLineText = ""
|
|
lineLength = WEditLineLen(lpszName, lIndex)
|
|
If lineLength >= 0 Then
|
|
lpszBuffer = String$(lineLength+1, " ")
|
|
WEditLineText lpszName, lIndex&, lpszBuffer
|
|
EditLineText = lpszBuffer
|
|
End if
|
|
lpszBuffer = ""
|
|
End Function
|
|
|
|
|
|
' *********************
|
|
'$DEFINE W_EDIT_INCLUDED
|
|
'$ENDIF
|
|
'$IFDEF W_ERROR AND NOT W_ERROR_INCLUDED
|
|
' *********************
|
|
|
|
|
|
Declare Function WError Lib "TESTCtrl.dll" Alias "WError" () As Integer
|
|
Declare Sub WErrorSet Lib "TESTCtrl.dll" Alias "WErrorSet" (iErrorNum%)
|
|
Declare Sub WErrorText Lib "TESTCtrl.dll" Alias "WErrorText" (lpszBuffer$)
|
|
Declare Function WErrorLen Lib "TESTCtrl.dll" Alias "WErrorLen" () As Integer
|
|
|
|
' Layered routines to simulate string functions for the coresponding
|
|
' TESTCtrl API
|
|
'----------------------------------------------------------------------------
|
|
Declare Function ErrorText () As String
|
|
|
|
Const NO_ERROR = 0
|
|
Const ERR_MENU_NOT_FOUND = 1
|
|
Const ERR_MENU_ITEM_NOT_FOUND = 2
|
|
Const ERR_NOT_A_LISTBOX = 3
|
|
Const ERR_LISTBOX_NOT_FOUND = 4
|
|
Const ERR_ITEM_NOT_IN_LISTBOX = 5
|
|
Const ERR_INVALID_LISTBOX_INDEX = 6
|
|
Const ERR_LISTBOX_HAS_NO_STRINGS = 7
|
|
Const ERR_LISTBOX_IS_NOT_MULTISELECT = 8
|
|
Const ERR_NOT_A_COMBOBOX = 9
|
|
Const ERR_COMBOBOX_NOT_FOUND = 10
|
|
Const ERR_ITEM_NOT_IN_COMBOBOX = 11
|
|
Const ERR_INVALID_COMBOBOX_INDEX = 12
|
|
Const ERR_COMBOBOX_HAS_NO_EDITBOX = 13
|
|
Const ERR_COMBOBOX_HAS_NO_STRINGS = 14
|
|
Const ERR_NOT_AN_EDITBOX = 15
|
|
Const ERR_EDITBOX_NOT_FOUND = 16
|
|
Const ERR_BUTTON_NOT_FOUND = 17
|
|
Const ERR_OPTION_BUTTON_NOT_FOUND = 18
|
|
Const ERR_CHECKBOX_NOT_FOUND = 19
|
|
Const ERR_INVALID_WINDOW_HANDLE = 20
|
|
Const ERR_NO_SYSTEM_MENU = 21
|
|
Const ERR_INVALID_MENU_INDEX = 22
|
|
Const MAX_ERROR = 23
|
|
|
|
'----------------------------------------------------------------------------
|
|
' ErrorText: Layered routine for WErrorText() of TESTCtrl.DLL.
|
|
' Simulates a DLL String Function.
|
|
'----------------------------------------------------------------------------
|
|
Function ErrorText() Static As String
|
|
Dim lpszBuffer As String
|
|
Dim errorLength As Integer
|
|
errorLength= WErrorLen()
|
|
lpszBuffer = String$(errorLength+1, " ")
|
|
WErrorText lpszBuffer
|
|
ErrorText = lpszBuffer
|
|
lpszBuffer = ""
|
|
End Function
|
|
|
|
|
|
' *********************
|
|
'$DEFINE W_ERROR_INCLUDED
|
|
'$ENDIF
|
|
'$IFDEF W_ERROR_TRAP AND NOT W_ERROR_TRAP_INCLUDED
|
|
' *********************
|
|
|
|
|
|
'----------------------------------------------------------------------------
|
|
' WErrorTrap: This trap is in TESTCTRL.DLL.
|
|
'
|
|
' This trap is here in MSTEST.INC just so it is easy to quickly add a
|
|
' trap that will display any TESTCTRL error messages. It is only included if
|
|
' W_ERROR_TRAP is defined, so if WErrorTrap() is to be used for more than
|
|
' just to display the TESTCTRL error messages, W_ERROR_TRAP should no be
|
|
' defined. and a custom WErrorTrap() should be added to your script.
|
|
'----------------------------------------------------------------------------
|
|
Trap WErrorTrap From "TESTCTRL.DLL"
|
|
Print WError;" ";ErrorText
|
|
End Trap
|
|
|
|
|
|
' *********************
|
|
'$DEFINE W_ERROR_TRAP_INCLUDED
|
|
'$ENDIF
|
|
' *********************
|