OpenEuphoria

Re: Back to the scroll bar thing ;-(

• Posted by Derek Parnell <ddparnell at bigpond.com> Feb 18, 2003
• 499 views

On Tue, 18 Feb 2003 22:36:53 +0000, Pete Lomax <petelomax at blueyonder.co.uk> 
wrote:

>
> On Tue, 18 Feb 2003 12:42:43 +0000, Pete Lomax
> <petelomax at blueyonder.co.uk> wrote:
>
> Left it alone for a month, not astonished it is still broken...
>
> Anyway, onwards, I have a query: why does the number count down in
> what I reckon is the wrong way?
>
> Run this program, click on the lower part of the scroll bar just once,
> (and leave the mouse where it is) and you should see the number going
> down. If it should be automatically repeating like that, surely at
> least it should be going up??
>
> -- Code Starts --
> include win32lib.ew
>
> constant ppwin = create(Window,"",0,0,0,Default,Default,0)
> 	setWindowScrollRange(ppwin, SB_VERT, 1, 10000, 600)
>
> integer HSP HSP=1
>
> procedure RepaintPPwin(integer self, integer event, sequence params)
> 	setText(ppwin, sprintf("%d",HSP))	
> end procedure
> setHandler(ppwin,w32HPaint,routine_id("RepaintPPwin"))
>
> procedure scroll_Form(integer Self, integer Event, sequence Params)
> 	HSP=Params[1]
> 	RepaintPPwin(ppwin,w32HScroll,"")
> end procedure
> setHandler(ppwin, w32HScroll, routine_id("scroll_Form"))
>
> 	WinMain(ppwin,Maximize)
>
> -- Code ends --

Does not behave like that when using windows 2000. Each click increases the 
count by 600. Does not 'auto' scroll.

-- 

cheers,
Derek Parnell