Create menu item as button - not working with 3.2.12.0

[MrCreatoR]

Hi,

The example bellow supose to display a GUI with one menu item (as menu button), when you press that item, event is fired:

GUICreate("Test", 200, 100)

$MenuItem = GUICtrlCreateMenuItem("Menu Button", -1)

GUISetState()

While 1
    Switch GUIGetMsg()
        Case -3
            Exit
        Case $MenuItem
            MsgBox(0, "", "Menu Button Pressed")
            If $MenuItem = 0 Then Exit
    EndSwitch
WEndoÝ÷ Ø2¢çÇëw[h±ëbµé²g§¹»­¶È­æ¥'hmz0ø­Á«nè(}¼×ýö×M(®+b±¦î)÷Û]´nëh}µÛH­p¢¹"§Êj+y8^צÉèµÊÞj×Ó~z{µé«zÛ«Í(y«!£hv­=/Û"Ü(®K"­æ­z+Z±«rÝéîjëh×6GUICtrlCreateMenu("Menu")
$MenuItem = GUICtrlCreateMenuItem("Menu Button", -1)

But i need it for the first one...

[Zedna]

Just for your information: On my 3.2.10 it works fine.

GUICreate("Test", 200, 100)
$MenuItem = GUICtrlCreateMenuItem("Menu Button", -1)
GUISetState()

...

[MrCreatoR]

Just for your information: On my 3.2.10 it works fine.

GUICreate("Test", 200, 100)
$MenuItem = GUICtrlCreateMenuItem("Menu Button", -1)
GUISetState()

...

That's what i say...

I really don't know if it was a bug on 3.2.8.1/3.2.10.0, or it is a bug in 3.2.12.0, but on 3.2.12.0 it not working anymore

I am looking for a way to do the same on 3.2.12.0 (the last released version).

[ResNullius]

Hi,

The example bellow supose to display a GUI with one menu item (as menu button), when you press that item, event is fired:

GUICreate("Test", 200, 100)

$MenuItem = GUICtrlCreateMenuItem("Menu Button", -1)

GUISetState()

While 1
    Switch GUIGetMsg()
        Case -3
            Exit
        Case $MenuItem
            MsgBox(0, "", "Menu Button Pressed")
            If $MenuItem = 0 Then Exit
    EndSwitch
WEndoÝ÷ Ø­wv+_¢»ayø«²Ú'{ú®¢×¯+aÆ®¶­sduT7&VFRgV÷CµFW7BgV÷C²Â# ¢b33c´ÖVçTFVÒÒuT7G&Ä7&VFTÖVçTFVÒgV÷C´ÖVçR'WGFöâgV÷C²ÂÓ¢b33c´ÖVçTFVÓ"ÒuT7G&Ä7&VFTÖVçTFVÒgV÷C´ÖVçR'WGFöã"gV÷C²ÂÓ¤6öç6öÆUw&FRgV÷C²b33c´ÖVçTFVÓ¢gV÷C²fײb33c´ÖVçTFVÒfײ5$ÄbfײgV÷C²b33c´ÖVçTFVÓ#¢gV÷C²fײb33c´ÖVçTFVÓ"fײ5$Äb ¤uT6WE7FFR ¥vÆR¢7vF6uTvWD×6r¢66RÓ0¢W@¢66Rb33c´ÖVçTFVТ×6t&÷ÂgV÷C²gV÷C²ÂgV÷C´ÖVçR'WGFöâ&W76VBgV÷C²¢bb33c´ÖVçTFVÒÒFVâW@¢VæE7vF6¥tVæ@

The consoleWrite shows "0" for both menu IDs

When you stick another menu in there, then they get proper IDs

[MrCreatoR]

When you stick another menu in there, then they get proper IDs

I am sorry, i am not understand, can you show me please a working example?

[MrCreatoR]

Ok, here is the only solution that i can see right now:

GUICreate("Test", 200, 100)

$MenuItem = _GUICtrlCreateMenuItemEx("Menu Button", -1)

GUISetState()

While 1
    Switch GUIGetMsg()
        Case -3
            Exit
        Case $MenuItem
            MsgBox(0, "", "Menu Button Pressed")
    EndSwitch
WEnd

Func _GUICtrlCreateMenuItemEx($sText, $iMenuID, $iMenuEntry=-1, $iMenuRadioItem=0)
    Local $nDummyMenu = GUICtrlCreateMenu("")
    Local $nDummyMenuItem = GUICtrlCreateMenuItem("", $nDummyMenu)
    
    Local $nMenuItem = GUICtrlCreateMenuItem($sText, $iMenuID, $iMenuEntry, $iMenuRadioItem)
    
    GUICtrlDelete($nDummyMenu)
    GUICtrlDelete($nDummyMenuItem)
    
    Return $nMenuItem
EndFunc

I don't know what was changed about this issue (the History does not mention it as far as i can see), but the problem is one of two: Or it is a bug in earlier to 3.2.12.0 versions, or it is a bug in this new version. I think the first one is true, but i hope that the second one and it will be fixed

Edited June 4, 2008 by MrCreatoR

[ResNullius]

I am sorry, i am not understand, can you show me please a working example?

I was only trying to help pinpoint the bug, not imply a solution.

Using your example above:

GUICreate("Test", 200, 100)
GUICtrlCreateMenu("Menu")
$MenuItem = GUICtrlCreateMenuItem("Menu Button", -1)
$MenuItem2 = GUICtrlCreateMenuItem("Menu Button2", -1)
ConsoleWrite("$MenuItem: " & $MenuItem & @CRLF & "$MenuItem2: " & $MenuItem2 & @CRLF)

GUISetState()

While 1
    Switch GUIGetMsg()
        Case -3
            Exit
        Case $MenuItem
            MsgBox(0, "", "Menu Button Pressed")
            If $MenuItem = 0 Then Exit
    EndSwitch
WEnd

By creating a menu first, then the ConsoleWrite()s show Gui Control lIDs for $menuitem1 & $menuitem2 as "4" and "5" respectively.

In the first (non-working example) both controls are ID "0" which is the standard return of GuiGetMsg() in the loop when nothing is happening; so the

Case $MenuItem

always returns true and fires the event.

GuiCtrlCreation probably should never create an ID of 0, so I'm inclined to think it's a new bug.

[kmeleon]

GUICreate("Test", 200, 100)


$filemenu = GUICtrlCreateMenu("&File")
$MenuItem = GUICtrlCreateMenuItem("Open", $filemenu)

GUISetState()

While 1
    Switch GUIGetMsg()
        Case -3
            Exit
        Case $MenuItem
            MsgBox(0, "", "Menu Button Pressed")
            If $MenuItem = 0 Then Exit
    EndSwitch
WEnd

[ResNullius]

GUICreate("Test", 200, 100)


$filemenu = GUICtrlCreateMenu("&File")
$MenuItem = GUICtrlCreateMenuItem("Open", $filemenu)

GUISetState()

While 1
    Switch GUIGetMsg()
        Case -3
            Exit
        Case $MenuItem
            MsgBox(0, "", "Menu Button Pressed")
            If $MenuItem = 0 Then Exit
    EndSwitch
WEnd

We know that works!

What we're talking about is creating a menuitem at the top level that acts just like a button.

You don't have to navigate down through the menu to access it.

[TalivanIBM]

if you put only this

GUICreate("Test", 200, 100)

$MenuItem = _GUICtrlCreateMenuItemEx("Menu Button", -1)

GUISetState()

While 1
    Switch GUIGetMsg()
        Case -3
            Exit
        Case $MenuItem
            MsgBox(0, "", "Menu Button Pressed")
    EndSwitch
WEnd

Func _GUICtrlCreateMenuItemEx($sText, $iMenuID, $iMenuEntry=-1, $iMenuRadioItem=0)
    Local $nDummyMenu = GUICtrlCreateMenu("") ;  <==============
   
    Local $nMenuItem = GUICtrlCreateMenuItem($sText, $iMenuID, $iMenuEntry, $iMenuRadioItem)
   
    GUICtrlDelete($nDummyMenu)                    ;   <===============
   
    Return $nMenuItem
EndFunc

i have version 3.2.12.1 in some of my scripts i had this problem.

[PsaltyDS]

if you put only this

GUICreate("Test", 200, 100)

$MenuItem = _GUICtrlCreateMenuItemEx("Menu Button", -1)

GUISetState()

While 1
    Switch GUIGetMsg()
        Case -3
            Exit
        Case $MenuItem
            MsgBox(0, "", "Menu Button Pressed")
    EndSwitch
WEnd

Func _GUICtrlCreateMenuItemEx($sText, $iMenuID, $iMenuEntry=-1, $iMenuRadioItem=0)
    Local $nDummyMenu = GUICtrlCreateMenu("");  <==============
   
    Local $nMenuItem = GUICtrlCreateMenuItem($sText, $iMenuID, $iMenuEntry, $iMenuRadioItem)
   
    GUICtrlDelete($nDummyMenu)                   ;   <===============
   
    Return $nMenuItem
EndFunc

i have version 3.2.12.1 in some of my scripts i had this problem.

I don't get it. Why not just this?

GUICreate("Test", 400, 200)

$Menu = GUICtrlCreateMenu("")
$MenuItem = GUICtrlCreateMenuItem("Menu Button", -1)

GUISetState()

While 1
    Switch GUIGetMsg()
        Case -3
            Exit
        Case $MenuItem
            MsgBox(0, "", "Menu Button Pressed")
    EndSwitch
WEnd

What did you revive this old topic for? What did you want it to do?

[TalivanIBM]

I don't get it. Why not just this?

GUICreate("Test", 400, 200)
 
 $Menu = GUICtrlCreateMenu("")
 $MenuItem = GUICtrlCreateMenuItem("Menu Button", -1)
 
 GUISetState()
 
 While 1
     Switch GUIGetMsg()
         Case -3
             Exit
         Case $MenuItem
             MsgBox(0, "", "Menu Button Pressed")
     EndSwitch
 WEnd

What did you revive this old topic for? What did you want it to do?

In the title don't put solved and seems to me there is no final reply, excuse me.