Vertical Scroll Pyro 2

[APCParticipant]

I am trying to develop an app for mobile phones, Android and iOS and I am having trouble to implement a vertical scrolling.

The app has 5 GuiButtons on the main screen, each button displays a new guilayer, and each guilayer has a back button, this part is working fine.

In one of the guilayers I have things to display that does not fit on the screen and I have to use a vertical scroll. I tryed using the camera but it is not compatible with Screen Manager, if I try to use the Window instead the the GuiLayer, GuiLabel and GuiImage are not compatible with Window.

How can I implement a vertical scrolling that is compatible with Pyro 2 gui ?

[PlayniaxParticipant]

Off the top of my head, a guilayer X and Y can be used to scroll.

[APCParticipant]

Playniax,

I was able to do my vertical scrolling with this code.

Monkey

Method OnMouseEvent( event:MouseEvent ) Override ' Send mouse events to all gui 'mouseWheel= event.Wheel If guiPage=GROUPS 'Check for mouse If Mouse.ButtonDown(MouseButton.Left) Or Mouse.ButtonDown(MouseButton.Right) Or Touch.FingerDown( 0 ) Or Touch.FingerDown( 1 ) If Mouse.Y>memY 'Check Mouse Direction Down() memY=Mouse.Y 'save mouse position Else Up() memY=Mouse.Y 'save mouse position Endif Endif ' Check for Touch If Touch.FingerDown( 0 ) 'Or Touch.FingerDown( 1 ) If Touch.FingerY(0)>memTY 'Check Mouse Direction Down() memTY=Touch.FingerY(0) Else Up() memTY=Touch.FingerY(0) Endif Endif 'Check for Mouse Wheel ' If mouseWheel.Y=-1 ' Down() ' Elseif mouseWheel.Y=1 ' Up() ' Endif Endif guiLayer[guiPage].SendMouseEvent( event ) End Method Up() mousetxt="UP:"+Mouse.Y+ " memY:"+memY+ " guiPageY:"+guiLayer[guiPage].Y+ " TouchY:"+ Touch.FingerY(0) + " memTY:" + memTY+" mouseWheel:"+mouseWheel.Y Print mousetxt guiLayer[guiPage].Y-=10 'limit the bottom of the guiPage to the window height. If guiLayer[guiPage].Y <=-WINDOW_HEIGHT Then guiLayer[guiPage].Y=-WINDOW_HEIGHT End Method Down() mousetxt="Down:"+Mouse.Y+ " memY:"+memY+ " guiPageY:"+guiLayer[guiPage].Y+" TouchY:"+ Touch.FingerY(0) + " memTY:" + memTY+" mouseWheel:"+mouseWheel.Y Print mousetxt guiLayer[guiPage].Y+=10 'limit the top guiPage to the top of the window If guiLayer[guiPage].Y>=0 Then guiLayer[guiPage].Y=0 memY=Mouse.Y 'save mouse position End

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50

Method OnMouseEvent( event:MouseEvent ) Override ' Send mouse events to all gui 'mouseWheel= event.Wheel If guiPage=GROUPS 'Check for mouse If  Mouse.ButtonDown(MouseButton.Left) Or Mouse.ButtonDown(MouseButton.Right) Or Touch.FingerDown( 0 ) Or Touch.FingerDown( 1 ) If Mouse.Y>memY 'Check Mouse Direction Down() memY=Mouse.Y 'save mouse position Else Up() memY=Mouse.Y 'save mouse position Endif Endif ' Check for Touch If  Touch.FingerDown( 0 ) 'Or Touch.FingerDown( 1 ) If Touch.FingerY(0)>memTY 'Check Mouse Direction Down() memTY=Touch.FingerY(0) Else Up() memTY=Touch.FingerY(0) Endif Endif 'Check for Mouse Wheel ' If mouseWheel.Y=-1 ' Down() ' Elseif mouseWheel.Y=1 ' Up() ' Endif Endif guiLayer[guiPage].SendMouseEvent( event ) End Method Up() mousetxt="UP:"+Mouse.Y+ " memY:"+memY+ " guiPageY:"+guiLayer[guiPage].Y+ " TouchY:"+ Touch.FingerY(0) + " memTY:" + memTY+" mouseWheel:"+mouseWheel.Y Print mousetxt guiLayer[guiPage].Y-=10 'limit the bottom of the guiPage to the window height. If guiLayer[guiPage].Y <=-WINDOW_HEIGHT Then guiLayer[guiPage].Y=-WINDOW_HEIGHT End Method Down() mousetxt="Down:"+Mouse.Y+ " memY:"+memY+ " guiPageY:"+guiLayer[guiPage].Y+" TouchY:"+ Touch.FingerY(0) + " memTY:" + memTY+" mouseWheel:"+mouseWheel.Y Print mousetxt guiLayer[guiPage].Y+=10 'limit the top guiPage to the top of the window If guiLayer[guiPage].Y>=0 Then guiLayer[guiPage].Y=0 memY=Mouse.Y 'save mouse position End

[Author]

Posts