Paging with a slider

BlitzMax Forums/MaxGUI Module/Paging with a slider

TomToad

(Posted 2016) [#1]

On most applications, when you click the grey area between the knob and the arrow on a slider, the slider will advance an entire page at a time. It doesn't seem to work with a slider after setting a range.

In the example below, you can see that clicking the grey area works just fine when the program starts, but click on the button to change the range of the slider and you will notice that clicking on the gray area will no longer work. The text area on the right is to show you that its slider still works properly, even after adding a ton of text.

SuperStrict
Import maxgui.drivers

Global MainWindow:TGadget = CreateWindow("Slider example",10,10,800,600)
Global TextArea:TGadget = CreateTextArea(0,0,200,400,MainWindow)
Global Slider:TGadget = CreateSlider(300,0,20,400,MainWindow)
Global Button:TGadget = CreateButton("Set Range",350,450,50,30,MainWindow)
For Local i:Int = 0 To 1000
	AddTextAreaText(TextArea,"Great Scott! "+i+"~n")
Next

AddHook EmitEventHook, MyHook

Repeat
	WaitEvent()
Forever

Function MyHook:Object(id:Int,data:Object,context:Object)
	Local event:TEvent = TEvent(data)
	
	Select event.id
		Case EVENT_WINDOWCLOSE, EVENT_APPTERMINATE
			End
		Case EVENT_GADGETACTION
			If event.source = Button Then SetSliderRange(Slider,0,500)
	End Select
End Function

Henri

(Posted 2016) [#2]

Hi TT,

you have to set the start of the range to 1 in order represent the advancement by one when you press the grey area.

-Henri

TomToad

(Posted 2016) [#3]

Thanks Henri. Got it working. Just need to read the docs a little better. :-)

There does seem to be a little discrepancy with the docs though. It appears that the slider should return values in the range of 0 to range1-1, but in actuality, it returns values in the range of 0 to range1-range0. So if I want 500 single steps numbered 0-499 with a 20 step page, I would need to use SetSliderRange(Slider,20,519).

SuperStrict
Import maxgui.drivers

Global MainWindow:TGadget = CreateWindow("Slider example",10,10,800,600)
Global TextArea:TGadget = CreateTextArea(0,0,200,400,MainWindow)
Global Slider:TGadget = CreateSlider(300,0,20,400,MainWindow)
Global Button:TGadget = CreateButton("Set Range",350,450,50,30,MainWindow)
Global Label:TGadget = CreateLabel(0,350,10,50,20,MainWindow)
For Local i:Int = 0 To 200
	AddTextAreaText(TextArea,"Great Scott! "+i+"~n")
Next

AddHook EmitEventHook, MyHook

Repeat
	WaitEvent()
Forever

Function MyHook:Object(id:Int,data:Object,context:Object)
	Local event:TEvent = TEvent(data)
	
	Select event.id
		Case EVENT_WINDOWCLOSE, EVENT_APPTERMINATE
			End
		Case EVENT_GADGETACTION
			If event.source = Button Then SetSliderRange(Slider,20,519)
			If event.source = Slider Then SetGadgetText Label,SliderValue(Slider)
	End Select
End Function