Smooth Scrolling With The Mousewheel

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.

WolRon

or are you looking for something like this:

Open in online IDE

;-========================-
;-=[Mouse Scroll Wheel	]=-
;-=[Moving Image Program]=-
;-========================-

Const xres=640,yres=480
Graphics xres,yres
SetBuffer BackBuffer()

Global Scroll_Image=CreateImage(xres-100,1000)
SetBuffer ImageBuffer(Scroll_Image)
Color 164,000,000
Rect 100,0,xres-100,yres,1

For Bits=0 To Rnd(200)
	Color Rnd(60,250),Rnd(60,255),Rnd(60,255)
	Rect Rnd(100,xres),Rnd(0,yres),Rnd(4,20),Rnd(4,20)
Next
SetBuffer BackBuffer()
	
Global MY#
Global lastupdate = MilliSecs()



While Not KeyHit(1)
Cls
	Update_Image_With_Scroll_Wheel()			
Flip False
Wend



Function Update_Image_With_Scroll_Wheel()
	action = MouseZSpeed()
	If action <> 0
		thisupdate = MilliSecs()
	Else
		thisupdate = lastupdate
	EndIf
	timeelapsed = (thisupdate - lastupdate) / 10
	If timeelapsed > 20 Then timeelapsed = 20
	MY=MY + action*(21 - timeelapsed)
	;-============================-
	;-=[Draw And Move The Screen]=-
	;-============================-
	DrawImage Scroll_Image,0,MY
	lastupdate = thisupdate
End Function