Sub lvMenu_Load
Dim Wid As Double = lvMenu.Width
Dim lbl As Label
lbl.Initialize("")
lvMenu.Items.Clear
'lvMenu.Alpha = 0.0
lvMenu.Style = "-fx-background-color: transparent; -fx-border-color: transparent;"
'NAVIGATE
lvMenu.Items.Add(Menu_CreateItem(1,"NAVIGATE",Wid))
lbl.Text = Chr(0xF017) & " Timeline"
lvMenu.Items.Add(Menu_CreateItem(2,lbl.Text,Wid))
lbl.Text = Chr(0xF0E4) & " Dashboard"
lvMenu.Items.Add(Menu_CreateItem(2,lbl.Text,Wid))
lbl.Text = Chr(0xF1FE) & " Statistics"
lvMenu.Items.Add(Menu_CreateItem(2,lbl.Text,Wid))
lbl.Text = Chr(0xF085) & " Analytics"
lvMenu.Items.Add(Menu_CreateItem(2,lbl.Text,Wid))
lbl.Text = Chr(0xF145) & " Tickets"
lvMenu.Items.Add(Menu_CreateItem(2,lbl.Text,Wid))
'MANAGE
lvMenu.Items.Add(Menu_CreateItem(1,"MANAGE",Wid))
lbl.Text = Chr(0xF0F6) & " Projects"
lvMenu.Items.Add(Menu_CreateItem(2,lbl.Text,Wid))
lbl.Text = Chr(0xF2C3) & " Clients"
lvMenu.Items.Add(Menu_CreateItem(2,lbl.Text,Wid))
lbl.Text = Chr(0xF2BE) & " Teams"
lvMenu.Items.Add(Menu_CreateItem(2,lbl.Text,Wid))
lbl.Text = Chr(0xF02C) & " Tags"
lvMenu.Items.Add(Menu_CreateItem(2,lbl.Text,Wid))
lbl.Text = Chr(0xF233) & " Settings"
lvMenu.Items.Add(Menu_CreateItem(2,lbl.Text,Wid))
'ACTION
lvMenu.Items.Add(Menu_CreateItem(1,"ACTION",Wid))
lbl.Text = Chr(0xF24D) & " New"
lvMenu.Items.Add(Menu_CreateItem(2,lbl.Text,Wid))
lbl.Text = Chr(0xF0C5) & " Duplicate"
lvMenu.Items.Add(Menu_CreateItem(2,lbl.Text,Wid))
lbl.Text = Chr(0xF014) & " Delete"
lvMenu.Items.Add(Menu_CreateItem(2,lbl.Text,Wid))
End Sub
Sub Menu_CreateItem(MenuType As Int, Text As String, W As Double) As Pane
Dim p As Pane
p.Initialize("")
p.Style = "-fx-background-color: transparent; -fx-border-radius: 10; -fx-background-radius: 10;"
Dim l As Label
l.Initialize("")
l.Text = Text
Dim tFont As Font
Select MenuType
Case 1 'header item
tFont = fx.CreateFontAwesome(10)
l.Font = tFont
l.Style = "-fx-text-fill: black; -fx-alignment: BOTTOM_LEFT; -fx-background-color: transparent;"
p.AddNode(l,-1,-1,W,30dip)
p.PrefHeight = 30dip
Case 2 ' menu item
tFont = fx.CreateFontAwesome(16)
l.Font = tFont
l.Style = "-fx-text-fill: black; -fx-text-alignment: left; -fx-background-color: transparent;"
p.AddNode(l,-1,-1,W,22dip)
p.PrefHeight = 22dip
End Select
Return p
End Sub