home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / SAMPLES / TESTNOMO.PRG < prev    next >
Text File  |  1994-02-27  |  2KB  |  91 lines
  1. #include "FiveWin.ch"
  2.  
  3. static oWnd
  4. static nCount := 0
  5.  
  6.  
  7. //----------------------------------------------------------------------------//
  8.  
  9. function Main()
  10.  
  11.    DEFINE WINDOW oWnd FROM 1, 1 TO 20, 60 ;
  12.       TITLE "Testing Non-Modal Dialog Box" ;
  13.       MENU BuildMenu()
  14.  
  15.    SET RESOURCES TO "TestNomo.dll"
  16.  
  17.    ACTIVATE WINDOW oWnd
  18.  
  19.    SET RESOURCES TO
  20.  
  21. return
  22.  
  23. //----------------------------------------------------------------------------//
  24.  
  25. function BuildMenu()
  26.  
  27.    local oMenu
  28.  
  29.    MENU oMenu
  30.       MENUITEM "&Non-Modal Dialogs"
  31.       MENU
  32.          MENUITEM "&First..."   ACTION BuildOne()
  33.          MENUITEM "&Second..."  ACTION BuildTwo()
  34.          SEPARATOR
  35.          MENUITEM "&A pedal..." ACTION TestPedal()
  36.          MENUITEM "&Exit..." ACTION oWnd:End()
  37.       ENDMENU
  38.    ENDMENU
  39.  
  40. return oMenu
  41.  
  42. //----------------------------------------------------------------------------//
  43.  
  44. function BuildOne()
  45.  
  46.    local oDlg
  47.    local nCuenta := ++nCount
  48.  
  49.    DEFINE DIALOG oDlg FROM 5, 5 TO 12, 40 TITLE "Non-Modal ONE"
  50.  
  51.    @ 1,  1 SAY "&Cuenta:" OF oDlg
  52.    @ 1,  6 GET nCuenta OF oDlg PICTURE "9999"
  53.  
  54.    @ 3, 8 BUTTON "&Salir"    OF oDlg ACTION oDlg:End() SIZE 40, 12
  55.  
  56.    ACTIVATE DIALOG oDlg NOWAIT
  57.  
  58. return
  59.  
  60. //----------------------------------------------------------------------------//
  61.  
  62. function BuildTwo()
  63.  
  64.    local oDlg
  65.  
  66.    DEFINE DIALOG oDlg FROM 5, 15 TO 12, 60 TITLE "Non-Modal TWO"
  67.  
  68.    @ 3, 8 BUTTON "&Salir"    OF oDlg ACTION oDlg:End() SIZE 40, 12
  69.           
  70.    ACTIVATE DIALOG oDlg NOWAIT VALID MsgYesNo( OemToAnsi( "¿ DEactivate Two ?" ) )
  71.  
  72. return
  73.  
  74. //----------------------------------------------------------------------------//
  75.  
  76. function TestPedal()
  77.  
  78.   local oDlg
  79.   local cNombre := "FiveWin 1.2 para Clipper 5"
  80.  
  81.   DEFINE DIALOG oDlg NAME "Test"
  82.  
  83.   // REDEFINE GET cNombre ID 110 OF oDlg
  84.  
  85.   ACTIVATE DIALOG oDlg NOWAIT ;
  86.      ON LEFT CLICK MsgInfo( "Click" )
  87.  
  88. return
  89.  
  90. //----------------------------------------------------------------------------//
  91.