BlitzMax Docs -> C -> CreateSlider

CreateSlider:TGadget(x,y,w,h,group:TGadget,style=0)

Returns:

Nothing.

Description:

Create a Slider gadget.

A Slider gadget supports the following styles:

Style	Meaning
SLIDER_HORIZONTAL	The slider is moved left and right.
SLIDER_VERTICAL	The slider is moved up and down.
SLIDER_SCROLLBAR	The slider uses a proportional size knob.
SLIDER_TRACKBAR	The slider uses a fixed size knob.
SLIDER_STEPPER	The slider has no knob, just arrow buttons.

A slider only emits one type of event:

Event ID	Description
EVENT_GADGETACTION	The user has changed the slider's value. Event Data contains the SliderValue.

See Also: SetSliderRange, SetSliderValue and SliderValue

Example:

' createslider.bmx

Import MaxGui.Drivers

Strict 

Local window:TGadget=CreateWindow("My Window",0,0,240,240,,WINDOW_TITLEBAR)

Local slider:TGadget[3]

' standard vertical and horizontal scroll bars

slider[0]=CreateSlider(10,10,16,100,window,SLIDER_VERTICAL)
slider[1]=CreateSlider(30,10,100,16,window,SLIDER_HORIZONTAL)

' a horizontal trackbar

slider[2]=CreateSlider(30,30,100,24,window,SLIDER_HORIZONTAL|SLIDER_TRACKBAR)

' a row of vertical trackbars

Local trackbar:TGadget[5]

For Local i=0 To 4
	trackbar[i]=CreateSlider(30+i*20,50,16,60,window,SLIDER_VERTICAL|SLIDER_TRACKBAR)
Next

' a single stepper

Local stepper:TGadget
stepper=CreateSlider(10,120,24,24,window,SLIDER_STEPPER)

SetSliderValue stepper,4
Print SliderValue(stepper)

While WaitEvent()
	Print CurrentEvent.ToString()
	Select EventID()
		Case EVENT_WINDOWCLOSE
			End
	End Select
Wend 

Comments

None.

BlitzMax Manual Forum

Blitz3D Equivalent Command