OpenEuphoria

Re: Horizontal or Vertical Scroll event?

• Posted by Derek Parnell <ddparnell at bigpond.com> Sep 19, 2002
• 544 views

The Horizontal scroll bar has only been supported since v0.57.10BETA.

You can try out the latest BETA release at ...

 http://www.users.bigpond.com/ddparnell/euphoria/w3205711.zip

Please read the docs for details.

20/09/2002 10:49:34 AM, petelomax at blueyonder.co.uk wrote:


I've tracked a bug down to the following snippet of code (from Mike's
>Editor):
>
>procedure onScroll_MAIN( integer pos)
>	if pos != oldvscroll and getVScrollPos(MAIN) = pos then
>		scrollVertical(pos)
>	elsif getHScrollPos(MAIN) = pos then
>		scrollHorizontal(pos)
>	end if
>	end procedure
>	onScroll[MAIN] = routine_id("onScroll_MAIN")
>
>The trouble is it should be calling ScrollVertical but it is calling
>ScrollHorizontal. The file is positioned at (1,1) pos is 1. oldvscroll
>is 1. oldhscroll is 1. getVScrollPos(MAIN) returns 1. getHScrollPos
>returns 1.
>
>I tried findChildren(MAIN) but no HScroll or VScroll controls appear
>to be returned. getSelf() always returns MAIN.
>
>The original create(HScroll...) lines have been removed and replaced
>with 	MAIN = createEx ( Window, "", 0, left, top,windowWidth,
>windowHeight, {WS_THICKFRAME,  WS_SYSMENU, WS_MINIMIZEBOX,
>WS_MAXIMIZEBOX, WS_HSCROLL, WS_VSCROLL}, {WS_EX_CLIENTEDGE} )
>
>Is there any way to determine if it is a horizontal or vertical scroll
>event in that case?
>
>I'm actually using v0.55.5, but I tested v0.57.9 and got the same.
>
>Pete



Derek Parnell 
ICQ# 7647806