Region Project Attributes
#MainFormWidth: 1000
#MainFormHeight: 800
' #AdditionalJar: sqlite-jdbc-3.7.
#AdditionalJar: core-3.3.0.jar
#AdditionalJar: javase-3.3.0.jar
#End Region
Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Private ImageView1 As ImageView 'original image
Private b As Image
Private dec As decoder
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.SetFormStyle("UNIFIED")
MainForm.RootPane.LoadLayout("main") 'Load the layout file.
MainForm.Show
MainForm.BackColor = fx.Colors.ARGB(100,0,0,255)
' MainForm.Initialize("", -1, -1)
MainForm.WindowWidth = 500
MainForm.WindowLeft = 0
MainForm.WindowTop = 0
MainForm.WindowHeight = 500
ImageView1.Visible = False
b.Initialize(File.DirAssets,"ean13.png")
ImageView1.SetImage(b)
ImageView1.Visible = True
'Initialize the barcode decoder
dec.Initialize
Dim result As String = dec.decodeBarcode(b)
Log("Decoded barcode = " & result)
End Sub