iOS Question I want ScrollView move in a fix OffsetY after I scroll this Scrollview .

cambol

Active Member
Licensed User
I want ScrollView move in a fix OffsetY after I scroll this Scrollview .
I can do it in B4A
How to modify this code for B4i



Dim Timer As Timer
Dim sc As ScrollView
Dim pp As Int


Timer.Initialize("TimerX", 700)
DoEvents ------> b4i no DoEvent
sc.ScrollOffsetY=Round(pp / 20 ) *20




Sub ScrollViewX_ScrollChanged(Position As Int)
Dim SV1 As ScrollView
SV1=Sender
Timer.Enabled = True
pp=Position


Dim r As Reflector ----> b4i no reflector
r.Target =SV1
r.RunMethod2("setVerticalScrollBarEnabled", False, "java.lang.boolean")

End Sub




Sub TimerX_Tick
Dim ti As Timer
ti=Sender
sc.ScrollOffsetY=Round(pp / Dyy ) *Dyy '
Timer.Enabled = False
End Sub
 

cambol

Active Member
Licensed User
This is my code ~

B4X:
Sub Process_Globals

Dim sc As ScrollView
Dim pp As Int

EndSub



PrivateSub Application_Start (Nav AsNavigationController)

  NavControl = Nav
  Page1.Initialize("Page1")
  Page1.RootPanel.Color = Colors.White
  NavControl.ShowPage(Page1)
  Page1.RootPanel.LoadLayout("main")


  Timer.Initialize("TimerX", 700) 
  sc.ScrollTo(0,Round(pp / Dyy ) *Dyy,True)

EndSub


Sub TimerX_Tick
  Dim ti AsTimer
  ti=Sender
  sc.ScrollTo(0,Round(pp / Dyy ) *Dyy ,True)
  Timer.Enabled = False
EndSub


Sub SC_ScrollChanged (OffsetX AsInt, OffsetY AsInt)
  Dim SV1 AsScrollView
  SV1=Sender
  Timer.Enabled = True
  pp=OffsetY

  Dim r As Reflector ----> b4i no reflector
  r.Target =SV1
  r.RunMethod2("setVerticalScrollBarEnabled", False, "java.lang.boolean")

EndSub
 
Upvote 0
Top