Sub Class_Globals
Private Root As B4XView
Private xui As XUI
Private LineDiagram1 As LineDiagram
Private AnimateDiagram1 As AnimateDiagram
Private FlexDiagram1 As FlexDiagram
Private PieDiagram1 As PieDiagram
End Sub
Public Sub Initialize
' B4XPages.GetManager.LogEvents = True
End Sub
'This event will be called once, before the page becomes visible.
Private Sub B4XPage_Created (Root1 As B4XView)
Root = Root1
Root.LoadLayout("MainPage")
Sleep(2000)
LineDiagram1.SetData(Array As Double(10.0,30,15,75,80.12,50,60,20,30.15,30,15,75,80.12,50,60,20,30.15))
AnimateDiagram1.SetData(Array As Double(10.0,30,15,75,80.12,50,60,20,30.15,30,15,75,80.12,50,60,20,30.15))
FlexDiagram1.SetData(Array As Double(10.0,30,15,75,80.12,50,60,20,30.15,30,15,75,80.12,50,60,20,30.15))
PieDiagram1.SetData(Array As Double(30,20, 5, 35,10), Array As Int(0xFFFF0000,0xFF00FFFF,0xFF0000FF,0xFF00FF00))
End Sub
'You can see the list of page related events in the B4XPagesManager object. The event name is B4XPage.
Private Sub Button1_Click
LineDiagram1.Invalidate
End Sub
Private Sub Button2_Click
AnimateDiagram1.Invalidate
End Sub
Private Sub Button3_Click
FlexDiagram1.invalidate
End Sub
Private Sub Button4_Click
PieDiagram1.Invalidate
End Sub