Menu popups on right mouse button

BlitzMax Forums/BlitzMax Beginners Area/Menu popups on right mouse button

Takis76

(Posted 2012) [#1]

Is it possible to have a popup menu when I am pressing the right mouse button on some area of one canvas gadget? (MaxGui).

Thank you :)

jsp	(Posted 2012) [#2]

Yes you can, here is a quick example:

'Source Code created on 28 May 2012 20:21:18 with Logic Gui Version 5.5 Build 472
SuperStrict
Import MaxGui.Drivers
Import MaxGui.XPManifest

Global	main_window:TGadget

main_window:TGadget = CreateWindow:TGadget("AppTitle",75,66,466,251,Null,WINDOW_TITLEBAR|WINDOW_MENU |WINDOW_CENTER)
	Local Canvas10:TGadget = CreateCanvas:TGadget(12,13,437,170,main_window:TGadget,Null)
		ActivateGadget( Canvas10:TGadget )
		Local Canvas10_PopUpMenu:TGadget = CreateMenu( "" , 0 , Null ) 
			Local Canvas10_PopUpMenu_File:TGadget = CreateMenu( "File" , 100 , Canvas10_PopUpMenu:TGadget  )
				Local Canvas10_PopUpMenu_New:TGadget = CreateMenu( "New" , 101 , Canvas10_PopUpMenu_File:TGadget  )
				Local Canvas10_PopUpMenu_Open:TGadget = CreateMenu( "Open" , 102 , Canvas10_PopUpMenu_File:TGadget  )
				Local Canvas10_PopUpMenu_Exit:TGadget = CreateMenu( "Exit" , 103 , Canvas10_PopUpMenu_File:TGadget  )
			Local Canvas10_PopUpMenu_Options:TGadget = CreateMenu( "Options" , 200 , Canvas10_PopUpMenu:TGadget  )
				Local Canvas10_PopUpMenu_View:TGadget = CreateMenu( "View" , 200 , Canvas10_PopUpMenu_Options:TGadget  )

Repeat
	WaitEvent()
	Select EventID()
		Case EVENT_WINDOWCLOSE
			Select EventSource()
				Case main_window	main_window_WC( main_window:TGadget )
			End Select

		Case EVENT_MOUSEDOWN
			Select EventSource()
				Case Canvas10	Canvas10_MD( Canvas10:TGadget , EventData() , main_window:TGadget , Canvas10_PopUpMenu:TGadget )
			End Select

		Case EVENT_GADGETPAINT
			Select EventSource()
				Case Canvas10	Canvas10_GP( Canvas10:TGadget )
			End Select

		Case EVENT_MENUACTION
			Select EventSource()
				'Menu_Events for Gadget = Canvas10_PopUpMenu
				Case Canvas10_PopUpMenu_New:TGadget	Canvas10_PopUpMenu_New_MA( Canvas10_PopUpMenu:TGadget , Canvas10_PopUpMenu_File:TGadget , Canvas10_PopUpMenu_New:TGadget )
				Case Canvas10_PopUpMenu_Open:TGadget	Canvas10_PopUpMenu_Open_MA( Canvas10_PopUpMenu:TGadget , Canvas10_PopUpMenu_File:TGadget , Canvas10_PopUpMenu_Open:TGadget )
				Case Canvas10_PopUpMenu_Exit:TGadget	Canvas10_PopUpMenu_Exit_MA( Canvas10_PopUpMenu:TGadget , Canvas10_PopUpMenu_File:TGadget , Canvas10_PopUpMenu_Exit:TGadget )
				Case Canvas10_PopUpMenu_View:TGadget	Canvas10_PopUpMenu_View_MA( Canvas10_PopUpMenu:TGadget , Canvas10_PopUpMenu_Options:TGadget , Canvas10_PopUpMenu_View:TGadget )
			End Select

	End Select
Forever

Function main_window_WC( Window:TGadget )
	DebugLog "Window main_window wants to be closed"
	End
End Function

Function Canvas10_MD( Canvas:TGadget , MouseButton:Int , Window:TGadget=Null , PopUpMenu:TGadget=Null )
	DebugLog "Canvas Canvas10 detected Mouse Button "+ MouseButton +" pressed down"
    If MouseButton = MOUSE_RIGHT Then PopupWindowMenu( Window:TGadget , PopUpMenu:TGadget )
	
End Function

Function Canvas10_GP( Canvas:TGadget )
	DebugLog "Canvas Canvas10 needs to be redrawn"
	SetGraphics CanvasGraphics ( Canvas )
	SetViewport 0,0,GadgetWidth( Canvas ),GadgetHeight( Canvas )
	
	'This temporary code will diasappear when you enter your own!
	SetColor( 208,216,61 )
	SetClsColor( 118,131,184 )
	Cls
	DrawText( "LogicZone" ,1,1 )
	Flip
	'End of temporary code!

End Function

Function Canvas10_PopUpMenu_New_MA( Window:TGadget , Parent:TGadget , Menu:TGadget )
	DebugLog "Menu New was selected from Window Canvas10_PopUpMenu"
	
End Function

Function Canvas10_PopUpMenu_Open_MA( Window:TGadget , Parent:TGadget , Menu:TGadget )
	DebugLog "Menu Open was selected from Window Canvas10_PopUpMenu"
	
End Function

Function Canvas10_PopUpMenu_Exit_MA( Window:TGadget , Parent:TGadget , Menu:TGadget )
	DebugLog "Menu Exit was selected from Window Canvas10_PopUpMenu"
	
End Function

Function Canvas10_PopUpMenu_View_MA( Window:TGadget , Parent:TGadget , Menu:TGadget )
	DebugLog "Menu View was selected from Window Canvas10_PopUpMenu"
	
End Function

Takis76

(Posted 2012) [#3]

Hmmm , for all of this code the crucial function is PopupWindowMenu().

As I understand , I will create another one menu on my main window which will be invisible

It worked , I created one little popup menu when you press right mouse on the map. Hmm nice.

The code above is very complex.
I created one little code which I translate all mouse variables to only 3 variables

pointer_x , pointer_y and pointer_b

     If EventID() = EVENT_MOUSEMOVE Then
          If EventSource() = graphics_canvas
	pointer_x = EventX()
    	pointer_y = EventY()
          Endif
     Endif
     If EventID() = EVENT_MOUSEDOWN Then
          If EventData()=1 Then pointer_b=1
          If EventData()=2 Then pointer_b=2
          If EventData()=3 Then pointer_b=3

               If pointer_b=2 then
               PopupWindowMenu(main_window,map_popup_menu)
               Endif
     Endif

Menu Creation code

map_popup_menu = CreateMenu("",0,Null)
Global POPUP_EDIT:TGadget = CreateMenu("Edit", 1, map_popup_menu)

When I am pressing my right mouse button in any area I have popup menu.
When you select your menu you have to put one pointer_b=0 and return

For example if I want to have a specific area on my main canvas.

If EventID() = EVENT_GADGETPAINT Then
     If EventSource() = graphics_canvas
     SetGraphics CanvasGraphics(graphics_canvas)
     SetViewport 0, 0, GadgetWidth(graphics_canvas), GadgetHeight(graphics_canvas)
     Draw_Map_Panel()
     RedrawGadget(graphics_canvas)
     EndIf
Endif

Somewhere in the Draw_Map_Panel() function

Function Draw_Map_Panel(

.
.
.
     'The area I want the popup menu appear only (My Map)
     If pointer_x >= 15 And pointer_x <= 590 And pointer_y >= 85 And pointer_y <= 444 And tools.wall_selected=1 Then

	If pointer_b=2 Then
	PopupWindowMenu(main_window,map_popup_menu)
	pointer_b=0
	Return
	End If

     Endif

End Function

Might you don't understand my code , but it worked perfect.

Thank very very much for your example.

Last edited 2012