Sliding Bar

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|462\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
SoCoder -> Snippet Home -> Text and GUI's

garand	Created : 03 January 2007 Edited : 03 January 2007 Language : Blitz Sliding Bar
I made this for Pocket Tanks 3D that I am trying to make. Function slider(rect_posx,rect_posy) ;Parameters: x,y rectx_size = 216 recty_size = 10 bar_posx = rect_posx+5 bar_posy = rect_posy-7 bar_limit_left = rect_posx+5 bar_limit_right = rect_posx+205 While Not KeyHit(1) Cls Rect rect_posx,rect_posy,215,10,0 Rect bar_posx,bar_posy,5,24,1 If RectsOverlap(MouseX(), MouseY(), 1, 1, rect_posx+5,rect_posy-10,rectx_size-10,recty_size+20) And MouseDown(1) bar_posx = MouseX() EndIf value1=bar_posx-rect_posx If bar_posx <= bar_limit_left Then bar_posx = bar_limit_left If bar_posx >= bar_limit_right Then bar_posx = bar_limit_right Text rect_posx+107,rect_posy-15,value1/2-2,1,1 Flip Wend End Function --v

Comments
Sunday, 07 January 2007, 12:26
mike_g	The sliding bar works well though you seem to have your main loop inside the function. It would be a good idea if you had your main loop seperate, and you can call your functions from it. Something like: While Not Keyhit(1) Cls Slider(10, 10) Flip Wend --v If you do something like this then you would also need a global to store the sliders x position.
Sunday, 07 January 2007, 14:41
garand	Thanks, Ill try that.

Comments