Sub bt_Action
Dim bt As Button = Sender
Select bt.Tag
Case "Menu of Day"
lw.Items.Clear
lw.Style = CssModule.listviewTrasparent
For Each colroot As Map In ListDay
lw.Items.Add(colroot.Get("descrizione"))
Next
Case "Event"
Case "Profile"
Case "Category"
Case "Production"
End Select
End Sub
Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Private lv As ListView
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.Show
lv.Initialize("lv")
For i = 1 To 100
lv.Items.Add(i)
Next
MainForm.RootPane.Style = " -fx-background-color: green;"
MainForm.Stylesheets.Add(File.GetUri(File.DirAssets, "lv.css"))
MainForm.RootPane.AddNode(lv, 0, 0, 200, 300)
End Sub