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.
|