Accelerators! but i use Opt("GUIOnEventMode", 1) :-(

[dasiuss]

Hi.

i have notepad with Opt("GUIOnEventMode", 1). when i try to use GUISetAccelerators, hotkeys dont work.

how can i set accelerator to gui with this option?

i think about something like:

$i = 0
while 1
if WinActive($gui) and $i=0 Then
    HotKeySet("{esc}","saveexit")
    $i = 1
EndIf
if not WinActive($gui) and $i=1 Then
    HotKeySet("{esc}")
    $i = 0
EndIf

...
...
...
WEnd

but this will slow down my processor (its already eating up to 20% of my processor).

any ideas?

[Melba23]

dasiuss,

Accelerators do work with OnEvent mode - as you can see here:

#include <GUIConstantsEx.au3>

Opt("GUIOnEventMode", 1)

$hGUI = GUICreate("Test", 500, 500)
GUISetOnEvent($GUI_EVENT_CLOSE, "CLOSEClicked")

$hButton = GUICtrlCreateButton("Press", 10, 10, 80, 30)
GUICtrlSetOnEvent(-1, "PressClicked")

GUISetState()

; Set accelerator key for button press
Dim $AccelKeys[1][2]=[["b", $hButton]]
GUISetAccelerators($AccelKeys)

While 1
    Sleep(10)
WEnd

Func PressClicked()
    MsgBox(0, "Button", "Pressed")
EndFunc

Func CLOSEClicked()
    Exit
EndFunc

If you press "b", you fire the button code.

Or do you have another problem?

M23

[dasiuss]

thx Melba.

it means than i have some other bug.

i will read this code again.

reagards.

Dasiuss