Sub Process_Globals
Private fx As JFX
Private MainForm As Form
Private Canvas1 As Canvas
Private Button1 As Button
Private b As Image
Private t As Timer
Private angle As Int
End Sub
Sub AppStart (Form1 As Form, Args() As String)
MainForm = Form1
MainForm.SetFormStyle("UNIFIED")
MainForm.RootPane.LoadLayout("1") 'Load the layout file.
MainForm.Show
b.Initialize(File.DirAssets, "circle_img.png")
Canvas1.DrawImage(b,0,0,b.Width,b.Height) ',0,0,Canvas1.Width,Canvas1.height)
t.Initialize("t",10)
angle = 0
End Sub
Sub t_tick
angle = angle + 1
If angle = 360 Then angle=0
Canvas1.DrawImageRotated(b,0,0,b.Width,b.Height, angle)
End Sub
Sub Button1_Action
If t.Enabled Then
t.Enabled=False
Else
t.Enabled=True
End If
End Sub