Modify

Opened 17 years ago

Closed 17 years ago

Last modified 17 years ago

#211 closed Bug (No Bug)

GUICtrlToolbar UDF: Button text accelerator prefix underscore disappears

Reported by: rover Owned by: Gary
Milestone: Component: Standard UDFs
Version: 3.2.11.7 Severity:
Keywords: _GUICtrlToolBar_Create(), beta Cc:

Description

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

Attachments (0)

Change History (2)

comment:1 Changed 17 years ago by Valik

  • Resolution set to No Bug
  • Status changed from new to closed

I'm assuming that you have the option selected to "Hide underlined letters for keyboard navigation until I press the Alt key" checked (Display Properties -> Effects). Whenever I disable this option, I correctly see the underline always. When this option is enabled, you shouldn't expect to see the underline until you press the Alt key.

I don't see any behavior here that is bug-worthy.

comment:2 Changed 17 years ago by rover

Thanks Valik, That was it.

Guidelines for posting comments:

  • You cannot re-open a ticket but you may still leave a comment if you have additional information to add.
  • In-depth discussions should take place on the forum.

For more information see the full version of the ticket guidelines here.

Add Comment

Modify Ticket

Action
as closed The owner will remain Gary.
Author


E-mail address and user name can be saved in the Preferences.

 
Note: See TracTickets for help on using tickets.