Slider without arrows?

BlitzMax Forums/BlitzMax GUI Programming/Slider without arrows?

WendellM
 #1
In the absence of a real option, the arrows can at least be hidden (only tested in Windows XP):
Strict 

Local window:TGadget = CreateWindow( "Arrowless Slider", 10,10, 200,120,, WINDOW_TITLEBAR )

Local slideX = 50, slideY = 40, slideW = 100, slideH = 16
Local coverL:TGadget = CreatePanel( slideX,slideY, slideH,slideH, window )
Local coverR:TGadget = CreatePanel( slideX + slideW - slideH - 1,slideY, slideH + 1,slideH, window )
Local slider:TGadget = CreateSlider( slideX,slideY, slideW,slideH, window, SLIDER_HORIZONTAL )

Repeat
	WaitEvent
Until EventID() = EVENT_WINDOWCLOSE




For a proportional-sized knob, SetSliderRange looks promising but I haven't explored it.