Custom Query (3931 matches)

Using guictrldelete() on a natively created listview which has had all its natively created items guictrldelete()'d causes a win32 exception in 3.2.11.6.

#include <guiconstantsex.au3>
#include <guilistview.au3>


$gui = guicreate("TEST", 500, 500)


$search_listview = guictrlcreatelistview("Items requiring follow-up", 10, 10, 480, 380, BitOr($GUI_SS_DEFAULT_LISTVIEW, $LVS_NOSORTHEADER))


$item1 = guictrlcreatelistviewitem("TEST", $search_listview)
$item2 = guictrlcreatelistviewitem("TEST", $search_listview)


$button = guictrlcreatebutton("GO", 200, 400, 100, 50)

guisetstate()




while 1=1
	$msg = guigetmsg()
	if $msg <> 0 Then
		switch $msg
			case $gui_event_close
				Exit
			case $button
				guisetstate(@SW_LOCK)
				guictrldelete($item1)
				guictrldelete($item2)
				guictrldelete($search_listview)
				guisetstate(@SW_UNLOCK)
		EndSwitch
	endif
wend

Add functionality to ProcessClose() or some related function... perhaps adding a function... that will close handles of any processes/threads that are keeping a file locked. Perhaps a flag on FileDelete that forces a file to be unlocked before deleting... But, I rather have a function just unlock and keep deleting seperate.

Toolbar button text accelerator prefix underscore disappears when a Button/Radio/Checkbox/Group control is added to GUI

Tested on 2 machines running XP SP2+ EN X86 AutoIt: Prod. v3.2.10.0, Beta v3.2.11.7

The problem is intermittent when run from SciTE, but consistent when compiled.

#include <GuiToolBar.au3>
#include <GuiConstantsEx.au3>
#include <Constants.au3>
#include <WindowsConstants.au3>

Opt("MustDeclareVars", 1)

_Main()

Func _Main()
	Local $hgui, $hToolbar, $Label
	Local Enum $idNew = 1000, $idOpen, $idSave, $idHelp
	Local $aStrings[4]
	Local $bStyle = BitOR($BTNS_SHOWTEXT, $BTNS_AUTOSIZE)

	$hgui = GUICreate(" Toolbar button text accelerator prefix underscore test", 400, 150)
	GUISetBkColor(0xd3d3d3, $hgui)
	$hToolbar = _GUICtrlToolbar_Create($hgui)

	_GUICtrlToolbar_AddBitmap($hToolbar, 1, -1, $IDB_STD_LARGE_COLOR)
	$aStrings[0] = _GUICtrlToolbar_AddString($hToolbar, "&New") ;chr(38) & "New"
	$aStrings[1] = _GUICtrlToolbar_AddString($hToolbar, "&Open");chr(38) & "Open"
	$aStrings[2] = _GUICtrlToolbar_AddString($hToolbar, "&Save");chr(38) & "Save"
	$aStrings[3] = _GUICtrlToolbar_AddString($hToolbar, "&Help");chr(38) & "Help"
	_GUICtrlToolbar_AddButton($hToolbar, $idNew, $STD_FILENEW, $aStrings[0], $bStyle)
	_GUICtrlToolbar_AddButton($hToolbar, $idOpen, $STD_FILEOPEN, $aStrings[1], $bStyle)
	_GUICtrlToolbar_AddButton($hToolbar, $idSave, $STD_FILESAVE, $aStrings[2], $bStyle)
	_GUICtrlToolbar_AddButtonSep($hToolbar)
	_GUICtrlToolbar_AddButton($hToolbar, $idHelp, $STD_HELP, $aStrings[3], $bStyle)
	
	GUISetState()
	Sleep(1500)
	; add any one of these controls to remove all of the toolbar accelerator prefix underscores
	;GUICtrlCreateGroup("Group",150, 110, 100, 25)
	;GUICtrlCreateRadio("Radio", 150, 110, 100, 25)
	;GUICtrlCreateCheckbox("Checkbox", 150, 110, 100, 25)
	GUICtrlCreateButton("Button", 150, 110, 100, 25)
	
	$Label = GUICtrlCreateLabel(" Toolbar button text underscores may or may not be removed." & @CR & _
			" The problem is intermittant when run from SciTE, but consistent when compiled.", 10, 60, 380, 40)
	GUICtrlSetBkColor($Label, 0XFFFFFF)
	
	For $i = 0 To 3
		ConsoleWrite("-> BtnText:" & @TAB & _GUICtrlToolbar_GetButtonText($hToolbar, $i + 1000) & @CRLF)
		ConsoleWrite("-> StringPool:" & @TAB & _GUICtrlToolbar_GetString($hToolbar, $i) & @CRLF)
		ConsoleWrite("-> BtnStyle:" & @TAB & _GUICtrlToolbar_GetButtonStyle($hToolbar, $i + 1000) & @CRLF)
	Next
	
	Do
	Until GUIGetMsg() = $GUI_EVENT_CLOSE

EndFunc   ;==>_Main