Sign in to follow this  
Followers 0
ajit

GUISetAccelerators

7 posts in this topic

Hi,

I am trying to use this script (Guisetaccelerators) from helpfile (slightly modified).

After one use i want to unset all accelerators. The helpfile says "Passing this function a non-array will unset all accelerators for the given winhandle". What does this mean and how do I achieve it.

After one use it should not work.

Regards

Ajit

; A simple custom messagebox that uses the MessageLoop mode
#include <GUIConstantsEx.au3>
GUICreate("Custom Msgbox", 210, 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)
; Set accelerators for Ctrl+y and Ctrl+n
Dim $AccelKeys[2][2]=[["^y", $YesID], ["^n", $NoID]]
GUISetAccelerators($AccelKeys)
GUISetState()  ; display the GUI
Do
    $msg = GUIGetMsg()
    Select
        Case $msg = $YesID
            ConsoleWrite(@CRLF & "pressed Ctrl Y ")
        Case $msg = $NoID
           ConsoleWrite(@CRLF & "pressed Ctrl N ")
        Case $msg = $ExitID
            MsgBox(0, "You clicked on", "Exit")
        Case $msg = $GUI_EVENT_CLOSE
            MsgBox(0, "You clicked on", "Close")
    EndSelect
Until $msg = $GUI_EVENT_CLOSE Or $msg = $ExitID

Share this post


Link to post
Share on other sites



ajit,

Just do as the Help file suggests:

; A simple custom messagebox that uses the MessageLoop mode
#include <GUIConstantsEx.au3>

GUICreate("Custom Msgbox", 210, 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)

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

GUISetState() ; display the GUI

Do
    $msg = GUIGetMsg()
    Select
        Case $msg = $YesID
            ConsoleWrite(@CRLF & "pressed Ctrl Y ")
            GUISetAccelerators("") ; Remove acclerators <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
        Case $msg = $NoID
            ConsoleWrite(@CRLF & "pressed Ctrl N ")
            GUISetAccelerators("") ; Remove acclerators <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
        Case $msg = $ExitID
            MsgBox(0, "You clicked on", "Exit")
        Case $msg = $GUI_EVENT_CLOSE
            MsgBox(0, "You clicked on", "Close")
    EndSelect
Until $msg = $GUI_EVENT_CLOSE Or $msg = $ExitID

All clear? ;)

M23


Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind._______My UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Share this post


Link to post
Share on other sites

@Melba23

Thanks a lot for the quick reply. Worked fine.

Regards

Ajit

Share this post


Link to post
Share on other sites

@Melba,

Another question.

Can i use GUISetAccelerators to activate a function() in a script (like in a hotkeyset)? If yes, can you help me?

Regards

Ajit

Share this post


Link to post
Share on other sites

ajit,

Easy - use a dummy control like this: :)

; A simple custom messagebox that uses the MessageLoop mode
#include <GUIConstantsEx.au3>

GUICreate("Custom Msgbox", 210, 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)

$cDummy = GUICtrlCreateDummy() ; Create a dummy control

; Set accelerators for Ctrl+y and Ctrl+n and ctrl+f <<<<<<<<<<<<<<<<<<<<<
Dim $AccelKeys[3][2] = [["^y", $YesID],["^n", $NoID], ["^f", $cDummy]] ; <<<<<<<<<<<<<<<<<<<<<<
GUISetAccelerators($AccelKeys)

GUISetState() ; display the GUI

Do
    $msg = GUIGetMsg()
    Select
        Case $msg = $YesID
            ConsoleWrite(@CRLF & "pressed Ctrl Y ")
            GUISetAccelerators("") ; Remove acclerators <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
        Case $msg = $NoID
            ConsoleWrite(@CRLF & "pressed Ctrl N ")
            GUISetAccelerators("") ; Remove acclerators <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
        Case $msg = $ExitID
            MsgBox(0, "You clicked on", "Exit")
        Case $msg = $GUI_EVENT_CLOSE
            MsgBox(0, "You clicked on", "Close")
        Case $msg = $cDummy ; Run function when dummy action by accel key <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
            Function()
    EndSelect
Until $msg = $GUI_EVENT_CLOSE Or $msg = $ExitID

Func Function() ; Function to run <<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<
    MsgBox(0, "Hi", "I am run from within a function")
EndFunc

Good enough? ;)

M23


Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind._______My UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Share this post


Link to post
Share on other sites

@Melba

That worked fine.

Thanks for always being so helpful.

Regards

Ajit

Share this post


Link to post
Share on other sites

ajit,

Always a pleasure. ;)

M23


Any of my own code posted anywhere on the forum is available for use by others without any restriction of any kind._______My UDFs:

Spoiler

ArrayMultiColSort ---- Sort arrays on multiple columns
ChooseFileFolder ---- Single and multiple selections from specified path treeview listing
Date_Time_Convert -- Easily convert date/time formats, including the language used
ExtMsgBox --------- A highly customisable replacement for MsgBox
GUIExtender -------- Extend and retract multiple sections within a GUI
GUIFrame ---------- Subdivide GUIs into many adjustable frames
GUIListViewEx ------- Insert, delete, move, drag, sort, edit and colour ListView items
GUITreeViewEx ------ Check/clear parent and child checkboxes in a TreeView
Marquee ----------- Scrolling tickertape GUIs
NoFocusLines ------- Remove the dotted focus lines from buttons, sliders, radios and checkboxes
Notify ------------- Small notifications on the edge of the display
Scrollbars ----------Automatically sized scrollbars with a single command
StringSize ---------- Automatically size controls to fit text
Toast -------------- Small GUIs which pop out of the notification area

 

Share this post


Link to post
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0