MainForm = Form1
MainForm.Title = "[C++] Native Library Generator"
MainForm.SetFormStyle("TRANSPARENT")
MainForm.Resizable = False
MainForm.Show
MainForm.Stylesheets.Add(File.GetUri(File.DirAssets, "style.css"))
MainForm.RootPane.Style = "-fx-background-color: rgba(48, 48, 48, 1); -fx-border-color: rgba(64, 64, 64, 1);"
Dim w = MainForm.Width As Int
Dim h = MainForm.Height As Int
fx.LoadFont(File.DirAssets, "Consolas.ttf", 12)
lblTitle.Initialize("lblTitle")
lblTitle.Style = "-fx-vertical-align: text-top; -fx-font: 12px Consolas; -fx-text-fill: rgba(0, 192, 255, 1); -fx-background-color: rgba(40, 40, 40, 1);"
lblTitle.Text = " [C++] Native Library Generator"
MainForm.RootPane.AddNode(lblTitle, 1, 1, w - 2, h * 0.05)
lblExit.Initialize("lblExit")
lblExit.Style = "-fx-vertical-align: text-top; -fx-font: 12px Consolas; -fx-text-fill: rgba(0, 192, 255, 1); -fx-background-color: rgba(40, 40, 40, 1);"
lblExit.Text = "X "
MainForm.RootPane.AddNode(lblExit, w - 20, 1, 19, h * 0.05)
lblSound.Initialize("lblSound")
lblSound.Style = "-fx-vertical-align: text-top; -fx-font: 12px Consolas; -fx-text-fill: rgba(0, 192, 255, 1); -fx-background-color: rgba(40, 40, 40, 1);"
lblSound.Text = "Snd"
MainForm.RootPane.AddNode(lblSound, w - 50, 1, 19, h * 0.05)
txtConfgBox.Initialize("txtConfgBox")
txtConfgBox.Style = "-fx-vertical-align: text-top; -fx-font: 12px Consolas; -fx-text-fill: rgba(255, 192, 0, 1); -fx-border-color: rgba(0, 192, 255, 1); -fx-background-color: black; -fx-border-radius: 3px;"
MainForm.RootPane.AddNode(txtConfgBox, w * 0.05, h * 0.10, w * 0.50, h * 0.21)
txtStatsBox.Initialize("txtStatsBox")
txtStatsBox.Style = "-fx-vertical-align: text-top; -fx-font: 12px Consolas; -fx-text-fill: rgba(0, 192, 255, 1); -fx-border-color: rgba(0, 192, 255, 1); -fx-background-color: black; -fx-border-radius: 3px;"
txtStatsBox.Text = ":: [C++] Native Library Generator" & CRLF & _
":: 2015-2016 Bruno Silva / Ninja Dynamics" & CRLF & _
":: Music: Kenny Chou - One Must Fall: 2097 " & CRLF & _
CRLF & CRLF & CRLF & _
"[" & DateTime.Time(DateTime.Now) & "] Ready." & CRLF
txtStatsBox.WrapText = True
txtStatsBox.Editable = False
MainForm.RootPane.AddNode(txtStatsBox, w * 0.57, h * 0.10, w * 0.38, h * 0.21)
txtPasteBox.Initialize("txtPasteBox")
txtPasteBox.Style = "-fx-vertical-align: text-top; -fx-font: 12px Consolas; -fx-text-fill: rgba(0, 255, 64, 255); -fx-border-color: rgba(0, 192, 255, 1); -fx-background-color: transparent; -fx-border-radius: 3px;"
MainForm.RootPane.AddNode(txtPasteBox, w * 0.05, h * 0.345, w * 0.90, h * 0.455)
btnGo.Initialize("btnGo")
btnGo.Text = "Generate B4A Library"
btnGo.Style = btnGo.Style & "-fx-background-color: rgba(0, 182, 255, 1);"
MainForm.RootPane.AddNode(btnGo, w * 0.05, h * 0.85, w * 0.90, h * 0.10)
bgMusic.Initialize("bgMusic", File.GetUri(File.DirAssets, "music.mp3"))
bgMusic.Volume = 0.5
bgMusic.CycleCount = -1