| 1 | ; #FUNCTION# =====================================================
|
|---|
| 2 | ; Name...........: __GUICtrlTab_ClickTab
|
|---|
| 3 | ; Description ...: Clicks a tab
|
|---|
| 4 | ; Syntax.........: _GUICtrlTab_ClickTab($hWnd, $iIndex[, $sButton = "left"[, $fMove = False[,
|
|---|
| 5 | ; $iClicks = 1[, $iSpeed = 1]]]])
|
|---|
| 6 | ; Parameters ....: $hWnd - Handle to control
|
|---|
| 7 | ; $iIndex - Specifies the zero based index of the item
|
|---|
| 8 | ; $fButton - Button to click with
|
|---|
| 9 | ; $fMove - If True, the mouse will be moved.
|
|---|
| 10 | ; - If False, the mouse does not move.
|
|---|
| 11 | ; $iClicks - Number of clicks
|
|---|
| 12 | ; $iSpeed - Mouse movement speed
|
|---|
| 13 | ; Return values .:
|
|---|
| 14 | ; Author ........: Paul Campbell (PaulIA)
|
|---|
| 15 | ; Modified.......: Gary Frost (gafrost)
|
|---|
| 16 | ; : PsaltyDS - Modified to use ControlClick() when $fMove = False so window
|
|---|
| 17 | ; does not have to be active
|
|---|
| 18 | ; Remarks .......:
|
|---|
| 19 | ; Related .......:
|
|---|
| 20 | ; Link ..........;
|
|---|
| 21 | ; Example .......; Yes
|
|---|
| 22 | ; ================================================================
|
|---|
| 23 | Func __GUICtrlTab_ClickTab($hwnd, $iIndex, $sButton = "left", $fMove = False, $iClicks = 1, $iSpeed = 1)
|
|---|
| 24 | Local $iX, $iY, $tPoint, $tRect, $iMode, $aPos, $hWinParent, $avTabPos
|
|---|
| 25 | If $Debug_TAB Then _GUICtrlTab_ValidateClassName($hwnd)
|
|---|
| 26 | If Not IsHWnd($hwnd) Then $hwnd = GUICtrlGetHandle($hwnd)
|
|---|
| 27 |
|
|---|
| 28 | If Not $fMove Then
|
|---|
| 29 | ; Don't move mouse, use ControlClick()
|
|---|
| 30 | $hWinParent = _WinAPI_GetParent($hwnd)
|
|---|
| 31 | $avTabPos = _GUICtrlTab_GetItemRect($hwnd, $iIndex)
|
|---|
| 32 | $iX = $avTabPos[0] + (($avTabPos[2] - $avTabPos[0]) / 2)
|
|---|
| 33 | $iY = $avTabPos[1] + (($avTabPos[3] - $avTabPos[1]) / 2)
|
|---|
| 34 | ControlClick($hWinParent, "", $hwnd, $sButton, $iClicks, $iX, $iY)
|
|---|
| 35 | Else
|
|---|
| 36 | ; Original code to move mouse and click (requires active window)
|
|---|
| 37 | $tRect = _GUICtrlTab_GetItemRectEx($hwnd, $iIndex)
|
|---|
| 38 | $tPoint = _WinAPI_PointFromRect($tRect, True)
|
|---|
| 39 | $tPoint = _WinAPI_ClientToScreen($hwnd, $tPoint)
|
|---|
| 40 | _WinAPI_GetXYFromPoint($tPoint, $iX, $iY)
|
|---|
| 41 | $iMode = Opt("MouseCoordMode", 1)
|
|---|
| 42 | MouseClick($sButton, $iX, $iY, $iClicks, $iSpeed)
|
|---|
| 43 | Opt("MouseCoordMode", $iMode)
|
|---|
| 44 | EndIf
|
|---|
| 45 | EndFunc ;==>__GUICtrlTab_ClickTab
|
|---|
