home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a084 / 2.ddi / CKSAMPLE / ABOUT.SPR < prev    next >
Encoding:
Text File  |  1993-05-25  |  5.8 KB  |  210 lines
  1. *       *********************************************************
  2. *       *                                                         
  3. *       * 05/18/93              ABOUT.SPR                13:45:03 
  4. *       *                                                         
  5. *       *********************************************************
  6. *       *                                                         
  7. *       * Steven Hsu, Wayne Lampel                                
  8. *       *                                                         
  9. *       * Copyright (c) 1993 Microsoft                            
  10. *       * One Microsoft Way                                       
  11. *       * Redmond, WA  98052                                      
  12. *       *                                                         
  13. *       * Description:                                            
  14. *       * This program was automatically generated by GENSCRN.    
  15. *       *                                                         
  16. *       *********************************************************
  17.  
  18. DO CASE
  19. CASE _WINDOWS
  20.  
  21.     
  22.     #REGION 0
  23.     REGIONAL m.currarea, m.talkstat, m.compstat
  24.     
  25.     IF SET("TALK") = "ON"
  26.         SET TALK OFF
  27.         m.talkstat = "ON"
  28.     ELSE
  29.         m.talkstat = "OFF"
  30.     ENDIF
  31.     m.compstat = SET("COMPATIBLE")
  32.     SET COMPATIBLE FOXPLUS
  33.     
  34.     m.rborder = SET("READBORDER")
  35.     SET READBORDER ON
  36.     
  37.     *       *********************************************************
  38.     *       *                                                         
  39.     *       *               Windows Window definitions                
  40.     *       *                                                         
  41.     *       *********************************************************
  42.     *
  43.     
  44.     IF NOT WEXIST("aboutck") ;
  45.         OR UPPER(WTITLE("ABOUTCK")) == "ABOUTCK.PJX" ;
  46.         OR UPPER(WTITLE("ABOUTCK")) == "ABOUTCK.SCX" ;
  47.         OR UPPER(WTITLE("ABOUTCK")) == "ABOUTCK.MNX" ;
  48.         OR UPPER(WTITLE("ABOUTCK")) == "ABOUTCK.PRG" ;
  49.         OR UPPER(WTITLE("ABOUTCK")) == "ABOUTCK.FRX" ;
  50.         OR UPPER(WTITLE("ABOUTCK")) == "ABOUTCK.QPR"
  51.         DEFINE WINDOW aboutck ;
  52.             AT  0.000, 0.000  ;
  53.             SIZE 15.692,98.400 ;
  54.             TITLE "About CKSample" ;
  55.             FONT "MS Sans Serif", 8 ;
  56.             FLOAT ;
  57.             CLOSE ;
  58.             NOMINIMIZE ;
  59.             DOUBLE
  60.         MOVE WINDOW aboutck CENTER
  61.     ENDIF
  62.     
  63.     
  64.     *       *********************************************************
  65.     *       *                                                         
  66.     *       *               ABOUT/Windows Screen Layout               
  67.     *       *                                                         
  68.     *       *********************************************************
  69.     *
  70.     
  71.     #REGION 1
  72.     IF WVISIBLE("aboutck")
  73.         ACTIVATE WINDOW aboutck SAME
  74.     ELSE
  75.         ACTIVATE WINDOW aboutck NOSHOW
  76.     ENDIF
  77.     @ 1.538,6.800 SAY "Microsoft FoxPro Connectivity Kit Sample Application"  ;
  78.         FONT "MS Sans Serif", 12 ;
  79.         STYLE "BT"
  80.     @ 5.462,7.200 SAY "Copyright ⌐ 1993 Microsoft Corp."  ;
  81.         FONT "MS Sans Serif", 10 ;
  82.         STYLE "T"
  83.     @ 3.615,6.800 SAY "Version: 2.5"  ;
  84.         FONT "MS Sans Serif", 10 ;
  85.         STYLE "BT"
  86.     @ 12.000,38.200 GET getout ;
  87.         PICTURE "@*HT Close" ;
  88.         SIZE 1.923,18.167,0.667 ;
  89.         DEFAULT 1 ;
  90.         FONT "MS Sans Serif", 8 ;
  91.         STYLE "B"
  92.     @ 8.385,7.200 SAY "Connected to "  ;
  93.         FONT "MS Sans Serif", 8 ;
  94.         STYLE "T"
  95.     @ 8.385,21.000 SAY mess_str ;
  96.         SIZE 1.000,68.800 ;
  97.         FONT "MS Sans Serif", 8
  98.     @ 7.385,4.800 TO 7.385,93.800 ;
  99.         PEN 1, 8 ;
  100.         STYLE "1"
  101.     
  102.     IF NOT WVISIBLE("aboutck")
  103.         ACTIVATE WINDOW aboutck
  104.     ENDIF
  105.     
  106.     READ CYCLE MODAL
  107.     
  108.     RELEASE WINDOW aboutck
  109.     
  110.     #REGION 0
  111.     
  112.     SET READBORDER &rborder
  113.     
  114.     IF m.talkstat = "ON"
  115.         SET TALK ON
  116.     ENDIF
  117.     IF m.compstat = "ON"
  118.         SET COMPATIBLE ON
  119.     ENDIF
  120.     
  121.  
  122. CASE _DOS
  123.  
  124.     
  125.     #REGION 0
  126.     REGIONAL m.currarea, m.talkstat, m.compstat
  127.     
  128.     IF SET("TALK") = "ON"
  129.         SET TALK OFF
  130.         m.talkstat = "ON"
  131.     ELSE
  132.         m.talkstat = "OFF"
  133.     ENDIF
  134.     m.compstat = SET("COMPATIBLE")
  135.     SET COMPATIBLE FOXPLUS
  136.     
  137.     *       *********************************************************
  138.     *       *                                                         
  139.     *       *                MS-DOS Window definitions                
  140.     *       *                                                         
  141.     *       *********************************************************
  142.     *
  143.     
  144.     IF NOT WEXIST("aboutck") ;
  145.         OR UPPER(WTITLE("ABOUTCK")) == "ABOUTCK.PJX" ;
  146.         OR UPPER(WTITLE("ABOUTCK")) == "ABOUTCK.SCX" ;
  147.         OR UPPER(WTITLE("ABOUTCK")) == "ABOUTCK.MNX" ;
  148.         OR UPPER(WTITLE("ABOUTCK")) == "ABOUTCK.PRG" ;
  149.         OR UPPER(WTITLE("ABOUTCK")) == "ABOUTCK.FRX" ;
  150.         OR UPPER(WTITLE("ABOUTCK")) == "ABOUTCK.QPR"
  151.         DEFINE WINDOW aboutck ;
  152.             FROM INT((SROW()-15)/2),INT((SCOL()-74)/2) ;
  153.             TO INT((SROW()-15)/2)+14,INT((SCOL()-74)/2)+73 ;
  154.             TITLE "About CKSample" ;
  155.             FLOAT ;
  156.             CLOSE ;
  157.             NOMINIMIZE ;
  158.             DOUBLE ;
  159.             COLOR SCHEME 5
  160.     ENDIF
  161.     
  162.     
  163.     *       *********************************************************
  164.     *       *                                                         
  165.     *       *               ABOUT/MS-DOS Screen Layout                
  166.     *       *                                                         
  167.     *       *********************************************************
  168.     *
  169.     
  170.     #REGION 1
  171.     IF WVISIBLE("aboutck")
  172.         ACTIVATE WINDOW aboutck SAME
  173.     ELSE
  174.         ACTIVATE WINDOW aboutck NOSHOW
  175.     ENDIF
  176.     @ 1,10 SAY "Microsoft FoxPro Connectivity Kit Sample Application" ;
  177.         SIZE 1,52, 0
  178.     @ 3,10 SAY "Version: BETA2" ;
  179.         SIZE 1,14, 0
  180.     @ 12,27 GET getout ;
  181.         PICTURE "@*HT OK" ;
  182.         SIZE 1,18,1 ;
  183.         DEFAULT 1
  184.     @ 9,1 SAY "Connected to " ;
  185.         SIZE 1,13, 0
  186.     @ 9,14 SAY mess_str ;
  187.         SIZE 1,57
  188.     @ 7,0 TO 7,71
  189.     @ 5,10 SAY "Copyright (c) 1993 Microsoft Corp." ;
  190.         SIZE 1,34, 0
  191.     
  192.     IF NOT WVISIBLE("aboutck")
  193.         ACTIVATE WINDOW aboutck
  194.     ENDIF
  195.     
  196.     READ CYCLE MODAL
  197.     
  198.     RELEASE WINDOW aboutck
  199.     
  200.     #REGION 0
  201.     IF m.talkstat = "ON"
  202.         SET TALK ON
  203.     ENDIF
  204.     IF m.compstat = "ON"
  205.         SET COMPATIBLE ON
  206.     ENDIF
  207.     
  208.  
  209. ENDCASE
  210.