Hi Andrew,
The two events you need to trap are. scroll-line and scroll-page.
scroll-line detects the mouse scroll
scroll-page is mouse scroll +
Pseudo example below
detect: func [face event][
switch event/type [
scroll-line [do-myscroll event/offset/y * lineheight]
scroll-page [do-myscroll event/offset/y * pageheight]
]
]
The returned value for event/offset/y for scroll-line varies depending on
the mousescroll settings on the persons machine (ie how many lines they set
for mouse scrolling in their mouse software prefs, I have 3 in my prefs)
For most cases the values returned are.(or multiples there of)
for scroll-line
scrolling button forward: -3
scrolling button backward: 3
for scroll-page
scrolling button forward up: -1
scrolling button backward: 1
Cheers,
Allen K
----- Original Message -----
From: "Andrew Martin" <[EMAIL PROTECTED]>
To: <[EMAIL PROTECTED]>
Sent: Saturday, December 15, 2001 6:49 AM
Subject: [REBOL] Scolling faces
> How does one make a scrolling face that responds to the scroll wheel of a
> Microsoft mouse? Using Rebol/View desktop and opening a textfile, the
editor
> comes up and the text can be scrolled up or down. But using Scroll-Panel
by
> Jeff Kreis doesn't do this.
>
> Andrew Martin
> ICQ: 26227169 http://valley.150m.com/
> -><-
>
>
>
> --
> To unsubscribe from this list, please send an email to
> [EMAIL PROTECTED] with "unsubscribe" in the
> subject, without the quotes.
>
--
To unsubscribe from this list, please send an email to
[EMAIL PROTECTED] with "unsubscribe" in the
subject, without the quotes.
