Sub Class_Globals
Private mCallback As Object
Private mEventName As String
Private act As Activity
Private fh_panel As ScrollView ' Reference to panel handle
Private Data As Map
End Sub
Public Sub Initialize
Data = CreateMap("fh_button":"Ok")
End Sub
Sub fg(activ As Activity,params As String,Callback As Object, EventName As String)
mCallback = Callback
mEventName = EventName
act = activ
fh_panel.Initialize(100%y)
fh_panel.Color = Colors.Cyan
Dim btn As Button
btn.Initialize("btn")
btn.text = "Ok"
fh_panel.Panel.AddView(btn,100,100,90 , 60)
act.AddView(fh_panel,0,0,100%x,100%y)
End Sub
Sub btn_Click
CallSubDelayed2(mCallback, mEventName ,Data)
End Sub