Simple Button Class

Monkey Forums/Monkey Code/Simple Button Class

xzess

(Posted 2011) [#1]

Here is a simple Button Class

Usage:

Method OnCreate()
local TestButton:= new Button
TestButton.Create("Button.png","ButtonClick.png",20,10,"clicksnd.wav")
End
	
Method OnUpdate()
TestButton.Update()
End
	
Method OnRender()
If TestButton.Visible = True
DrawImage(TestButton.CurrentImage,TestButton.PositionX,TestButton.PositionY)
End

End

Maybe i will post my ViewManager Class also here, but for now you can workaround by adding each Button to the render and update manually.


Class Button

	Field Image1:Image
	Field Image2:Image
	Field CurrentImage:Image
	Field ImageString:String
	Field PositionX:Int
	Field PositionY:Int
	Field SizeX:Int
	Field SizeY:Int
	Field Caption:String
	Field ClickSound:Sound
	Field Visible:Bool
	
		
	Method Create(ButtonImg1:String, ButtonImg2:String,PositionX:Int,PositionY:Int,ClickSnd:String)
		Image1 = LoadImage(ButtonImg1,1,Image.DefaultFlags)
		Image2 = LoadImage(ButtonImg2,1,Image.DefaultFlags)
		SizeX = Image1.Width()
		SizeY = Image1.Height()
		
		ClickSound = LoadSound( ClickSnd )
		Visible = True
	End
	
	Method Show(state:Bool)
		Visible = state
	End
	
	Method Hide(state:Bool)
		Visible = state
	End
	
	Method OnTouch()
		If TouchDown(0)=True 
			Local sx,sy:Int
			Local tx,ty:Int
			Local dx,dy:Int
			Local px,py:Int 
				
			sx = Image1.Width()
			sy = Image1.Height()
			dx = DeviceWidth()
			dy = DeviceHeight()
			tx = TouchX(0)
			ty = TouchY(0)
			px = PositionX
			py = PositionY 
			
			'Touch prüfen
			If(tx >= px) And (ty >= py) And (tx <= (px + sx)) And (ty <= (py + sy)) 'War Touch auf dem Bild?
			PlaySound(ClickSound ,0,0)
			
			CurrentImage = Image2
			
			End
			
		ElseIf TouchDown(0)=False
		CurrentImage = Image1
		End
	End
	
	Method Update()
		OnTouch()
	End

End

Im really looking for some solution to add a callbackfunction parameter on the Create Method or better: to realise a Callback in Monkey

xzess

(Posted 2011) [#2]

note: sorry, found the edit function after posting this

found this one:
http://blitzmax.com/Community/posts.php?topic=94283#1081689