How do you make a button?

BlitzMax Forums/BlitzMax Beginners Area/How do you make a button?

Polarix

(Posted 2016) [#1]

I am making a short game but i need to make a menu and an options for controls, im good at making movement and controls but a menu seems too hard. I don't know if this helps, but here is my game so far:

Graphics3D 800,600 



SetBuffer=BackBuffer()



camera = CreateCamera()



light = CreateLight()


Sphere = CreateSphere(32)
PositionEntity sphere,0,0,5
ScaleEntity sphere,0.5,0.5,0.5
EntityColor sphere,233,33,183


cone = CreateCone(32)
PositionEntity cone,0,0,5
ScaleEntity cone,0.5,0.5,0.5
EntityColor cone,255,0,0



While Not KeyDown(1)



If KeyDown(200) Then TranslateEntity sphere,0,0.1,0
If KeyDown(205) Then TranslateEntity sphere,0.1,0,0
If KeyDown(203) Then TranslateEntity sphere,-0.1,0,0
If KeyDown(208) Then TranslateEntity sphere,0,-0.1,0




If KeyDown(22) Then TranslateEntity cone,0,0.1,0
If KeyDown(37) Then TranslateEntity cone,0.1,0,0
If KeyDown(35) Then TranslateEntity cone,-0.1,0,0
If KeyDown(36) Then TranslateEntity cone,0,-0.1,0


UpdateWorld 
RenderWorld 

Flip

Wend
End

BlitzMan

(Posted 2016) [#2]

Are you using MiniB3D with BlitzMax,or Blitz3D.

BlitzMan

(Posted 2016) [#3]

Try this

Strict

Graphics 800,600

Global ButtonList:TList = CreateList()

Type TButton
	
	Field label:String
	Field x:Int
	Field y:Int
	Field width:Int
	Field height:Int
	Field id:Int
	Field hit:Int
End Type

Button("Load",92,34,0)
Button("Save",92,64,1)

';------------------------------ Main -------------------------------------
Repeat
Cls 

DrawButton()

Flip

Until AppTerminate() Or KeyHit(KEY_ESCAPE)
End
';----------------------------- End Main -----------------------------------

Function Button(label:String,x:Int,y:Int,id:Int)
     Local but:TButton = New TButton
     but.label = label
     but.x=x
     but.y=y
     but.width=TextWidth(but.label)+Len(but.label)+10
     but.height=24
     but.id%=id
     but.hit=False	
     ListAddLast(ButtonList,but)	
End Function

Function DrawButton()
For Local but:TButton = EachIn ButtonList
Local labelwidth = TextWidth(but.label)/2
Local labelheight = TextHeight(but.label)/2

	If MouseX()>but.x And MouseX()<but.x+but.width And MouseY()>but.y And MouseY()<but.y+but.height Then 
		but.hit = True
		'draw green box
			SetColor 0,255,0
			Rect but.x,but.y,but.width,but.height,1
			SetColor 0,128,0
			Rect but.x+1,but.y+1,but.width-2,but.height-2,0
			SetColor 255,255,255
			DrawText but.label,but.x+but.width/2-labelwidth,but.y+but.height/2-labelheight
			If MouseHit(MOUSE_LEFT) And but.hit Then ButtonEvent(but.id)
		Else
		but.hit= False
		'draw red box
			SetColor 255,0,0
			Rect but.x,but.y,but.width,but.height,1
			SetColor 128,0,0
			Rect but.x+1,but.y+1,but.width-2,but.height-2,0
			SetColor 255,255,255
			DrawText but.label,but.x+but.width/2-labelwidth,but.y+but.height/2-labelheight

		EndIf
Next
End Function

Function ButtonEvent(id)
'; Call the Button by its id number

Select id
	Case 0
		DrawText "HIT",400,100
	
	Case 1
		DrawText "HIT",400,100
	
	Case 2
		DrawText "HIT",400,100
			
End Select		

End Function

Rem
bbdoc: Draws a Filled or Unfilled Box.Default = Filled
EndRem
Function Rect(x:Int, y:Int, w:Int, h:Int,style:Byte=0)
	If style = 0
		DrawRect x,y,w,h
	Else
		DrawLine(x,y,x+w-1,y)
		DrawLine(x+w-1,y,x+w-1,y+h-1)
		DrawLine(x+w-1,y+h-1,x,y+h-1)
		DrawLine(x,y+h-1,x,y)
	EndIf
End Function