Post by Azan on Apr 24, 2005 13:09:45 GMT -5
Well I am attempting to make a simple button module, and if it turns out great ill add better graphics and fonts, right now it doesnt work that well as I need to incorporate types, but thats what ill try to work on next, also I am quite proud of my simple little part that centers the text 
feel free to use and mess around with (it wont include notes untill its completed) tell me what everyone thinks so far
feel free to use and mess around with (it wont include notes untill its completed) tell me what everyone thinks so far
Graphics 640,480
SetBuffer BackBuffer()
Global color1=255
While Not KeyHit(1)
Color 111,111,111
Rect 0,0,777,777
button(50,150,55,20,"Hold")
Flip
Cls
Wend
Function button(x#,y#,sizex#,sizey#,lable$)
If MouseHit(1) And MouseX()>x# And MouseX()<x#+sizex# And MouseY()>y# And MouseY()<y#+sizey# Then color1=50
l#=Len(lable$)
le#=l#*4
centerx#=x#+sizex#/2-le#
centery#=y#+sizey#/2-6.5
Color 0,0,color1
Rect x#,y#,sizex#+2,sizey#+2
Color 255,0,0
Rect x#+2,y#+2,sizex#-2,sizey#-2
Color 0,0,color1
Text centerx#,centery#,lable$
End Function
