home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a108 / 13.ddi / EXAMPLES.SP_ / EXAMPLES.bin
Encoding:
Text File  |  1994-03-10  |  5.9 KB  |  193 lines
  1. *       *********************************************************
  2. *       *                                                         
  3. *       * 01/05/93            EXAMPLES.SPR               20:59:27 
  4. *       *                                                         
  5. *       *********************************************************
  6. *       *                                                         
  7. *       * Wayne Lampel                                            
  8. *       *                                                         
  9. *       * Copyright (c) 1993 MIcrosoft Corporation                
  10. *       * One Microsoft Way                                       
  11. *       * Redmond, WA  98052                                      
  12. *       *                                                         
  13. *       * Description:                                            
  14. *       * This program was automatically generated by GENSCRN.    
  15. *       *                                                         
  16. *       *********************************************************
  17.  
  18.  
  19. #REGION 0
  20. REGIONAL m.currarea, m.talkstat, m.compstat
  21.  
  22. IF SET("TALK") = "ON"
  23.     SET TALK OFF
  24.     m.talkstat = "ON"
  25. ELSE
  26.     m.talkstat = "OFF"
  27. ENDIF
  28. m.compstat = SET("COMPATIBLE")
  29. SET COMPATIBLE FOXPLUS
  30.  
  31. m.rborder = SET("READBORDER")
  32. SET READBORDER ON
  33.  
  34. m.currarea = SELECT()
  35.  
  36.  
  37. *       *********************************************************
  38. *       *                                                         
  39. *       *               Windows Window definitions                
  40. *       *                                                         
  41. *       *********************************************************
  42. *
  43.  
  44. IF NOT WEXIST("oexam") ;
  45.     OR UPPER(WTITLE("OEXAM")) == "OEXAM.PJX" ;
  46.     OR UPPER(WTITLE("OEXAM")) == "OEXAM.SCX" ;
  47.     OR UPPER(WTITLE("OEXAM")) == "OEXAM.MNX" ;
  48.     OR UPPER(WTITLE("OEXAM")) == "OEXAM.PRG" ;
  49.     OR UPPER(WTITLE("OEXAM")) == "OEXAM.QPR"
  50.     DEFINE WINDOW oexam ;
  51.         AT  0.000, 0.000  ;
  52.         SIZE 18.462,67.600 ;
  53.         TITLE "OLE Examples" ;
  54.         FONT "MS Sans Serif", 8 ;
  55.         FLOAT ;
  56.         CLOSE ;
  57.         MINIMIZE ;
  58.         SYSTEM ;
  59.         COLOR RGB(,,,255,255,255)
  60.     MOVE WINDOW oexam CENTER
  61. ENDIF
  62.  
  63.  
  64. *       *********************************************************
  65. *       *                                                         
  66. *       *         EXAMPLES/Windows Setup Code - SECTION 2         
  67. *       *                                                         
  68. *       *********************************************************
  69. *
  70.  
  71. #REGION 1
  72. if not used("oletable")
  73.     use (locfile("oletable.dbf","*.dbf"))
  74. else
  75.     select oletable
  76. endif
  77.  
  78. *       *********************************************************
  79. *       *                                                         
  80. *       *             EXAMPLES/Windows Screen Layout              
  81. *       *                                                         
  82. *       *********************************************************
  83. *
  84.  
  85. #REGION 1
  86. IF WVISIBLE("oexam")
  87.     ACTIVATE WINDOW oexam SAME
  88. ELSE
  89.     ACTIVATE WINDOW oexam NOSHOW
  90. ENDIF
  91. @ 0.923,4.800 GET doexam ;
  92.     PICTURE "@*VN Example 1;Example 2;Example 3;Example 4;Example 5;Example 6;Example 7" ;
  93.     SIZE 1.769,11.833,0.308 ;
  94.     DEFAULT 1 ;
  95.     FONT "MS Sans Serif", 8 ;
  96.     STYLE "B" ;
  97.     VALID _qc818zp8z()
  98. @ 1.308,21.200 SAY "Show graph in a user defined window"  ;
  99.     FONT "MS Sans Serif", 8 ;
  100.     STYLE "T"
  101. @ 3.385,21.200 SAY "Show picture in a user defined window"  ;
  102.     FONT "MS Sans Serif", 8 ;
  103.     STYLE "T"
  104. @ 5.462,21.200 SAY "Show picture with 'stretch'"  ;
  105.     FONT "MS Sans Serif", 8 ;
  106.     STYLE "T"
  107. @ 7.538,21.200 SAY "Play sound"  ;
  108.     FONT "MS Sans Serif", 8 ;
  109.     STYLE "T"
  110. @ 9.615,21.200 SAY "Launch MSGraph"  ;
  111.     FONT "MS Sans Serif", 8 ;
  112.     STYLE "T"
  113. @ 11.769,21.600 SAY "Print Word document"  ;
  114.     FONT "MS Sans Serif", 8 ;
  115.     STYLE "T"
  116. @ 13.692,21.200 SAY "Append Word documents in current directory"  ;
  117.     FONT "MS Sans Serif", 8 ;
  118.     STYLE "T"
  119. @ 16.077,26.400 GET closeit ;
  120.     PICTURE "@*HT Close" ;
  121.     SIZE 1.538,11.833,0.667 ;
  122.     DEFAULT 1 ;
  123.     FONT "MS Sans Serif", 8 ;
  124.     STYLE "B"
  125.  
  126. IF NOT WVISIBLE("oexam")
  127.     ACTIVATE WINDOW oexam
  128. ENDIF
  129.  
  130. READ CYCLE
  131.  
  132. RELEASE WINDOW oexam
  133. SELECT (m.currarea)
  134.  
  135.  
  136. #REGION 0
  137.  
  138. SET READBORDER &rborder
  139.  
  140. IF m.talkstat = "ON"
  141.     SET TALK ON
  142. ENDIF
  143. IF m.compstat = "ON"
  144.     SET COMPATIBLE ON
  145. ENDIF
  146.  
  147.  
  148. *       *********************************************************
  149. *       *                                                         
  150. *       *              EXAMPLES/Windows Cleanup Code              
  151. *       *                                                         
  152. *       *********************************************************
  153. *
  154.  
  155. #REGION 1
  156. select oletable
  157. use
  158. release window graphwin
  159. release window mywin
  160.  
  161.  
  162. *       *********************************************************
  163. *       *                                                         
  164. *       * _QC818ZP8Z           doexam VALID                       
  165. *       *                                                         
  166. *       * Function Origin:                                        
  167. *       *                                                         
  168. *       * From Platform:       Windows                            
  169. *       * From Screen:         EXAMPLES,     Record Number:    2  
  170. *       * Variable:            doexam                             
  171. *       * Called By:           VALID Clause                       
  172. *       * Snippet Number:      1                                  
  173. *       *                                                         
  174. *       *********************************************************
  175. *
  176. FUNCTION _qc818zp8z     &&  doexam VALID
  177. #REGION 1
  178. do case
  179.     case m.doexam = 1
  180.         do example1.prg
  181.     case m.doexam = 2
  182.         do example2.prg
  183.     case m.doexam = 3
  184.         do example3.prg
  185.     case m.doexam = 4
  186.         do example4.prg
  187.     case m.doexam = 5
  188.         do example5.prg
  189.     case m.doexam = 6
  190.         do example6.prg
  191.     case m.doexam = 7
  192.         do example7.prg
  193. endcase