/* 
  * Harbour MiniGUI Accelerators Demo 
  * (c) 2017 P.Ch. 
 */ 
  
 #include "minigui.ch" 
 #include "i_appevents.ch" 
  
 ////////////////////////////////////////////////////////////////////////////// 
 #define WM_APP       0x8000 
 #define ev_Fire1     (WM_APP + 1) 
 #define ev_Fire2     (WM_APP + 2) 
 #define ev_Fire3     (WM_APP + 3) 
 #define ev_FireOnce  (WM_APP + 10) 
  
 ////////////////////////////////////////////////////////////////////////////// 
 FUNCTION Main() 
  
    LOCAL lResult 
  
    LOCAL bEvent1 := {|h,m| HB_SYMBOL_UNUSED(h), MsgInfo('ID:'+hb_NtoS(m), 'Event fired:[1]')} 
    LOCAL bEvent2 := {|h,m| HB_SYMBOL_UNUSED(h), MsgInfo('ID:'+hb_NtoS(m), 'Event fired:[2]')} 
    LOCAL bEvent3 := {|h,m| HB_SYMBOL_UNUSED(h), MsgInfo('ID:'+hb_NtoS(m), 'Event fired:[3]')} 
    LOCAL bEvent4 := {|h,m| HB_SYMBOL_UNUSED(h), MsgInfo('ID:'+hb_NtoS(m), 'Event fired:[4]')} 
    LOCAL bEvent0 := {|h,m| HB_SYMBOL_UNUSED(h), MsgInfo('ID:'+hb_NtoS(m), 'Event fired:[0]')} 
  
    DEFINE WINDOW WinMain ; 
       CLIENTAREA 600, 400 ; 
       TITLE 'AppEvents Demo' ; 
       MAIN  
  
       ON APPEVENT ev_Fire1 ACTION bEvent1 OF ThisWindow.Handle 
       ON APPEVENT ev_Fire2 ACTION bEvent2 OF ThisWindow.Handle 
       ON APPEVENT ev_Fire3 ACTION bEvent3 OF ThisWindow.Handle 
  
       UPDATE APPEVENT ev_Fire3 OF ThisWindow.Handle NOACTIVE 
       UPDATE APPEVENT ev_Fire3 ACTION bEvent4 OF ThisWindow.Handle  
  
       ON APPEVENT ev_FireOnce ACTION bEvent0 OF ThisWindow.Handle ONCE 
       // REMOVE APPEVENT ALL OF ThisWindow.Handle ONCE 
  
       DEFINE BUTTONEX FireButton1 
          ROW      290 
          COL      50 
          CAPTION  "Fire 1" 
          ACTION   EMIT ev_Fire1 OF WinMain.Handle 
          WIDTH    140 
          HEIGHT   40 
       END BUTTONEX 
  
       DEFINE BUTTONEX FireButton2 
          ROW      340 
          COL      50 
          CAPTION  "Fire 2" 
          ACTION   EMIT ev_Fire2 OF WinMain.Handle 
          WIDTH    140 
          HEIGHT   40 
       END BUTTONEX 
  
       DEFINE BUTTONEX FireButton3 
          ROW      290 
          COL      200 
          CAPTION  "Fire 3" 
          ACTION   EMIT ev_Fire3 OF WinMain.Handle 
          WIDTH    140 
          HEIGHT   40 
       END BUTTONEX 
  
       DEFINE BUTTONEX FireButton4 
          ROW      340 
          COL      200 
          CAPTION  "Fire Once" 
          ACTION   EMIT ev_FireOnce OF WinMain.Handle 
          WIDTH    140 
          HEIGHT   40 
       END BUTTONEX 
  
    END WINDOW 
  
    WinMain.Center 
    WinMain.Activate 
  
 RETURN 0