NEWEST BUTTON MOD

[Azan]

Heres the module

Global clicked=9429036810376821658096734752168287
Global page=0 Type button
	Field x#,y#,sizex#,sizey#,lable$,clicked,centerx#,centery#,l#,le#,cr,cg,cb,cr2,cg2,cb2,ir,ig,ib,mr,mg,mb,clickedr,clickedg,clickedb,ID
	Field activated
End Type



Function button(x#,y#,sizex#,sizey#,lable$,ID,activated,cr,cg,cb,ir,ig,ib,mr,mg,mb,clickedr,clickedg,clickedb)
	b.button=New button
	b\lable$=lable$
	b\activated=activated
	b\ID=ID
	b\x#=x#
	b\y#=y#
	b\sizex#=sizex#
	b\sizey#=sizey#
	b\cr=cr
	b\cg=cg
	b\cb=cb
	b\cr2=cr
	b\cg2=cg
	b\cb2=cb
	b\ir=ir
	b\ig=ig
	b\ib=ib
	b\mr=mr
	b\mg=mg
	b\mb=mb
	b\clickedr=clickedr
	b\clickedg=clickedg
	b\clickedb=clickedb
	b\clicked=0
       
	
End Function

Function DrawButton()

	For b.button=Each button
If b\activated=1 Then
	b\l#=Len(b\lable$)
	b\le#=b\l#*4
	b\centerx#=b\x#+b\sizex#/2-b\le#
	b\centery#=b\y#+b\sizey#/2-6.5

	Color b\cr,b\cg,b\cb
	Rect b\x#,b\y#,b\sizex#+2,b\sizey#+2
	Color b\ir,b\ig,b\ib
	Rect b\x#+2,b\y#+2,b\sizex#-2,b\sizey#-2
	Color b\cr,b\cg,b\cb
	Text b\centerx#,b\centery#,b\lable$
	Color 255,255,255
EndIf
Next
End Function

Function clickcheck()

	For b.button=Each button
If b\activated=1 Then
		b\cr=b\cr2 ;resets the colors for mouseover
		b\cg=b\cg2
		b\cb=b\cb2

	If MouseX()>b\x# And MouseX()<b\x#+b\sizex# And MouseY()>b\y# And MouseY()<b\y#+b\sizey Then
		b\cr=b\mr
		b\cg=b\mg
		b\cb=b\mb
	EndIf
	If MouseX()>b\x# And MouseX()<b\x#+b\sizex# And MouseY()>b\y# And MouseY()<b\y#+b\sizey And MouseDown(1) Then
		b\cr=b\clickedr
		b\cg=b\clickedg
		b\cb=b\clickedb
		clicked=b\ID
	EndIf
	
EndIf
Next

End Function

Function buttonposition()
;;;;;BUTTON POSITIONING SYSTEM;;;;
For b.button=Each button
	If KeyDown(208) Then
		b\centery#=b\centery#+1
		b\y#=b\y#+1
	EndIf	
	If KeyDown(200) Then
		b\centery#=b\centery#-1
		b\y#=b\y#-1
	EndIf	
	If KeyDown(203) Then
		b\centerx#=b\centerx#-1
		b\x#=b\x#-1
	EndIf	
	If KeyDown(205) Then
		b\centerx#=b\centerx#+1
		b\x#=b\x#+1
	EndIf	
	If KeyDown(205) Or KeyDown(203) Or KeyDown(208) Or KeyDown(200) Then
		
		b\lable$=b\x#+" "+b\y#
	EndIf
Next
;;;;;END BUTTON POSITIONING SYSTEM;;;;
End Function

[Azan]

Heres a demo, with notes on how to use it

Graphics 640,480,0,2
SetBuffer BackBuffer()

Include "ButtonModule01.bb"
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
SeedRnd MilliSecs() ;this is not nessisary as it loads a random button (for demo)
r1=Rnd(1,255)
r2=Rnd(1,255)
r3=Rnd(1,255)
r4=Rnd(1,255)
r5=Rnd(1,255)
r6=Rnd(1,255)
r7=Rnd(1,255)
r8= Rnd(1,255)
r9=Rnd(1,255)
r10=Rnd(1,255)
r11=Rnd(1,255)
r12=Rnd(1,255)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;This creates the button along with its colors position etc. etc.
;To see how to write these parameters look below

;button(x#,y#,legnth,height,Text,ID (make unique for each button),activated(1 = actiavated 0 = not active),
;cr,cg,cb,ir,ig,ib,mr,mg,mb,clickedr,clickedg,clickedb) ***the rest of these are colors***

button(0,278,55,20,"Quit",00,1,0,0,255,255,0,0,0,155,255,0,0,0)
button(180,50,55,20,"simple",01,1,r1,r2,r3,r4,r5,r6,r7,r8,r9,r10,r11,r12)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
While Not KeyHit(1)
Flip
Cls
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
If clicked=00 Then ;These check to see if a button with an assigned ID
	End			   ;has been clicked, these are for demo purposes only
EndIf
If clicked=01 Then
	Text 0,20,"Button Colors (Random for each load)"
	Text 0,75,"Colors "+r1+" "+r2+" "+r3+" "+r4+" "+r5+" "+r6+" "+r7+" "+r8+" "+r9+" "+r10+" "+r11+" "+r12
EndIf
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
buttonposition() ;This is not needed, this allows you to move the cursor keys 
;to adjust button points if you do not need the coordinates of your button 
;remove this.
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
clickcheck() ;you must have both of these as they draw your button and check if 
DrawButton() ;they are clicked
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
Wend