Sub Globals
'Declare the global variables here.
End Sub
Sub App_Start
dzem.New1("SerButton", true)
dzem.Hook(512) '<<<<<<<<quì mi dà errore!!
FormStart.Show
FormStart.Refresh
Sleep(500)
FormStart.ForeLayer = true
SerButton.Image = ImageList1.Item(0)
FormStart.FDrawString ("Loading.....", 16,750,20,550,500,255,255,255)
formstart.Refresh
Carica_Settings
Sleep(500)
FormStart.FErase(750,20,550,500)
FormStart.Refresh
Sleep(500)
FormMain.ForeLayer = true
FormMain.FDrawString ("Seriale", 12,17,65,100,100,255,255,255)
FormMain.Show
FormMain.Refresh
'Tab1.New1("FormMain", 100, 30, 400, 200)
'Tab1.AddTabPage("Test_Seriale")
'Tab1.AddTabPage("Test_Stampanti")
End Sub
Sub FormMain_Close
dzem.UnHook(512)
AppClose
End Sub
Sub Carica_Settings
'..........
End Sub
Sub SerButton_ButtonDown
SerButton.Image = ImageList1.Item(1)
End Sub
Sub SerButton_ButtonUp
SerButton.Image = ImageList1.Item(0)
End Sub
Sub dzem_MagicEvent
'Qui il codice non è completo ma mi serviva vedere solo se ci andavo quando scatenavo l'evento
SerButton.Image = ImageList1.Item(2)
End Sub