OpenEuphoria

Re: Back to the scroll bar thing ;-(

• Posted by "C. K. Lester" <cklester at yahoo.com> Feb 18, 2003
• 501 views

Pete,

I'm running Win2K and the numbers do go up as I press the bottom scroll
button.

----- Original Message -----
From: "Pete Lomax" <petelomax at blueyonder.co.uk>
To: "EUforum" <EUforum at topica.com>
Subject: Back to the scroll bar thing ;-(



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 --

==^^===============================================================
This email was sent to: cklester at yahoo.com


TOPICA - Start your own email discussion group. FREE!