home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / SAMPLES / TESTWSTY.PRG < prev    next >
Text File  |  1994-05-26  |  2KB  |  101 lines
  1. // Testing Windows Styles!
  2.  
  3. #include "FiveWin.ch"
  4.  
  5. //----------------------------------------------------------------------------//
  6.  
  7. function Main()
  8.  
  9.    local oWnd
  10.  
  11.  
  12.    // First Test
  13.  
  14.    DEFINE WINDOW oWnd FROM 2, 7 TO 20, 75 TITLE "Normal Window Style"
  15.  
  16.    @ 2, 2 BUTTON "&Next Test" SIZE 80, 25 OF oWnd ;
  17.       ACTION oWnd:End()
  18.  
  19.    ACTIVATE WINDOW oWnd
  20.  
  21.  
  22.    // Second Test
  23.  
  24.    DEFINE WINDOW oWnd FROM 2, 7 TO 20, 75 TITLE "Window No Zoom" ;
  25.       NOZOOM
  26.  
  27.    @ 2, 2 BUTTON "&Next Test" SIZE 80, 25 OF oWnd ;
  28.       ACTION oWnd:End()
  29.  
  30.    ACTIVATE WINDOW oWnd
  31.  
  32.  
  33.    // Third Test
  34.  
  35.    DEFINE WINDOW oWnd FROM 2, 7 TO 20, 75 ;
  36.       TITLE "Window No Zoom, No Iconize" ;
  37.       NOZOOM NOICONIZE
  38.  
  39.    @ 2, 2 BUTTON "&Next Test" SIZE 80, 25 OF oWnd ;
  40.       ACTION oWnd:End()
  41.  
  42.    ACTIVATE WINDOW oWnd
  43.  
  44.  
  45.    // Four Test
  46.  
  47.    DEFINE WINDOW oWnd FROM 2, 7 TO 20, 75 ;
  48.       TITLE "Window No Zoom, No Iconize, No Border" ;
  49.       NOZOOM NOICONIZE ;
  50.       BORDER NONE
  51.  
  52.    @ 2, 2 BUTTON "&Next Test" SIZE 80, 25 OF oWnd ;
  53.       ACTION oWnd:End()
  54.  
  55.    ACTIVATE WINDOW oWnd
  56.  
  57.  
  58.    // Five Test
  59.  
  60.    DEFINE WINDOW oWnd FROM 2, 7 TO 20, 75 ;
  61.       TITLE "Window No SysMenu, No Iconize, No Zoom, No Border" ;
  62.       NOSYSMENU ;
  63.       NOZOOM NOICONIZE ;
  64.       BORDER NONE
  65.  
  66.    @ 2, 2 BUTTON "&Next Test" SIZE 80, 25 OF oWnd ;
  67.       ACTION oWnd:End()
  68.  
  69.    ACTIVATE WINDOW oWnd
  70.  
  71.    // Six Test
  72.  
  73.    DEFINE WINDOW oWnd FROM 2, 7 TO 20, 75 ;
  74.       TITLE "Window No Caption, No Border" ;
  75.       NO CAPTION ;
  76.       BORDER NONE
  77.  
  78.    @ 2, 2 BUTTON "&Next Test" SIZE 80, 25 OF oWnd ;
  79.       ACTION oWnd:End()
  80.  
  81.    ACTIVATE WINDOW oWnd
  82.  
  83.    // Seven Test
  84.  
  85.    DEFINE WINDOW oWnd FROM 2, 7 TO 20, 75 ;
  86.       TITLE "Normal Window with ScrollBars" ;
  87.       VSCROLL HSCROLL
  88.  
  89.    @ 2, 2 BUTTON "&Next Test" SIZE 80, 25 OF oWnd ;
  90.       ACTION oWnd:End()
  91.  
  92.    ACTIVATE WINDOW oWnd ;
  93.       ON UP    oWnd:Say( 4, 2, "Wellcome to FiveWin" ) ;
  94.       ON DOWN  oWnd:Say( 5, 2, "Pure xBase power..." ) ;
  95.       ON LEFT  oWnd:Say( 6, 2, "in your fingertips..." ) ;
  96.       ON RIGHT oWnd:Say( 7, 2, "Enjoy the Windows revolution!" )
  97.  
  98. return nil
  99.  
  100. //----------------------------------------------------------------------------//
  101.