Custom Query (3931 matches)

Ref: [Trac #45] An embedded progress bar control embedded with _GUICtrlStatusBar_EmbedControl() will disappear when the GUI is re-sized. This was previously reported, and it was also reported that if the progress was a marquee type it could also crash.

While the crash issue with the marquee progress bar was discussed and dismissed as not being AutoIt's problem, the original complaint that an ordinary progress control disappears when the the window is re-sized did not get addressed.

Users are still running into and seeking a solution for the original issue (aside from the crash with the marquee type). Even completely destroying and recreating the progress bars and status bar on re-size still won't display them (3.2.12.1 and 3.2.13.11).

#include <GUIConstantsEx.au3>
#include <GuiStatusBar.au3>
#include <WindowsConstants.au3>

Global $Form1, $hStatusBar, $progress, $hProgress, $progress2, $hProgress2
Global $StatusBar1_PartsWidth[3] = [100, 200, 250]

$Form1 = GUICreate("Form1", 401, 201, 440, 224, BitOR($WS_THICKFRAME, _
	$WS_SYSMENU, $WS_CAPTION, $WS_POPUP))
_StatusBarUpdate()
GUIRegisterMsg($WM_SIZE, "WM_SIZE")
GUISetState(@SW_SHOW)

While 1
	$nMsg = GUIGetMsg()
	Switch $nMsg
		Case $GUI_EVENT_CLOSE
			Exit
	EndSwitch
WEnd

Func WM_SIZE($hWnd, $iMsg, $iwParam, $ilParam)
	_StatusBarUpdate()
	Return $GUI_RUNDEFMSG
EndFunc   ;==>WM_SIZE

Func _StatusBarUpdate()
	ConsoleWrite("Debug: Updating statusbar" & @LF)
	GUICtrlDelete($progress)
	GUICtrlDelete($progress2)
	_GUICtrlStatusBar_Destroy($hStatusBar)
	$hStatusBar = _GUICtrlStatusBar_Create($Form1)
	_GUICtrlStatusBar_SetParts($hStatusBar, $StatusBar1_PartsWidth)
	_GUICtrlStatusBar_SetText($hStatusBar, "Ready", 0)
	$progress = GUICtrlCreateProgress(0, 0, -1, -1)
	$hProgress = GUICtrlGetHandle($progress)
	_GUICtrlStatusBar_EmbedControl($hStatusBar, 1, $hProgress)
	$progress2 = GUICtrlCreateProgress(0, 0, -1, -1)
	$hProgress2 = GUICtrlGetHandle($progress2)
	_GUICtrlStatusBar_EmbedControl($hStatusBar, 2, $hProgress2)
EndFunc   ;==>_StatusBarUpdate

In the below example tabs 5-7 do not send the WM_NOTIFY message and display the wrong tooltips.

#include <GUIConstantsEx.au3>
#include <TabConstants.au3>
#include <WindowsConstants.au3>
#include <GUITab.au3>
#include <GUITooltip.au3>

$Form2 = GUICreate("Programs", 472, 348, 226, 125)
$Tab1 = GUICtrlCreateTab(0, 0, 465, 321)

; Create Tooltiop control
Global Const $TABHANDLE = GUICtrlGetHandle($Tab1)
$hToolTip = _GUIToolTip_Create($TABHANDLE)
_GUICtrlTab_SetToolTips($TABHANDLE,$hToolTip)
; end create

$TabSheet1 = GUICtrlCreateTabItem("Main")
_GUIToolTip_AddTool($hToolTip,$TABHANDLE,"tab1", $TabSheet1)
$TabSheet2 = GUICtrlCreateTabItem("Black Listed")
_GUIToolTip_AddTool($hToolTip,$TABHANDLE,"tab2", $TabSheet2)
$TabSheet3 = GUICtrlCreateTabItem("StartUp Items")
_GUIToolTip_AddTool($hToolTip,$TABHANDLE,"tab3", $TabSheet3)
$TabSheet4 = GUICtrlCreateTabItem("Task Manager")
_GUIToolTip_AddTool($hToolTip,$TABHANDLE,"tab4", $TabSheet4)
$TabSheet5 = GUICtrlCreateTabItem("Scan USB")
_GUIToolTip_AddTool($hToolTip,$TABHANDLE,"tab5", $TabSheet5)
$TabSheet6 = GUICtrlCreateTabItem("Pc Info")
_GUIToolTip_AddTool($hToolTip,$TABHANDLE,"tab6", $TabSheet6)
$TabSheet7 = GUICtrlCreateTabItem("About")
_GUIToolTip_AddTool($hToolTip,$TABHANDLE,"tab7", $TabSheet7)

GUICtrlCreateTabItem("")

GUIRegisterMsg($WM_NOTIFY,"TOOL_WM_NOTIFY")
;End Define Tooltips

GUISetState()

While 1
    $Msg = GUIGetMsg()
    Switch $Msg
        Case $GUI_EVENT_CLOSE
            Exit
    EndSwitch
WEnd

; Prog@ndy
Func TOOL_WM_NOTIFY($hWndGUI, $MsgID, $wParam, $lParam)
    Local $tagNMTTDISPINFOA = "hwnd hWndFrom;int IDFrom;int Code;ptr lpszText;char szText[80];hwnd hinst;uint uFlags;"
    Local $tagNMTTDISPINFOW = "hwnd hWndFrom;int IDFrom;int Code;ptr lpszText;wchar szText[80];hwnd hinst;uint uFlags;"
    Local $NMHDR = DllStructCreate($tagNMTTDISPINFOW, $lParam)
   
    Local $hWndFrom = DllStructGetData($NMHDR, 1)
    Local $IdFrom = DllStructGetData($NMHDR, 2)
    Local $Event = DllStructGetData($NMHDR, 3)
    Switch $Event
        Case $TTN_GETDISPINFOW, $TTN_GETDISPINFO
            If $TTN_GETDISPINFO == $Event Then $NMHDR = DllStructCreate($tagNMTTDISPINFOA, $lParam) ; For ANSI
            If $hwndFrom == $hToolTip Then
                Local $param = _GUICtrlTab_GetItemParam($TABHANDLE, $IdFrom)
		Local $text = _GUIToolTip_GetText($hwndFrom, $TABHANDLE, $param)
                ConsoleWrite("tab: " & $IdFrom & ",  param: " & $param & @CRLF)
                ConsoleWrite("text: " & $text & @CRLF)
                DllStructSetData($NMHDR, "szText", $text & Chr(0))
            EndIf
            Return 0
    EndSwitch
    Return $GUI_RUNDEFMSG
EndFunc   ;==>TOOL_WM_NOTIFY

In attempt to make a uTorrent auto install script.

OS = Windows XP Pro/Home SP3 uTorrent Install Program Source: ​http://download.utorrent.com/1.8.1/utorrent.exe

Note: Installation target must not have a previous uTorrent install/uninstall, otherwise, the setup routine will not come out. If you need to uninstall uTorrent, registry keys associated with uTorrent must be completely sweep out with 3rd party utility.

AutoIt Script:

#region --- ScriptWriter generated code Start ---
Opt("WinWaitDelay",100)
Opt("WinTitleMatchMode",4)
Opt("WinDetectHiddenText",1)
Opt("MouseCoordMode",0)
Run('utorrent.exe')
WinWait("μTorrent Setup","Create Start menu en")
If Not WinActive("μTorrent Setup","Create Start menu entry") Then WinActivate("μTorrent Setup","Create Start menu entry")
WinWaitActive("μTorrent Setup","Create Start menu entry")
Send("{TAB}{TAB}{TAB}{SPACE}{TAB}{SPACE}{TAB}{ALTDOWN}i{ALTUP}")
WinWait("μTorrent","Would you like to ma")
If Not WinActive("μTorrent","Would you like to ma") Then WinActivate("μTorrent","Would you like to ma")
WinWaitActive("μTorrent","Would you like to ma")
Send("{ALTDOWN}y{ALTUP}")
WinWait("Speed Guide","Choose the upload sp")
If Not WinActive("Speed Guide","Choose the upload sp") Then WinActivate("Speed Guide","Choose the upload sp")
WinWaitActive("Speed Guide","Choose the upload sp")
Send("{ALTDOWN}c{ALTUP}")
WinWait("μTorrent 1.8.1","")
If Not WinActive("μTorrent 1.8.1","") Then WinActivate("μTorrent 1.8.1","")
WinWaitActive("μTorrent 1.8.1","")
Send("{ALTDOWN}fx{ALTUP}")
WinWait("μTorrent","Do you really want t")
If Not WinActive("μTorrent","Do you really want t") Then WinActivate("μTorrent","Do you really want t")
WinWaitActive("μTorrent","Do you really want t")
Send("{ALTDOWN}y{ALTUP}")
#endregion --- ScriptWriter generated code End ---

the above AutoIt script just stopped at the very first setup window screen. As you can see the "Title" and "Visible Text" are all matched with the WinActive("μTorrent Setup","Create Start menu entry") as indicated by Autoit Windows Info: