Custom Query (3931 matches)

Hi,

on my CPU 1,8 Ghz Pentium M XP SP 2 I cannot create 300 GUIs. CPU is 100 %.

#include<WindowsConstants.au3>

;~ Maximum number of GUI windows: No limit ????

HotKeySet('{ESC}', '_end')
HotKeySet('1', '_create')
HotKeySet('2', '_idle')

_create()

Func _create()
	For $i = 0 To 1000
		GUICreate($i, Random(10, 100, 1), Random(10, 50, 1), _
				Random(0, @DesktopWidth - 110, 1), Random(0, @DesktopHeight - 60, 1), _
				$WS_POPUP, BitOR($WS_EX_TOOLWINDOW, $WS_EX_TOPMOST))
		GUISetBkColor(_randomColor())
		GUISetState()
		ToolTip($i, 0, 0)
		Sleep(5)
	Next
EndFunc   ;==>_create

Func _idle()
	ConsoleWrite('! idle' & @CRLF)
	While 1
		Sleep(10000)
	WEnd
EndFunc   ;==>_idle

Func _randomColor()
	Return Random(0x000000, 0xFFFFFF)
EndFunc   ;==>_randomColor

Func _end()
	Exit (0)
EndFunc   ;==>_end

Link thread :​http://www.autoitscript.com/forum/index.php?showtopic=66925

Mega

This is the same issue from v3.2.5.1. ​http://www.autoitscript.com/forum/index.php?showtopic=50553

The controls are all slightly squashed. In a 653 height GUI form, there is now about 20 pixels of empty space at the bottom. When I run the same script with 3.2.10.0 there is no squashing.

In particular, groups, list boxes and the tab text on tab controls are all slightly smaller. Vertical space between objects has also changed. Width does not appear to have changed, only height.

If the 'squishing' were uniform it wouldn't be too much of a problem, but the controls no longer fit as designed (they are a bit tightly packed).

#include <GUIConstantsEX.au3>
#include <EditConstants.au3>
#include <WindowsConstants.au3>
#include <ListBoxConstants.au3>
#include <ButtonConstants.au3>

Global $Form1 = GUICreate("", 622, 653, 199, 120)
Global $tb_Results = GUICtrlCreateEdit("", 0, 501, 620, 111, BitOR ($ES_READONLY, $WS_HSCROLL, $WS_VSCROLL))
GUICtrlSetFont(-1, 9, 400, 0, "Terminal")
Global $AGroup1 = GUICtrlCreateGroup("Folders", 0, 40, 337, 172)
Global $btn_AddBuild = GUICtrlCreateButton("Add", 280, 54, 50, 20, 0)
GUICtrlSetFont(-1, 8, 800, 0, "MS Sans Serif")
Global $lbl_bVersion = GUICtrlCreateLabel("[0.0.0.0]", 8, 144, 267, 17)
GUICtrlSetFont(-1, 12, 800, 0, "Terminal")
Global $lbl_bdASzip = GUICtrlCreateLabel("[File Not Found]", 8, 160, 267, 17)
Global $lbl_bdBLWebZip = GUICtrlCreateLabel("[File Not Found]", 8, 176, 267, 17)
Global $btn_bdUpdate = GUICtrlCreateButton("Update", 280, 184, 50, 20, 0)
Global $btn_bdRemove = GUICtrlCreateButton("Remove", 280, 80, 50, 20, 0)
Global $list_bdList = GUICtrlCreateList("", 5, 54, 273, 87, BitOR ($LBS_SORT, $LBS_NOINTEGRALHEIGHT, $LBS_STANDARD, $WS_VSCROLL, $WS_BORDER))
GUICtrlSetFont(-1, 8, 400, 0, "Lucida Console")
Global $lbl_bdASWSZip = GUICtrlCreateLabel("[File Not Found]", 8, 192, 267, 17)
Global $btn_BrowseBF = GUICtrlCreateButton("Browse", 280, 120, 50, 20, 0)
Global $btn_Scan = GUICtrlCreateButton("Scan", 280, 152, 50, 17, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $AGroup2 = GUICtrlCreateGroup(">>>>>>> setup <<<<<<<", 0, 360, 198, 137)
Global $tb_Server = GUICtrlCreateInput("", 72, 376, 121, 21)
GUICtrlCreateLabel("Server", 8, 380, 59, 17)
GUICtrlCreateLabel("User", 8, 404, 50, 17)
GUICtrlCreateLabel("PW", 8, 428, 46, 17)
Global $tb_User = GUICtrlCreateInput("", 72, 400, 121, 21)
Global $tb_PW = GUICtrlCreateInput("", 72, 424, 121, 21, BitOR ($ES_PASSWORD, $ES_AUTOHSCROLL))
Global $btn_SQLSave = GUICtrlCreateButton("Save", 104, 472, 34, 20, 0)
Global $tb_Master = GUICtrlCreateInput("", 72, 448, 121, 21)
Global $btn_Help = GUICtrlCreateButton("Help", 8, 472, 34, 20, 0)
Global $btn_IIS = GUICtrlCreateButton("IIS", 48, 472, 50, 20, 0)
Global $btn_GetDBs = GUICtrlCreateButton("DBs", 144, 472, 49, 20, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $AGroup4 = GUICtrlCreateGroup("", 340, 0, 281, 358)
Global $list_DBs = GUICtrlCreateList("", 344, 32, 140, 295, BitOR ($LBS_SORT, $LBS_NOINTEGRALHEIGHT, $LBS_DISABLENOSCROLL, $LBS_STANDARD, $WS_HSCROLL, $WS_VSCROLL, $WS_BORDER))
GUICtrlSetFont(-1, 8, 400, 0, "Lucida Console")
Global $btn_CompRefresh = GUICtrlCreateButton("Refresh", 347, 330, 57, 20, 0)
Global $list_DBsSelected = GUICtrlCreateList("", 487, 32, 129, 295, BitOR ($LBS_SORT, $LBS_NOINTEGRALHEIGHT, $LBS_STANDARD, $WS_HSCROLL, $WS_VSCROLL, $WS_BORDER))
GUICtrlSetFont(-1, 8, 400, 0, "Lucida Console")
Global $lbl_Available = GUICtrlCreateLabel("Available", 388, 16, 79, 17)
Global $lbl_Selected = GUICtrlCreateLabel("Selected", 516, 16, 70, 17)
Global $btn_SelectAll = GUICtrlCreateButton("Select All", 452, 330, 65, 20, 0)
Global $btn_Clear = GUICtrlCreateButton("Clear", 556, 330, 57, 20, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $pb_Progress = GUICtrlCreateProgress(0, 615, 620, 17)
GUICtrlSetData(-1, 25)
GUICtrlSetResizing(-1, $GUI_DOCKAUTO)
Global $AGroup3 = GUICtrlCreateGroup("Group3", 200, 360, 421, 105)
Global $btn_InstallSQL = GUICtrlCreateButton("1", 500, 392, 105, 19, $BS_LEFT)
Global $btn_InstallWeb = GUICtrlCreateButton("2", 344, 370, 145, 19, $BS_LEFT)
Global $btn_InstallASWS = GUICtrlCreateButton("3", 500, 370, 105, 19, $BS_LEFT)
Global $btn_InstallRG = GUICtrlCreateButton("4", 344, 392, 145, 19, $BS_LEFT)
Global $btn_IIS2 = GUICtrlCreateButton("5", 500, 414, 105, 19, $BS_LEFT)
Global $btn_DBBuilder = GUICtrlCreateButton("6", 344, 414, 145, 19, $BS_LEFT)
Global $btn_InstallAll = GUICtrlCreateButton("7", 429, 438, 105, 19, 0)
Global $btn_ClearInstallFlags = GUICtrlCreateButton("C", 584, 444, 33, 17, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
GUICtrlCreateGroup("Profiles", 0, 0, 337, 41)
Global $cb_Profile = GUICtrlCreateCombo("Default", 8, 14, 209, 25)
GUICtrlSetData(-1, "Default")
Global $btn_AddProfile = GUICtrlCreateButton("Add", 223, 14, 50, 20, 0)
Global $btn_DelProfile = GUICtrlCreateButton("Del", 279, 14, 50, 20, 0)
GUICtrlCreateGroup("", -99, -99, 1, 1)
Global $tb_DBBuilder = GUICtrlCreateInput('', 288, 472, 283, 21)
Global $btn_DBBuilderSave = GUICtrlCreateButton("Save", 576, 472, 41, 25, 0)
Global $tab_WebFolders = GUICtrlCreateTab(0, 213, 284, 146)
GUICtrlSetResizing(-1, $GUI_DOCKWIDTH + $GUI_DOCKHEIGHT)
Global $TabSheet1 = GUICtrlCreateTabItem("BW")
Global $list_WebFolders = GUICtrlCreateList("", 4, 239, 275, 116, BitOR ($LBS_SORT, $LBS_NOINTEGRALHEIGHT, $WS_BORDER))
GUICtrlSetFont(-1, 9, 400, 0, "Arial")
Global $TabSheet2 = GUICtrlCreateTabItem("AW")
Global $list_ASWSFolders = GUICtrlCreateList("", 4, 239, 275, 116, BitOR ($LBS_SORT, $LBS_NOINTEGRALHEIGHT, $WS_BORDER))
GUICtrlSetFont(-1, 9, 400, 0, "Arial")
Global $TabSheet3 = GUICtrlCreateTabItem("RG")
Global $list_RGFolders = GUICtrlCreateList("", 4, 239, 275, 116, BitOR ($LBS_SORT, $LBS_NOINTEGRALHEIGHT, $WS_BORDER))
GUICtrlSetFont(-1, 9, 400, 0, "Arial")
GUICtrlCreateTabItem("")
Global $btn_AddWebFolder = GUICtrlCreateButton("Add", 286, 237, 50, 20, 0)
Global $btn_RemoveWebFolder = GUICtrlCreateButton("Remove", 286, 262, 50, 20, 0)
Global $btn_BrowseWebFolder = GUICtrlCreateButton("...", 286, 287, 50, 20, 0)
Global $lbl_Master = GUICtrlCreateLabel("?", 288, 312, 51, 41)
Global $mnu_File = GUICtrlCreateMenu("&File")
Global $mnu_Exit = GUICtrlCreateMenuItem("Exit", $mnu_File)
GUISetState(@SW_SHOW)
Global $msg

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

Thanks! Rick

When you set accelerators to be used in a window (using GUISetAccelerators()), other windows also end up "inheriting" the accelerator table from the first window to get accelerators set. Attempting to override accelerator tables in the subsequent windows does not work as expected either.

Checking for window focus in the callback function usually works fine in many cases, but sometimes fails. For example, if keyboard shortcuts with normally "well-defined" behaviors (like {DELETE} or {ENTER} in input/edit controls) are associated with GUI window, then such an edit control in another window would never properly receive the {DELETE} or {ENTER}.

Here's a simple(ish) test script:

#Include <GUIConstantsEx.au3>

; Dialog 1 --------------
Global $Dialog1 = GUICreate("Dialog 1", 320, 240)
Global $Dummy = GUICtrlCreateDummy()

Global $Dialog1Accelerators[1][2] = [["{ENTER}", $Dummy]]
GUISetAccelerators($Dialog1Accelerators, $Dialog1)

; Dialog 2 --------------
Global $Dialog2 = GUICreate("Dialog 2", 210, 160)
Global $Edit = GUICtrlCreateEdit("", 5, 5)

Global $Dialog2Accelerators[1][2] = [["{ENTER}", $Edit]]
GUISetAccelerators($Dialog2Accelerators, $Dialog2)

; Miscellaneous ---------
GUISetState(@SW_SHOW, $Dialog1)
GUISetState(@SW_SHOW, $Dialog2)

While 1
    Switch GUIGetMsg()
        Case $GUI_EVENT_CLOSE
            Exit
        Case $Dummy
            MsgBox(0, "Dummy", "Hotkey caught by Dialog 1!")
        Case $Edit
            MsgBox(0, "Edit", "Hotkey caught by Dialog 2!")
    EndSwitch
WEnd

An (interesting?) aside: depending on situation, the second dialog might actually catch a hotkey press. If you never modify the contents of the edit control, the second window never gets catches the hotkey. After you modify the edit control, though, it manages to catch the hotkey press.