home *** CD-ROM | disk | FTP | other *** search
/ DP Tool Club 16 / CD_ASCQ_16_0994.iso / news / 4611 / fw16d.ins / SAMPLES / TESTDAT2.PRG < prev    next >
Text File  |  1994-06-12  |  860b  |  32 lines
  1. #include "FiveWin.ch"
  2.  
  3. //----------------------------------------------------------------------------//
  4.  
  5. function Main()
  6.  
  7.    local oWnd
  8.    local dDate := Date()
  9.    local cName := "FiveWin xBase revolution!"
  10.  
  11.    // SET CONFIRM ON   --> this will require the user to press Enter
  12.    //                      to jump to next GET when finishing typing a date
  13.  
  14.    DEFINE WINDOW oWnd TITLE "Testing date GETs" COLOR "W+/B"
  15.  
  16.    @ 2, 7 GET dDate SIZE  80, 25 COLOR "W+/BG" ;
  17.       MESSAGE "Try to type a bad date"
  18.  
  19.    @ 2, 1 SAY "Date:"
  20.  
  21.    @ 5, 1 SAY "Name: "
  22.    @ 5, 7 GET cName SIZE 250, 25 COLOR "W+/BG" ;
  23.       MESSAGE "Write the name of your customer"
  24.  
  25.    SET MESSAGE OF oWnd TO "Testing GETs with dates" CENTERED
  26.  
  27.    ACTIVATE WINDOW oWnd
  28.  
  29. return nil
  30.  
  31. //----------------------------------------------------------------------------//
  32.