Hello everyone,
This is simplification of "Time Set via Scrollview B4A", post by Björn Roth on 03/10/2012.
The display is updated periodically.
Is it possible to update the display only when ScrollView Positions changed?
Thanks in advance.
This is simplification of "Time Set via Scrollview B4A", post by Björn Roth on 03/10/2012.
The display is updated periodically.
Is it possible to update the display only when ScrollView Positions changed?
Thanks in advance.
B4X:
#Region Module Attributes
#FullScreen: False
#IncludeTitle: True
#ApplicationLabel: TimeSet
#VersionCode: 1
#VersionName:
#SupportedOrientations: unspecified
#CanInstallToExternalStorage: False
#End Region
Sub Process_Globals
End Sub
Sub Globals
Dim Timer2 As Timer
Dim Panel1(3) As Panel
Dim ScrollView1 As ScrollView
Dim pp1 As Int 'ScrollView Positions
End Sub
Sub Activity_Create(FirstTime As Boolean)
Timer2.Initialize("Timer2", 700) 'Display update period
Activity.LoadLayout("main")
For ii = 0 To 2
If ii=0 Then
SetupScrollViews(ScrollView1,ii,256)
End If
Next
pp1=Rnd(0,12)*55
End Sub
Sub SetupScrollViews(scv As ScrollView, ii As Int, z As Int)
Panel1(ii)= scv.Panel
For i = -2 To z
Dim Label1 As Label
Label1.Initialize("")
Label1.TextSize=24
Label1.Gravity=Gravity.CENTER
If i>-1 And i<(z-1) Then Label1.Text=NumberFormat( i,2,0)
Panel1(ii).AddView(Label1,3,(i+2)*55,96,58)
Next
Panel1(ii).Height=55*i+111
End Sub
Sub ScrollView1_ScrollChanged(Position As Int)
pp1=Position
Timer2.Enabled = True
End Sub
Sub Timer2_Tick
vv1=Round(pp1/55)
Activity.Title=vv1 'Show Display
End Sub