Sign in to follow this  
Followers 0
BananaFredSoft

GUIRegisterMsg menu open/close

4 posts in this topic

#1 ·  Posted (edited)

Why doesn't this work? The label always stays as 0, but the functions still call.

Edit: New question: How would I get it so that it only checks if $msg = $item when the menu is exited (or whenever the item is clicked)?

#include <GUIConstants.au3>
$mopen = 0

$gui = GUICreate("")
$menu = GUICtrlCreateMenu("Menu")
$item = GUICtrlCreateMenuItem("Item", $menu)
$label = GUICtrlCreateLabel($mopen, 100, 0)

Global Const $WM_ENTERMENULOOP = 0x0211
Global Const $WM_EXITMENULOOP = 0x0212
GUIRegisterMsg($WM_ENTERMENULOOP, "EnterMenu")
GUIRegisterMsg($WM_EXITMENULOOP, "ExitMenu")

GUISetState()

While GUIGetMsg() <> $GUI_EVENT_CLOSE
    GUICtrlSetData($label, $mopen)
WEnd

Func EnterMenu ()
    Global $mopen = 1
EndFunc

Func ExitMenu ()
    Global $mopen = 0
EndFunc
Edited by BananaFredSoft

Share this post


Link to post
Share on other sites



Hi,

The label always stays as 0

Because when you open the menu, script is paused (the main loop stops), and the label updated only when you close the menu - and when you close it, function ExitMenu () is called :)..

Try this:

#include <GUIConstants.au3>
Global $mopen = 0

$gui = GUICreate("")
$menu = GUICtrlCreateMenu("Menu")
$item = GUICtrlCreateMenuItem("Item", $menu)
$label = GUICtrlCreateLabel($mopen, 100, 0)

Global Const $WM_ENTERMENULOOP = 0x0211
Global Const $WM_EXITMENULOOP = 0x0212
GUIRegisterMsg($WM_ENTERMENULOOP, "EnterMenu")
GUIRegisterMsg($WM_EXITMENULOOP, "ExitMenu")

GUISetState()

While GUIGetMsg() <> $GUI_EVENT_CLOSE
    If $mopen <> GUICtrlRead($label) Then GUICtrlSetData($label, $mopen)
WEnd

Func EnterMenu ()
    $mopen = 1
    GUICtrlSetData($label, $mopen)
EndFunc

Func ExitMenu ()
    $mopen = 0
EndFunc

 

Spoiler

Using OS: Win 7 Professional, Using AutoIt Ver(s): 3.3.6.1 / 3.3.8.1

AutoIt_Rus_Community.png AutoIt Russian Community

My Work...

Spoiler

AutoIt_Icon_small.pngProjects: ATT - Application Translate Tool {new}| BlockIt - Block files & folders {new}| SIP - Selected Image Preview {new}| SISCABMAN - SciTE Abbreviations Manager {new}| AutoIt Path Switcher | AutoIt Menu for Opera! | YouTube Download Center! | Desktop Icons Restorator | Math Tasks | KeyBoard & Mouse Cleaner | CaptureIt - Capture Images Utility | CheckFileSize Program

AutoIt_Icon_small.pngUDFs: OnAutoItErrorRegister - Handle AutoIt critical errors {new}| AutoIt Syntax Highlight {new}| Opera Library! | Winamp Library | GetFolderToMenu | Custom_InputBox()! | _FileRun UDF | _CheckInput() UDF | _GUIInputSetOnlyNumbers() UDF | _FileGetValidName() UDF | _GUICtrlCreateRadioCBox UDF | _GuiCreateGrid() | _PathSplitByRegExp() | _GUICtrlListView_MoveItems - UDF | GUICtrlSetOnHover_UDF! | _ControlTab UDF! | _MouseSetOnEvent() UDF! | _ProcessListEx - UDF | GUICtrl_SetResizing - UDF! | Mod. for _IniString UDFs | _StringStripChars UDF | _ColorIsDarkShade UDF | _ColorConvertValue UDF | _GUICtrlTab_CoverBackground | CUI_App_UDF | _IncludeScripts UDF | _AutoIt3ExecuteCode | _DragList UDF | Mod. for _ListView_Progress | _ListView_SysLink | _GenerateRandomNumbers | _BlockInputEx | _IsPressedEx | OnAutoItExit Handler | _GUICtrlCreateTFLabel UDF | WinControlSetEvent UDF | Mod. for _DirGetSizeEx UDF
 
AutoIt_Icon_small.pngExamples: 
ScreenSaver Demo - Matrix included | Gui Drag Without pause the script | _WinAttach()! | Turn Off/On Monitor | ComboBox Handler Example | Mod. for "Thinking Box" | Cool "About" Box | TasksBar Imitation Demo

Like the Projects/UDFs/Examples? Please rate the topic (up-right corner of the post header: Rating AutoIt_Rating.gif)

* === My topics === *

==================================================
My_Userbar.gif
==================================================

 

 

 

AutoIt is simple, subtle, elegant. © AutoIt Team

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