'FTestKey.inc - definitions for Fast Test Key, Menu and Window routines
'
' Copyright (c) 1991-1992, Microsoft Corporation. All rights reserved.
'
'Purpose:
' This file defines the Key, Menu and Window functions of the Fast Test
' functionality
'
'**********************************************************
'***************** Keystroke Subroutines ******************
'**********************************************************
' support routine for other subroutines, not meant to be called
' except by fasttest routines
'
FUNCTION SKeyString$(s$) STATIC
DIM sTemp$
IF LEN(s$) = 0 THEN
XLogFailure "zero length string passed to SKeyString$"
END IF
IF LEN(s$) = 1 THEN
SELECT CASE ASC(s$)
' alphanumerics, pass along as given
CASE ASC("a") to ASC("z"), ASC("A") to ASC("Z"), ASC("0") to ASC("9")
sTemp$ = s$
' special characters to Dokeys, surround with braces
CASE ASC("~"),ASC("+"),ASC("^"),ASC("%")
sTemp$ = "{" + s$ + "}"
CASE ASC("{"),ASC("}"),ASC("("),ASC(")"),ASC("["),ASC("]")
sTemp$ = "{" + s$ + "}"
' normal printable non-alphanumerics, pass along
CASE ASC("!"),ASC("@"),ASC("#"),ASC("$"),ASC("&")
sTemp$ = s$
CASE ASC("*"),ASC("_"),ASC("|"),ASC(""""),ASC("<"),ASC(">")
sTemp$ = s$
CASE ASC("-"),ASC("="),ASC("\"),ASC(";"),ASC("'"),ASC(":")
sTemp$ =s$
CASE ASC(","),ASC("."),ASC("/"),ASC(" "),ASC("?"),ASC("`")
sTemp$ =s$
' non-printable other character
CASE ELSE
XLogFailure "Bad character passed to SKeyString$"
END SELECT
ELSE
' the string is greater than 1 character in length, put braces
' around it and send it to Dokeys and let it parse it
sTemp$ = "{" + s$ + "}"
END IF
SKeyString$ = "(" + sTemp$ + ")"
END FUNCTION
' support routine for other subroutines, not meant to be called
' except by fasttest routines
'
FUNCTION SHideKeys$(s$) STATIC
DIM check$
DIM i%
DIM stRet$
' this code must hide each character that is special to DoKeys
stRet$ = "" ' start empty
FOR i% = 1 to LEN(s$)
' special characters to DoKeys, surround with braces
check$ = mid$(s$,i%,1)
IF check$ = "~" OR check$ = "+" OR check$ = "^" OR check$ = "%" THEN
stRet$ = stRet$ + "{" + check$ + "}"
ELSEIF check$ = "{" OR check$ = "}" OR check$ = "(" OR check$ = ")" OR check$ = "[" OR check$ = "]" THEN
stRet$ = stRet$ + "{" + check$ + "}"
ELSE
stRet$ = stRet$ + check$
END IF
NEXT i%
SHideKeys$ = stRet$
END FUNCTION
'
' XKey(s$)
'
' Description:
' Send Keystroke to active application
' This uses DoKeys, so DoKeys syntax is allowed
'
' Parameters:
' s$ - single char to send
' NOTE: any string longer that 1 character in length is assumed
' to be a special name for a key and is handled as such
'
' Returns:
' nothing
'
' Example:
' XKey "f"
' XKey "escape"
SUB XKey (s$) STATIC
DoKeys SKeyString$(s$)
END SUB
'
' XAlt(s$)
'
' Description:
' Send a key as if the alt key is pressed at the same time
'
' Parameters:
' s$ - single char to send
' see XKey note
'
' Returns:
' nothing
'
' Example:
' XAlt "f"
' XAlt "escape"
'
'
SUB XAlt (s$) STATIC
DoKeys "%" + SKeyString$(s$)
END SUB
'
' XCtrl(s$)
'
' Description:
' Send a key as if the control key is pressed at the same time
'
' Parameters:
' s$ - single char to send
' see XKey note
'
' Returns:
' nothing
'
' Example:
' XCtrl "f"
' XCtrl "escape"
'
'
SUB XCtrl (s$) STATIC
DoKeys "^" + SKeyString$(s$)
END SUB
'
' XShift(s$)
'
' Description:
' Send a key as if the alt key is pressed at the same time
'
' Parameters:
' s$ - single char to send
' see XKey note
'
' Returns:
' nothing
'
' Example:
' XShift "f"
' XShift "escape"
'
'
SUB XShift (s$) STATIC
DoKeys "+" + SKeyString$(s$)
END SUB
'
' XCtrlAlt(s$)
'
' Description:
' Send a key as if the alt key is pressed at the same time
'
' Parameters:
' s$ - single char to send
' see XKey note
'
' Returns:
' nothing
'
' Example:
' XCtrlAlt "f"
' XCtrlAlt "escape"
'
'
SUB XCtrlAlt (s$) STATIC
DoKeys "^%" + SKeyString$(s$)
END SUB
'
' XAltShift(s$)
'
' Description:
' Send a key as if the alt key is pressed at the same time
'
' Parameters:
' s$ - single char to send
' see XKey note
'
' Returns:
' nothing
'
' Example:
' XAltShift "f"
' XAltShift "escape"
'
'
SUB XAltShift (s$) STATIC
DoKeys "%+" + SKeyString$(s$)
END SUB
'
' XCtrlShift(s$)
'
' Description:
' Send a key as if the alt key is pressed at the same time
'
' Parameters:
' s$ - single char to send
' see XKey note
'
' Returns:
' nothing
'
' Example:
' XCtrlShift "f"
' XCtrlShift "escape"
'
'
SUB XCtrlShift (s$) STATIC
DoKeys "^+" + SKeyString$(s$)
END SUB
'
' XCtrlAltShift(s$)
'
' Description:
' Send a key as if the alt key is pressed at the same time
'
' Parameters:
' s$ - single char to send
' see XKey note
'
' Returns:
' nothing
'
' Example:
' XCtrlAltShift "f"
' XCtrlAltShift "escape"
'
'
SUB XCtrlAltShift (s$) STATIC
DoKeys "^%+" + SKeyString$(s$)
END SUB
'
' XText(s$)
'
' Description:
' Send any key as without having to specially specify any
' keys that are special to DoKeys
'
' Parameters:
' s$ - string of characters to send
'
' Returns:
' nothing
'
' Example:
' XText "Hello World"
' XText "The DoKeys string to send is {escape}"
'
'
SUB XText(s$) STATIC
DoKeys SHideKeys$(s$)
END SUB
'
' XEnter(s$)
'
' Description:
' Send any key as without having to specially specify any
' keys that are special to DoKeys followed by an enter key
'
' Parameters:
' s$ - string of characters to send
'
' Returns:
' nothing
'
' Example:
' XEnter "Hello World"
' XEnter "The DoKeys string to send is {escape}"
'
'
SUB XEnter(s$) STATIC
DoKeys SHideKeys$(s$) + "{enter}"
END SUB
'**********************************************************
'***************** Menu Subroutines ***********************
'**********************************************************
'
' XSelectMenuItem(stMenu, stMenuItem, stHMenuItem)
'
' Description:
' This procedure selects the specified menu item name.
'
' Parameters:
' stMenu = menu where stMenuItem is found.
' stMenuItem = menu item to select or secondary menu, IF
' Hierarchial menu exists.
' stHMenuItem = hierarchial(popup) menu item.
'
' Returns:
' nothing
'
' Example:
' XSelectMenuItem "Edit", "Copy",""
'
'
SUB XSelectMenuItem(stMenu$,stMenuItem$,stHMenuItem$) STATIC
XMenuItemExists stMenu$,stMenuItem$,stHMenuItem$
WMenu(stMenu$)
IF stMenuItem$ <> "" THEN
WMenu(stMenuItem$)
END IF
IF stHMenuItem$ <> "" THEN 'If popup menu is to be selected
WMenu(stHMenuItem$) 'Select menu item under popup menu.
END IF
END SUB
'
' BMenuItemExists(stMenu, stMenuItem, stHMenuItem)
'
' Description:
' This procedure checks for the specified menu item
' and returns true IF found, false IF not found.
'
' Parameters:
' stMenu = menu where stMenuItem is found.
' stMenuItem = menu item to check or secondary menu, IF
' Hierarchial menu exists.
' stHMenuItem = hierarchial(popup) menu item.
'
' Returns:
' TRUE if it exists, FALSE if not
'
' Example:
' fSuccess% = BMenuItemExists("File", "", "")
' fSuccess% = BMenuItemExists("FIle","Edit", "")
'
'
FUNCTION BMenuItemExists%(stMenu$,stMenuItem$,stHMenuItem$) STATIC
IF stHMenuItem$ = "" THEN
IF stMenuItem$ = "" THEN
BMenuItemExists = WMenuExists(stMenu$) <> 0
ELSE
WMenu(stMenu$)
BMenuItemExists = WMenuExists(stMenuItem$) <> 0
END IF
ELSE
WMenu(stMenu$)
WMenu(stMenuItem$)
BMenuItemExists = WMenuExists(stHMenuItem$) <> 0
END IF
DoKeys "{esc 3}" 'Make sure you close menu.
END FUNCTION
'
' XMenuItemExists (stMenu$,stMenuItem$, stHMenuItem$)
'
' Description:
' Reports error IF menu item does not exist.
'
' Parameters:
' stMenu = menu where stMenuItem is found.
' stMenuItem = menu item to select or secondary menu, IF
' Hierarchial menu exists.
' stHMenuItem = hierarchial(popup) menu item.
'
' Returns:
' nothing
'
' Example:
' XMenuItemExists "File", "Close", ""
'
'
'
SUB XMenuItemExists(stMenu$,stMenuItem$, stHMenuItem$) STATIC
IF BMenuItemExists(stMenu$,stMenuItem$, stHMenuItem$) = 0 THEN
XLogFailure stMenu$ + " " + stMenuItem$ + " " + stHMenuItem$ + " does not Exist"
END IF
END SUB
'
' XMenuItemNotExists (stMenu$,stMenuItem$, stHMenuItem$)
'
' Description:
' Reports error IF menu item exist.
'
' Parameters:
' stMenu = menu where stMenuItem is found.
' stMenuItem = menu item to select or secondary menu, IF Hierarchial menu
' exists.
' stHMenuItem = hierarchial(popup) menu item.
'
' Returns:
' nothing
'
' Example:
' XMenuItemNotExists "File", "Close", ""
'
'
'
SUB XMenuItemNotExists(stMenu$,stMenuItem$, stHMenuItem$) STATIC
IF BMenuItemExists(stMenu$,stMenuItem$, stHMenuItem$) THEN
XLogFailure stMenu$ + " " + stMenuItem$ + " " + stHMenuItem$ + " Exists"
END IF
END SUB
'
' IGetMenuCount(stMenu, stMenuItem)
'
' Description:
' This procedure returns the number of menu items
' in the specified menu.
'
' Parameters:
' stMenu = top level menu to count menu items in.
' IF stMenu = "", THEN counts items in the menu bar(counts the
' number of top level menus).
' stMenuItem = secondary menu to count menu items in; counts hierarchial
' menu items.
'
' Returns:
' An integer; the number of menu items found.
'
' Example:
' iHowMany% = IGetMenuCount("","") returns how many top level menus.
' iHowMany% = IGetMenuCount("Utilities", "") returns the number of menu items
' in the "Utilities" menu.
' iHowMany% = IGetMenuCount("Utilities", "Info") returns how many menu items
' in the popup menu "Info".
'
'
FUNCTION IGetMenuCount%(stMenu$, stMenuItem$) STATIC
IF stMenuItem$ <> "" THEN 'Count in menu items in hierarchial menu.
WMenu(stMenu$)
WMenu(stMenuItem$)
IGetMenuCount = WMenuCount() 'Count the number of menus items in the popup
'menu.
ELSE
IF stMenu$ <> "" THEN 'Count menus in stMenu$.
WMenu(stMenu$)
IGetMenuCount = WMenuCount() 'Count the number of menus items in the menu.
ELSE
IGetMenuCount = WMenuCount() 'Count the number of menus in the menu bar if.
'the above "IF" statements are skipped.
END IF
END IF
DoKeys "{esc 3}" 'Make sure you close menu.
END FUNCTION
'
' SGetMenuItemText(stMenu, stMenuItem, iIndex)
'
' Description:
' This procedure returns the text of menu item, iIndex
' (base 1) in stMenu. Length of the buffer to store
' the menu item text is passed in.
'
' Parameters:
' stMenu = menu where stMenuItem is found.
' stMenuItem = menu item to check or secondary menu, IF Hierarchial menu
' exists.
' iIndex = index of menu item in stMenu.
' iLength = length of buffer to store text
'
' Returns:
' a string, the menu item text(name).
'
' Example:
' Print SGetMenuItemText("","","", 3) gets name of 3rd menu.
' Print SGetMenuItemText("Utilities","","",3) gets name of 3rd menu item
' in the "Utilities" menu.
' Print SGetMenuItemText("Utilities","Info",3) gets name of 3rd menu item
' in the popup menu "Info".
'
'
FUNCTION SGetMenuItemText$(stMenu$,stMenuItem$, iIndex%) STATIC
DIM buffer$
buffer$ = String$(128,32) 'initialize with spaces.
IF stMenuItem$ <> "" THEN 'get menu text from hierarchial menu.
WMenu(stMenu$)
WMenu(stMenuItem$)
ELSE
IF stMenu$ <> "" THEN 'get menu text from stMenu$.
WMenu(stMenu$)
END IF
END IF
'$IFNDEF NT
WMenuText iIndex%, buffer$ 'get menu text. If above "IF" condition
'is skipped, this gets text in menu bar.
'$ELSE
WMenuText "@"+STR$(iIndex%), buffer$
'$ENDIF
SGetMenuItemText = buffer$ 'return buffer$
DoKeys "{esc 3}" 'Make sure you close menu.
END FUNCTION
'
' BMenuItemGrayed(stMenu$, stMenuItem$,stHMenuItem$)
'
' Description:
' This procedure checks to see IF the specified menu or
' menu item is grayed out or not.
'
' Parameters:
' stMenu = menu where stMenuItem is found.
' stMenuItem = menu item to select or secondary menu, IF Hierarchial menu
' exists.
' stHMenuItem = hierarchial(popup) menu item.
'
' Returns:
' TRUE if grayed.
' FALSE if not grayed.
'
' Example:
' fIsGrayed% = BMenuItemGrayed("Edit", "Copy", "")
' fIsGrayed% = BMenuItemGrayed("Edit", "", "")
'
'
FUNCTION BMenuItemGrayed%(stMenu$, stMenuItem$, stHMenuItem$) STATIC
IF stHMenuItem$ = "" THEN
IF stMenuItem$ = "" THEN
BMenuItemGrayed = WMenuGrayed(stMenu$) <> 0 'Check main menu bar menu items.
ELSE
WMenu(stMenu$) 'Check menu item within stMenuItem$.
BMenuItemGrayed = WMenuGrayed(stMenuItem$) <> 0
END IF
ELSE
WMenu(stMenu$) 'Check popup menu items.
WMenu(stMenuItem$)
BMenuItemGrayed = WMenuGrayed(stHMenuItem$) <> 0
END IF
DoKeys "{esc 3}" 'Make sure you close menu.
END FUNCTION
'
' XMenuItemGrayed (stMenu$,stMenuItem$, stHMenuItem$)
'
' Description:
' Reports error IF menu item is not Grayed.
'
' Parameters:
' stMenu = menu where stMenuItem is found.
' stMenuItem = menu item to select or secondary menu, IF Hierarchial menu
' exists.
' stHMenuItem = hierarchial(popup) menu item.
'
' Returns:
' nothing
'
' Example:
' XMenuItemGrayed "File", "Close", ""
'
'
'
SUB XMenuItemGrayed(stMenu$,stMenuItem$, stHMenuItem$) STATIC
IF BMenuItemGrayed(stMenu$,stMenuItem$, stHMenuItem$) = 0 THEN
XLogFailure stMenu$ + " " + stMenuItem$ + " " + stHMenuItem$ + " is not Grayed"
END IF
END SUB
'
' XMenuItemNotGrayed (stMenu$,stMenuItem$, stHMenuItem$)
'
' Description:
' Reports error IF menu item is Grayed.
'
' Parameters:
' stMenu = menu where stMenuItem is found.
' stMenuItem = menu item to select or secondary menu, IF Hierarchial menu
' exists.
' stHMenuItem = hierarchial(popup) menu item.
'
' Returns:
' nothing
'
' Example:
' XMenuItemNotGrayed "File", "Close", ""
'
'
'
SUB XMenuItemNotGrayed(stMenu$,stMenuItem$, stHMenuItem$) STATIC
IF BMenuItemGrayed(stMenu$,stMenuItem$, stHMenuItem$) THEN
XLogFailure stMenu$ + " " + stMenuItem$ + " " + stHMenuItem$ + " is Grayed"
END IF
END SUB
'
' BMenuItemChecked(stMenu$,stMenuItem$, stHMenuItem$)
'
' Description:
' This procedure checks to see IF the specified menu
' item is checked or not.
'
' Parameters:
' stMenu = menu where stMenuItem is found.
' stMenuItem = menu item to select or secondary menu, IF Hierarchial menu
' exists.
' stHMenuItem = hierarchial(popup) menu item.
'
' Returns:
' TRUE if checked.
' FALSE if not checked.
'
' Example:
' fIsChecked% = BMenuItemChecked("Format","Style","Bold")
' fIsChecked% = BMenuItemchecked("Edit", "Copy", "")
'
'
FUNCTION BMenuItemChecked%(stMenu$, stMenuItem$, stHMenuItem$) STATIC
IF stHMenuItem$ = "" THEN
WMenu(stMenu$) 'Check menu item within stMenu$.
BMenuItemChecked = WMenuChecked(stMenuItem$) <> 0
ELSE
WMenu(stMenu$) 'Check menu item under popup menu.
WMenu(stMenuItem$)
BMenuItemChecked = WMenuChecked(stHMenuItem$) <> 0
END IF
DoKeys "{esc 3}" 'Make sure you close menu.
END FUNCTION
'
' XMenuItemChecked (stMenu$,stMenuItem$, stHMenuItem$)
'
' Description:
' Reports error IF menu item is not Checked.
'
' Parameters:
' stMenu = menu where stMenuItem is found.
' stMenuItem = menu item to select or secondary menu, IF Hierarchial menu
' exists.
' stHMenuItem = hierarchial(popup) menu item.
'
' Returns:
' nothing
'
' Example:
' XMenuItemChecked "Options", "Read Only", ""
'
'
'
SUB XMenuItemChecked(stMenu$,stMenuItem$, stHMenuItem$) STATIC
IF BMenuItemChecked(stMenu$,stMenuItem$, stHMenuItem$) = 0 THEN
XLogFailure stMenu$ + " " + stMenuItem$ + " " + stHMenuItem$ + " is not Checked"
END IF
END SUB
'
' XMenuItemNotChecked (stMenu$,stMenuItem$, stHMenuItem$)
'
' Description:
' Reports error IF menu item is Checked.
'
' Parameters:
' stMenu = menu where stMenuItem is found.
' stMenuItem = menu item to select or secondary menu, IF Hierarchial menu
' exists.
' stHMenuItem = hierarchial(popup) menu item.
'
' Returns:
' nothing
'
' Example:
' XMenuItemNotChecked "Options", "Read Only", ""
'
'
'
SUB XMenuItemNotChecked(stMenu$,stMenuItem$, stHMenuItem$) STATIC
IF BMenuItemChecked(stMenu$,stMenuItem$, stHMenuItem$) THEN
XLogFailure stMenu$ + " " + stMenuItem$ + " " + stHMenuItem$ + " is Checked"
END IF
END SUB
'
' BMenuItemEnabled(stMenu$,stMenuItem$, stHMenuItem$)
'
' Description:
' This procedure checks to see IF the specified menu or
' menu item is enabled or not.
'
' Parameters:
' stMenu = menu where stMenuItem is found.
' stMenuItem = menu item to select or secondary menu, IF Hierarchial menu
' exists.
' stHMenuItem = hierarchial(popup) menu item.
'
' Returns:
' TRUE if enabled.
' FALSE if not enabled.
'
' Example:
' fIsEnabled% = BMenuItemEnabled("File", "", "")
' fIsEnabled% = BMenuItemEnabled("File", "Close", "")
'
'
FUNCTION BMenuItemEnabled%(stMenu$,stMenuItem$, stHMenuItem$) STATIC
IF stHMenuItem$ = "" THEN
IF stMenuItem$ = "" THEN
BMenuItemEnabled = WMenuEnabled(stMenu$) <> 0 'Check main menu bar menu items.
ELSE
WMenu(stMenu$) 'Check menu item within stMenu$.
BMenuItemEnabled = WMenuEnabled(stMenuItem$) <> 0
END IF
ELSE
WMenu(stMenu$) 'Check menu item under popup menu.
WMenu(stMenuItem$)
BMenuItemEnabled = WMenuEnabled(stHMenuItem$) <> 0
END IF
DoKeys "{esc 3}" 'Make sure you close menu.
END FUNCTION
'
' XMenuItemEnabled (stMenu$,stMenuItem$, stHMenuItem$)
'
' Description:
' Reports error IF menu item is not Enabled.
'
' Parameters:
' stMenu = menu where stMenuItem is found.
' stMenuItem = menu item to select or secondary menu, IF Hierarchial menu
' exists.
' stHMenuItem = hierarchial(popup) menu item.
'
' Returns:
' nothing
'
' Example:
' XMenuItemEnabled "Options", "Read Only", ""
'
'
'
SUB XMenuItemEnabled(stMenu$,stMenuItem$, stHMenuItem$) STATIC
IF BMenuItemEnabled(stMenu$,stMenuItem$, stHMenuItem$) = 0 THEN
XLogFailure stMenu$ + " " + stMenuItem$ + " " + stHMenuItem$ + " is not Enabled"
END IF
END SUB
'
' XMenuItemNotEnabled (stMenu$,stMenuItem$, stHMenuItem$)
'
' Description:
' Reports error IF menu item is Enabled.
'
' Parameters:
' stMenu = menu where stMenuItem is found.
' stMenuItem = menu item to select or secondary menu, IF Hierarchial menu
' exists.
' stHMenuItem = hierarchial(popup) menu item.
'
' Returns:
' nothing
'
' Example:
' XMenuItemNotEnabled "Options", "Read Only", ""
'
'
'
SUB XMenuItemNotEnabled(stMenu$,stMenuItem$, stHMenuItem$) STATIC
IF BMenuItemEnabled(stMenu$,stMenuItem$, stHMenuItem$) THEN
XLogFailure stMenu$ + " " + stMenuItem$ + " " + stHMenuItem$ + " is Enabled"
END IF
END SUB
'**********************************************************
'***************** Window Subroutines *********************
'**********************************************************
'
' XCaptionExists(stCaption$)
'
' Description:
' Will report error IF caption does not Exist.
'
' Parameters:
' stCaption$ - expected caption of current window
'
' Returns:
' nothing
'
' Example:
' XCaptionExists "Winword"
'
'
'
SUB XCaptionExists(stCaption$) STATIC
IF Instr(SGetCaption(), stCaption$) = 0 THEN
XLogFailure stCaption$ + " caption does not exist in active window."
END IF
END SUB
'
' XCaptionNotExists(stCaption$)
'
' Description:
' Will report error IF caption Exist.
'
' Parameters:
' stCaption$ - NOT expected caption of current window
'
' Returns:
' nothing
'
' Example:
' XCaptionNotExists "Winword"
'
'
SUB XCaptionNotExists(stCaption$) STATIC
IF Instr(SGetCaption(), stCaption$) <> 0 THEN
XLogFailure stCaption$ + " caption Exists in active window."
END IF
END SUB
'
' SGetCaption()
'
' Description:
' Returns the caption of the Active window
'
' Parameters:
' none
'
' Return:
' Caption of the Active window
'
' Example:
' stCaption$ = SGetCaption()
'
'
FUNCTION SGetCaption$() STATIC
DIM x%
DIM stCaption$
stCaption$ = String$(100, 32)
x% = GetWindowText (GetForegroundWindow(), stCaption$, LEN(stCaption$))
SGetCaption = mid$(stCaption$,1,x%)
stCaption$ = ""
END FUNCTION
'
' XZoomWindow
'
' Description:
' Toggles the state of the window between normalized
' and maximized.
'
' Parameters:
' None
'
' Returns:
' nothing
'
' Example:
' XZoomWindow
'
'
'
SUB XZoomWindow STATIC
DIM bogus%
DIM lhwndTemp%
lhwndTemp% = GetForegroundWindow()
' IF the window is maximized, normalize.
IF (IsZoomed(lhwndTemp%)) THEN
' window is maximized, we must normalize it
bogus% = ShowWindow(lhwndTemp%, SW_SHOWNORMAL)
ELSE
bogus% = ShowWindow(lhwndTemp%, SW_MAXIMIZE)
END IF
END SUB
'
' XMaxWindow
'
' Description:
' Maximize the current active window
'
' Parameters:
' None
'
' Returns:
' nothing
'
' Example:
' XMaxWinow
'
'
'
SUB XMaxWindow STATIC
DIM bogus%
DIM lhwndTemp%
DIM lWndStyle&
lhwndTemp% = GetForegroundWindow ()
' Get the window's style attributes
lWndStyle& = GetWindowLong(lhwndTemp%, GWL_STYLE)
IF ((lWndStyle& And WS_MAXIMIZE) <> 0) THEN
XLogFailure "Could not maximize active window, already maximized"
ELSE
bogus% = ShowWindow(lhwndTemp%, SW_SHOWMAXIMIZED)
END IF
END SUB
'
' XWindowMaximized
'
' Description:
' check IF the current active window is Maximized
'
' Parameters:
' none
'
' Returns:
' nothing
'
' Example:
' XWindowMaximized
'
'
'
SUB XWindowMaximized STATIC
IF BWindowMaximized = 0 THEN
XLogFailure "Active Window not maximized"
END IF
END SUB
'
' XWindowNotMaximized
'
' Description:
' Check that the current window is not maximized
'
' Parameters:
' none
'
' Returns:
' nothing
'
' Example:
' XWindowNotMaximized
'
'
'
SUB XWindowNotMaximized STATIC
IF BWindowMaximized THEN
XLogFailure "Active Window is maximized"
END IF
END SUB
'
' BWindowMaximized
'
' Description:
' detect IF current window is maximized
'
' Parameters:
' none
'
' Returns:
' TRUE if maximized, FALSE if not
'
' Example:
' BWindowMaximized
'
'
'
FUNCTION BWindowMaximized% STATIC
DIM bogus%
DIM lhwndTemp%
DIM lWndStyle&
lhwndTemp% = GetForegroundWindow ()
' Get the window's style attributes
lWndStyle& = GetWindowLong(lhwndTemp%, GWL_STYLE)
BWindowMaximized = (lWndStyle& AND WS_MAXIMIZE) <> 0
END FUNCTION
'
' XMinWindow
'
' Description:
' Minimize the current active window
'
' Parameters:
' none
'
' Returns:
' nothing
'
' Example:
' XMinWindow
'
'
'
SUB XMinWindow STATIC
DIM bogus%
DIM lhwndTemp%
DIM lWndStyle&
lhwndTemp% = GetForegroundWindow ()
' Get the window's style attributes
lWndStyle& = GetWindowLong(lhwndTemp%, GWL_STYLE)
' IF maximized, XLog the descrepancy
IF ((lWndStyle& And WS_MINIMIZE) <> 0) THEN
XLogFailure "Could not minimize active window, already minimized"
ELSE
bogus% = ShowWindow(lhwndTemp%, SW_SHOWMINIMIZED)
END IF
END SUB
' XWindowMinimized
'
' Description:
' Check that current window is minimized
'
' Parameters:
' none
'
' Returns:
' nothing
'
' Example:
' XWindowMinized
'
'
'
SUB XWindowMinimized STATIC
IF BWindowMinimized = 0 THEN
XLogFailure "Active Window not Minimized"
END IF
END SUB
'
' XWindowNotMinimized
'
' Description:
' Check that current window is not minimized
'
' Parameters:
' none
'
' Returns:
' nothing
'
' Example:
' XWindowNotMinimized
'
'
'
SUB XWindowNotMinimized STATIC
IF BWindowMinimized THEN
XLogFailure "Active Window is Minimized"
END IF
END SUB
'
' BWindowMinimized
'
' Description:
' Detect IF active window minimized
'
' Parameters:
' none
'
' Returns:
' TRUE if minimized, FALSE if not
'
' Example:
' BWindowMinimized
'
'
'
FUNCTION BWindowMinimized% STATIC
DIM bogus%
DIM lhwndTemp%
DIM lWndStyle&
lhwndTemp% = GetForegroundWindow ()
' Get the window's style attributes
lWndStyle& = GetWindowLong(lhwndTemp%, GWL_STYLE)
BWindowMinimized = (lWndStyle& AND WS_MINIMIZE) <> 0
END FUNCTION
'
' XRestoreWindow
'
' Description:
' Restore the current active window. NOTE: You must make
' the icon the active window before calling XRestoreWin!
'
' Parameters:
' none
'
' Returns:
' nothing
'
' Example:
' XRestoreWindow
'
'
'
SUB XRestoreWindow STATIC
DIM bogus%
DIM lhwndTemp%
DIM lWndStyle&
lhwndTemp% = GetForegroundWindow ()
' Get the window's style attributes
lWndStyle& = GetWindowLong(lhwndTemp%, GWL_STYLE)
' IF maximized, XLog the descrepancy
IF ((lWndStyle& And WS_MINIMIZE) = 0) AND ((lWndStyle& And WS_MAXIMIZE) = 0) THEN
XLogFailure "Active window is not minimized or maximized."
ELSE
bogus% = ShowWindow(lhwndTemp%, SW_RESTORE)
END IF
END SUB
'
' XSizeActiveWindow(iXPixels, iYPixels, fAbsOrRel)
'
' Description:
' Moves the bottom-right corner of the active window
' to new coordiates iXPixels, iYPixels. IF fAbsOrRel
' is TRUE, the coordiates are absolute. IF fAbsOrRel
' is FALSE, the coordiates are relative to the current
' position.
'
' Parameters:
' iXPixels - X coordinate
' iYPixels - Y coordinate
' IF !fAbsOrRel FALSE, the X,Y coordinates are relative to the
' current mouse coordianates.
'
' Returns:
' nothing
'
' Example:
' XSizeActiveWindow iXPixels, iYPixels, fAbsOrRel
'
'
'
SUB XSizeActiveWindow (iXPixels%, iYPixels%, fAbsOrRel%) STATIC
DIM xyTempRect As rect
DIM iTempX%
DIM iTempY%
DIM temphWnd%
IF fAbsOrRel% THEN
WSetWndSiz GetForegroundWindow(), iXPixels%, iYPixels%
ELSE
' Find the active window
temphWnd% = GetForegroundWindow
' Get the Rect of the active window
GetWindowRect temphWnd%, xyTempRect
' Determine new X coordinate
iTempX% = ((xyTempRect.wright - 1) - (xyTempRect.wleft)) + iXPixels%
' Determine new Y coordinate
iTempY% = ((xyTempRect.bottom - 1) - (xyTempRect.top)) + iYPixels%
' size the window
WSetWndSiz GetForegroundWindow(), iTempX%, iTempY%
END IF
END SUB
'
' XMoveActiveWindow(iXPixels, iYPixels, fAbsOrRel)
'
' Description:
' Moves the top-left corner of the active window
' to new coordiates iXPixels, iYPixels. IF fAbsOrRel
' is TRUE, the coordiates are absolute. IF fAbsOrRel
' is FALSE, the coordiates are relative to the current
' position.
'
' Parameters:
' iXPixels - X coordinate
' iYPixels - Y coordinate
' IF !fAbsOrRel FALSE, the X,Y coordinates are relative to the
' current mouse coordianates.
'
' Returns:
' nothing
'
' Example:
' XMoveActiveWindow iXPixels, iYPixels, fAbsOrRel
'
'
SUB XMoveActiveWindow (iXPixels%, iYPixels%, fAbsOrRel%) STATIC
DIM xyTempRect As Rect
DIM iTempX%
DIM iTempY%
DIM temphWnd%
IF fAbsOrRel% THEN
WSetWndPos GetForegroundWindow(), iXPixels%, iYPixels%
ELSE
' Find the active window
temphWnd% = GetForegroundWindow
' Get the Rect of the active window
GetWindowRect temphWnd%, xyTempRect
' Determine new X coordinate
iTempX% = xyTempRect.wleft + iXPixels%
' Determine new Y coordinate
iTempY% = xyTempRect.top + iYPixels%
' move the window
WSetWndPos GetForegroundWindow(), iTempX%, iTempY%
END IF
END SUB
