B4A Library [B4X] SD_Diagram

SD_Diagram

Author: Star-Dust
Version: 1.00

• AnimateDiagram
  • Fields:
    • mBase As B4XView
    • Tag As Object
  • Functions:
    • DesignerCreateView (Base As Object, Lbl As Label, Props As Map)
    • GetBase As B4XView
    • Initialize (Callback As Object, EventName As String)
    • Invalidate
    • SetBorderSpace (Xborder As Int, Yborder As Int)
      Imposta margini
    • SetData (L As List)
      Imposta dati
• FlexDiagram
  • Fields:
    • mBase As B4XView
    • Tag As Object
  • Functions:
    • DesignerCreateView (Base As Object, Lbl As Label, Props As Map)
    • GetBase As B4XView
    • Initialize (Callback As Object, EventName As String)
    • Invalidate
    • SetBorderSpace (Xborder As Int, Yborder As Int)
    • SetData (L As List)
  • Properties:
    • AnimateLine As Boolean
    • AnimationDuration As Int
• LineDiagram
  • Fields:
    • mBase As B4XView
    • Tag As Object
  • Functions:
    • DesignerCreateView (Base As Object, Lbl As Label, Props As Map)
      Base type must be Object
    • GetBase As B4XView
    • Initialize (Callback As Object, EventName As String)
    • Invalidate
    • SetBorderSpace (Xborder As Int, Yborder As Int)
      <code>LineDiagram.SetBorderSpace(40dip,20dip)</code>
    • SetData (L As List)
      <code>LineDiagram.SetData(array as double(10.0,100.12,50.15))</code>
  • Properties:
    • AnimateLine As Boolean
    • DelayAnimation As Int
• PieDiagram
  • Functions:
    • DesignerCreateView (Base As Object, Lbl As Label, Props As Map)
    • GetBase As B4XView
    • Initialize (Callback As Object, EventName As String)
    • Invalidate
    • SetData (values As List, optionalColors As List)
  • Properties:
    • Animate As Boolean [write only]
    • Duration As Int [write only]

 

[Star-Dust]

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

 

[AnandGupta]

Great addition to B4X Library!
Thanks a lot for your hard work and contribution.