Gets information for a split button control
#include <GuiButton.au3>
_GUICtrlButton_SetSplitInfo ( $hWnd [, $hImlGlyph = -1 [, $iSplitStyle = $BCSS_ALIGNLEFT [, $iWidth = 0 [, $iHeight = 0]]]] )
| $hWnd | Control ID/Handle to the control |
| $hImlGlyph | [optional] Handle to the image list |
| $iSplitStyle | [optional] The split button style. Value must be one or more of the following flags. $BCSS_ALIGNLEFT - Align the image or glyph horizontally with the left margin $BCSS_IMAGE - Draw an icon image as the glyph $BCSS_NOSPLIT - No split $BCSS_STRETCH - Stretch glyph, but try to retain aspect ratio |
| $iWidth | [optional] Width of the glyph |
| $iHeight | [optional] Height of the glyph |
| Success: | True. |
| Failure: | False. |
This function works only with the $BS_SPLITBUTTON and $BS_DEFSPLITBUTTON button styles.
Windows Vista or later.
Search BCM_SETSPLITINFO in MSDN Library.
#include <Extras\WM_NOTIFY.au3>
#include <GuiButton.au3>
#include <GUIConstantsEx.au3>
#include <GuiMenu.au3>
#include <WindowsConstants.au3>
Global $g_hBtn, $g_idMemo, $g_hBtn2
; Note: The handle from these buttons can NOT be read with GUICtrlRead
Example()
Func Example()
Local $hGUI = GUICreate("Button Set SplitInfo (v" & @AutoItVersion & ")", 400, 400)
$g_idMemo = GUICtrlCreateEdit("", 10, 100, 390, 284, $WS_VSCROLL)
GUICtrlSetFont($g_idMemo, 9, 400, 0, "Courier New")
$g_hBtn = _GUICtrlButton_Create($hGUI, "Split Button", 10, 10, 120, 30, $BS_SPLITBUTTON)
_GUICtrlButton_SetSplitInfo($g_hBtn)
$g_hBtn2 = _GUICtrlButton_Create($hGUI, "Split Button 2", 10, 50, 120, 30, $BS_SPLITBUTTON)
GUIRegisterMsg($WM_COMMAND, "WM_COMMAND")
_WM_NOTIFY_Register($g_idMemo)
GUISetState(@SW_SHOW)
Local $aInfo = _GUICtrlButton_GetSplitInfo($g_hBtn)
MemoWrite("Split Info" & @CRLF & "----------------")
For $x = 0 To 3
MemoWrite("$ainfo[" & $x & "] = " & $aInfo[$x])
Next
MemoWrite("Split Info" & @CRLF & "----------------")
While 1
Switch GUIGetMsg()
Case $GUI_EVENT_CLOSE
ExitLoop
EndSwitch
WEnd
Exit
EndFunc ;==>Example
; Write a line to the memo control
Func MemoWrite($sMessage)
GUICtrlSetData($g_idMemo, $sMessage & @CRLF, 1)
EndFunc ;==>MemoWrite
Func WM_NOTIFY($hWnd, $iMsg, $wParam, $lParam)
#forceref $hWnd, $iMsg, $wParam
Local Const $BCN_HOTITEMCHANGE = -1249
Local $tagNMBHOTITEM = $tagNMHDR & ";dword dwFlags"
Local $tNMBHOTITEM = DllStructCreate($tagNMBHOTITEM, $lParam)
Local $iCode = DllStructGetData($tNMBHOTITEM, "Code")
Local $hWndFrom = DllStructGetData($tNMBHOTITEM, "hWndFrom")
Local $iFlags = DllStructGetData($tNMBHOTITEM, "dwFlags")
Local $sText = ""
Switch $iCode
Case $BCN_HOTITEMCHANGE ; Win XP and Above
$sText = "Text=" & _GUICtrlButton_GetText($hWndFrom)
If BitAND($iFlags, 0x10) = 0x10 Then
_WM_NOTIFY_DebugEvent("$BCN_HOTITEMCHANGE - Entering", $tagNMBHOTITEM, $lParam, "IDFrom", $sText)
ElseIf BitAND($iFlags, 0x20) = 0x20 Then
_WM_NOTIFY_DebugEvent("$BCN_HOTITEMCHANGE - Leaving", $tagNMBHOTITEM, $lParam, "IDFrom", $sText)
EndIf
Case $BCN_DROPDOWN
MemoWrite("$BCN_DROPDOWN")
_Popup_Menu($hWndFrom)
EndSwitch
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_NOTIFY
Func _Popup_Menu($hCtrl)
Local $hMenu
Local Enum $e_idOpen = 1000, $e_idSave, $e_idInfo
$hMenu = _GUICtrlMenu_CreatePopup()
_GUICtrlMenu_InsertMenuItem($hMenu, 0, "Open", $e_idOpen)
_GUICtrlMenu_InsertMenuItem($hMenu, 1, "Save", $e_idSave)
_GUICtrlMenu_InsertMenuItem($hMenu, 3, "", 0)
_GUICtrlMenu_InsertMenuItem($hMenu, 3, "Info", $e_idInfo)
Switch _GUICtrlMenu_TrackPopupMenu($hMenu, $hCtrl, -1, -1, 1, 1, 2)
Case $e_idOpen
MemoWrite("Open - Selected")
Case $e_idSave
MemoWrite("Save - Selected")
Case $e_idInfo
MemoWrite("Info - Selected")
EndSwitch
_GUICtrlMenu_DestroyMenu($hMenu)
EndFunc ;==>_Popup_Menu
; React on a button click
Func WM_COMMAND($hWnd, $iMsg, $wParam, $lParam)
#forceref $hWnd, $iMsg
Local $iCode = BitShift($wParam, 16)
Local $hCtrl = $lParam
Local $sCode, $sText
Switch $hCtrl
Case $g_hBtn, $g_hBtn2
Switch $iCode
Case $BN_CLICKED
$sCode = "$BN_CLICKED"
Case $BN_PAINT
$sCode = "$BN_PAINT"
Case $BN_PUSHED
$sCode = "$BN_PUSHED"
Case $BN_HILITE
$sCode = "$BN_HILITE"
Case $BN_UNPUSHED
$sCode = "$BN_UNPUSHED"
Case $BN_UNHILITE
$sCode = "$BN_UNHILITE"
Case $BN_DISABLE
$sCode = "$BN_DISABLE"
Case $BN_DBLCLK
$sCode = "$BN_DBLCLK"
Case $BN_DOUBLECLICKED
$sCode = "$BN_DOUBLECLICKED"
Case $BN_SETFOCUS
$sCode = "$BN_SETFOCUS"
Case $BN_KILLFOCUS
$sCode = "$BN_KILLFOCUS"
EndSwitch
$sText = "Text=" & _GUICtrlButton_GetText($hCtrl)
_WM_NOTIFY_DebugEvent($sCode, $tagNMHDR, $lParam, "IDFrom", $sText)
Return 0 ; Only workout clicking on the button
EndSwitch
; Proceed the default AutoIt3 internal message commands.
; You also can complete let the line out.
; !!! But only 'Return' (without any value) will not proceed
; the default AutoIt3-message in the future !!!
Return $GUI_RUNDEFMSG
EndFunc ;==>WM_COMMAND