Custom Query (3931 matches)

Summary says it all really. Just like feature request #39.

From Beta 3.2.11.6 - ENTER - doesn't work on GUISetAccelerators, worked fine on 3.2.11.5.

#include <GUIConstantsEx.au3>

GUICreate("Custom Msgbox", 280, 80)

GUICtrlCreateLabel("Please click a button!", 10, 10)
$YesID = GUICtrlCreateButton("Yes", 10, 50, 50, 20)
$NoID = GUICtrlCreateButton("No", 80, 50, 50, 20)
$ExitID = GUICtrlCreateButton("Exit", 150, 50, 50, 20)
$EnterID = GUICtrlCreateButton("Enter", 220, 50, 50, 20)

; Set accelerators for Ctrl+y and Ctrl+n
Dim $AccelKeys[3][2]=[["^y", $YesID], ["^n", $NoID],["{ENTER}", $EnterID]]
GUISetAccelerators($AccelKeys)

GUISetState()  ; display the GUI

Do
	$msg = GUIGetMsg()

	Select
		Case $msg = $YesID
			MsgBox(0, "You clicked on", "Yes")
		Case $msg = $NoID
			MsgBox(0, "You clicked on", "No")
		Case $msg = $ExitID
			MsgBox(0, "You clicked on", "Exit")
		Case $msg = $EnterID
			MsgBox(0, "You clicked on", "Enter")	
		Case $msg = $GUI_EVENT_CLOSE
			MsgBox(0, "You clicked on", "Close")
	EndSelect
Until $msg = $GUI_EVENT_CLOSE Or $msg = $ExitID

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