Slider&TextField

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

jsp

Something like this?

Global win:TGadget=CreateWindow("test",50,50,286,154,0,9)
Global tb:TGadget=CreateSlider(142,60,10,20,win,SLIDER_STEPPER)
SetSliderRange tb,0,2000
SetSliderValue tb,1000

Global text:tgadget = CreateTextField(40 , 60 , 100 , 20 , win)


Repeat
	Select WaitEvent()
		Case EVENT_GADGETACTION
			Select EventSource()
				Case tb
				SetStatusText win , (Float(EventData() ) )-1000
				SetGadgetText text, (Float(EventData() ) )-1000

				Case text
				SetStatusText win, "Slider: "+((Float(EventData() ))-1000)+" New: "+(GadgetText(text).tofloat()-1000)
				SetSliderValue tb , GadgetText(text).tofloat()+1000
			End Select
		Case EVENT_WINDOWCLOSE
			Exit
	End Select
Forever
End