Challenge : Buttons

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|543\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Mini Challenges -> Challenge : Buttons
Tue, 16 Dec 2008, 04:45
Jayenkai	Using plain code, and no pre-rendered images, try to make the nicest clickable button you can. You should make the standard set of button styles.. Plain, Hovered, Clicked.. and it should be nice and changeable, so you can draw the buttons with all manner of titles and colors and things. Get to it!! Note : The banner on this topic says "SoC". I'm currently without my main PC, so I can't go changing all the banners right now! Meanwhile I've renamed this forum area to "Mini Challenges", and plopped it up top, in the on-topic/off-topic area.. So.. Feel free to use! -=-=- ''Load, Next List!''
Tue, 16 Dec 2008, 05:27
Jayenkai	Graphics 800,600,32,2 SetBuffer BackBuffer() SetFont LoadFont("Arial",16,1) Repeat Cls Color 160,80,80 Button 100,100,"Red",128,16 Color 80,160,80 Button 300,100,"Green",128,16 Color 80,80,160 Button 500,100,"Blue",128,16 Color 80,80,160 Button 200,200,"Black Inside!",128,16,1 Color 80,80,160 If Button(400,200,"White Inside!",128,16,2)=2 Then RuntimeError("ARGH!!") Flip Until KeyDown(1) Function Button(x,y,title$,w=64,h=16,blackinside=0) If MouseX()=>x And MouseY()=>y And MouseX()<=x+w And MouseY()<=y+h Then on=1:If MouseDown(1) Then on=2 r#=Float(ColorRed()):g#=Float(ColorGreen()):b#=Float(ColorBlue()) For ey=0 To h e#=(ey90)/h in#=Float(1-Sin(e#+45))Float(w/8) d#=Float((90-e)+50)/120:If on=2 Then d#=Float((80-e)+50)/120 Color limit(rd),limit(gd),limit(bd) Line x+in,y+ey,x+w-in,y+ey Color limit(rd1.2),limit(gd1.2),limit(bd1.2):If on=2 Then Color limit(rd0.8),limit(gd0.8),limit(bd0.8) Plot x+in,y+ey Color limit(rd0.8),limit(gd0.8),limit(bd0.8):If on=2 Then Color limit(rd1.2),limit(gd1.2),limit(bd1.2) Plot x+w-in,y+ey Next If blackinside=0 Color limit(r0.5),limit(g0.5),limit(b0.5):If on=2 Then Color limit(r1.2),limit(g1.2),limit(b1.2) Text (x+w/2)+1,(y+h/2)+1,title$,1,1 Color limit(r1.5),limit(g1.5),limit(b1.5):If on=2 Then Color limit(r0.8),limit(g0.8),limit(b0.8) Text (x+w/2)-1,(y+h/2)-1,title$,1,1 Color limit(r),limit(g),limit(b):If on>0 Then Color limit(r1.2),limit(g1.2),limit(b1.2) Text x+w/2,y+h/2,title$,1,1 EndIf If blackinside=1 Color 0,0,0 Text x+w/2,y+h/2,title$,1,1 EndIf If blackinside=2 Color 255,255,255 Text x+w/2,y+h/2,title$,1,1 EndIf Color r,g,b Return on End Function Function Limit#(out#) If out<0 Then out=0 If out>255 Then out=255 Return out End Function --v -=-=- ''Load, Next List!''