Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Private ImageView1 As ImageView
Private lblexVolume(10) As Label
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.RootPane.LoadLayout("1") 'Load the layout file.
MainForm.Show
Dim p As Pane
Dim sv As ScrollPane
sv.Initialize("sv")
p.Initialize("p")
p = sv.InnerNode
Dim ist As Int = 0
lblexVolume(ist).Initialize("lblexv")
lblexVolume(ist).Alignment="CENTER_LEFT"
lblexVolume(ist).Font=fx.CreateFont("TrebuchetMS","14",False,False)
lblexVolume(ist).Text="24H Vol: $ " & NumberFormat2(0.4 ,1,2,0,True)
lblexVolume(ist).TextColor=fx.Colors.RGB(255,237,129)
p.AddNode(lblexVolume(ist),5,30dip,240,28)
MainForm.RootPane.AddNode(sv,0,0,MainForm.RootPane.PrefWidth,MainForm.RootPane.PrefHeight)
End Sub
'Return true to allow the default exceptions handler to handle the uncaught exception.
Sub Application_Error (Error As Exception, StackTrace As String) As Boolean
Return True
End Sub