Mouse events and event source

BlitzMax Forums/MaxGUI Module/Mouse events and event source

blackwater

(Posted 2010) [#1]

hello everyone -

I'm creating a map editor for a future game and I plan to create a bunch of panels that will have graphics loaded into them. From what I read from the tutorials, you can use a flag to turn the panels into buttons.

So for events like event_mousedown, how do I find out which panel I'm clicking on? I looked at the eventsource and eventsourcehandle, which seems to return the actual object and the object id but I can't figure out how to find out which specific panel it is referring to or is there a better way?

Thanks in advance for any help.

jsp	(Posted 2010) [#2]

See code below:
Click into the panels to change it's color.

SuperStrict

Import MaxGui.Drivers

Local Window1:TGadget = CreateWindow("Window1",303,178,244,214,Null,WINDOW_TITLEBAR|WINDOW_RESIZABLE |WINDOW_STATUS |WINDOW_CLIENTCOORDS )
	Local BorderPanel4:TGadget = CreatePanel(144,119,80,80,Window1,PANEL_BORDER|PANEL_ACTIVE,"BorderPanel4")
	Local BorderPanel3:TGadget = CreatePanel(28,119,80,80,Window1,PANEL_BORDER|PANEL_ACTIVE,"BorderPanel3")
	Local BorderPanel2:TGadget = CreatePanel(144,20,80,80,Window1,PANEL_BORDER|PANEL_ACTIVE,"BorderPanel2")
	Local BorderPanel1:TGadget = CreatePanel(28,20,80,80,Window1,PANEL_BORDER|PANEL_ACTIVE,"BorderPanel1")

Repeat
	WaitEvent()
	Select EventID()
		Case EVENT_WINDOWCLOSE
			Select EventSource()
				Case Window1	Window1_WC( Window1 )
			End Select

		Case EVENT_MOUSEDOWN
			Select EventSource()
				Case BorderPanel4	BorderPanel4_MD( BorderPanel4 , EventData() , Window1 )
				Case BorderPanel3	BorderPanel3_MD( BorderPanel3 , EventData() , Window1 )
				Case BorderPanel2	BorderPanel2_MD( BorderPanel2 , EventData() , Window1 )
				Case BorderPanel1	BorderPanel1_MD( BorderPanel1 , EventData() , Window1 )
			End Select

	End Select
Forever

Function Window1_WC( Window:TGadget )
	DebugLog "Window Window1 wants to be closed"
	End
End Function

Function BorderPanel4_MD( Panel:TGadget , MouseButton:Int , Window:TGadget=Null )
	DebugLog "Panel BorderPanel4 detected Mouse Button "+ MouseButton +" pressed down"
	SetGadgetColor(Panel,Rnd(0,255),Rnd(0,255),Rnd(0,255),True)
End Function

Function BorderPanel3_MD( Panel:TGadget , MouseButton:Int , Window:TGadget=Null )
	DebugLog "Panel BorderPanel3 detected Mouse Button "+ MouseButton +" pressed down"
	SetGadgetColor(Panel,Rnd(0,255),Rnd(0,255),Rnd(0,255),True)
End Function

Function BorderPanel2_MD( Panel:TGadget , MouseButton:Int , Window:TGadget=Null )
	DebugLog "Panel BorderPanel2 detected Mouse Button "+ MouseButton +" pressed down"
	SetGadgetColor(Panel,Rnd(0,255),Rnd(0,255),Rnd(0,255),True)
End Function

Function BorderPanel1_MD( Panel:TGadget , MouseButton:Int , Window:TGadget=Null )
	DebugLog "Panel BorderPanel1 detected Mouse Button "+ MouseButton +" pressed down"
	SetGadgetColor(Panel,Rnd(0,255),Rnd(0,255),Rnd(0,255),True)
End Function

blackwater

(Posted 2010) [#3]

Ah ok, I didn't realize that last parameter, the title, was the unique identifier, thanks!

jsp	(Posted 2010) [#4]

Oh, the title is not important, it is the Local BorderPanel4:TGadget which is checked here:
Case BorderPanel4
and if the event source is from that panel the function is triggered.

blackwater

(Posted 2010) [#5]

Yes I see that now, I know what I was doing wrong. I had the control as a local variable in another file but now it's working and I understand, thanks again.

blackwater

(Posted 2010) [#6]

JSP. that's the other question I wanted to ask - Is there a way to add a custom field to an object? For example, borderPanel1.myfield = 1

Or should I just use a type?

jsp	(Posted 2010) [#7]

Yes, there are two ways to add your own stuff.
First you can add an 'object' via SetGadgetExtra() and get it via GadgetExtra(), that should be the preferred method.
Second you can use YourGadget.Context=object to store an 'object' , this was before we got the GadgetExtra the only method. It does not have a getter and setter method and is also internally used by textfields when they use a textfilter, but apart from that still very useful.
When I say 'object' it means you can NOT store a number as int or float, but types and strings so for your example it would look like:

SetGadgetExtra(borderPanel1,"1") to set the number 1 as string
Number = Int( GadgetExtra(borderPanel1) )

or
borderPanel1.Context = "1"
Number = Int( borderPanel1.Context )

be aware that you need to check if there is a Context or GadgetExtra before doing something with it as the result could be null (object does not exist) if not present!