This is a question for those who can test it. You need a mouse with a trackball on top instead of a simple wheel.
With the trackball you can scroll 2-way (handy for photoshop, level editors etc.). In B+, sliders are automaticly updated when you use the trackball. (you don't need to do anything special for that..)
However, the code below has a quirk as it seems, trying it explains what I mean..
(Still using b+ 1.34, hope that isn't the problem here :))
app=CreateWindow("..",0,0,460,460)
c1=CreateCanvas(104,4,80,80,app)
c2=CreateCanvas(104,204,80,80,app)
sl1v=CreateSlider(184,4,12,80,app,0):SetSliderRange sl1v,4,32
sl1h=CreateSlider(104,84,80,12,app,1):SetSliderRange sl1h,4,32
sl2v=CreateSlider(184,204,12,80,app,0):SetSliderRange sl2v,4,32
sl2h=CreateSlider(104,284,80,12,app,1):SetSliderRange sl2h,4,32
quit=False
Repeat
WaitEvent()
If EventID()=$803 quit=True
Until quit
FreeGadget app
End
additionally: if you place the 2nd set (canvas, sliders) at the right side from set 1, and not _beneath_ the first one, then there seems to be no prob. ..
|