home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a108 / 6.ddi / SAMPLES / ATTACH / ATTACH.SPR < prev    next >
Encoding:
Text File  |  1993-09-01  |  4.3 KB  |  154 lines
  1. *       *********************************************************
  2. *       *                                                         
  3. *       * 09/01/93             ATTACH.SPR                09:58:26 
  4. *       *                                                         
  5. *       *********************************************************
  6. *       *                                                         
  7. *       * Author's Name                                           
  8. *       *                                                         
  9. *       * Copyright (c) 1993 Company Name                         
  10. *       * Address                                                 
  11. *       * City,     Zip                                           
  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. *       *********************************************************
  35. *       *                                                         
  36. *       *               Windows Window definitions                
  37. *       *                                                         
  38. *       *********************************************************
  39. *
  40.  
  41. IF NOT WEXIST("_qiv0ldl1l")
  42.     DEFINE WINDOW _qiv0ldl1l ;
  43.         AT  0.000, 0.000  ;
  44.         SIZE 26.846,100.200 ;
  45.         TITLE "Microsoft FoxPro" ;
  46.         FONT "MS Sans Serif", 8 ;
  47.         FLOAT ;
  48.         NOCLOSE ;
  49.         MINIMIZE ;
  50.         SYSTEM ;
  51.         COLOR RGB(,,,192,192,192)
  52.     MOVE WINDOW _qiv0ldl1l CENTER
  53. ENDIF
  54.  
  55.  
  56. *       *********************************************************
  57. *       *                                                         
  58. *       *              ATTACH/Windows Screen Layout               
  59. *       *                                                         
  60. *       *********************************************************
  61. *
  62.  
  63. #REGION 1
  64. IF WVISIBLE("_qiv0ldl1l")
  65.     ACTIVATE WINDOW _qiv0ldl1l SAME
  66. ELSE
  67.     ACTIVATE WINDOW _qiv0ldl1l NOSHOW
  68. ENDIF
  69. @ 18.308,12.000 GET btn ;
  70.     PICTURE "@*VT \<Mail Files;\<Receive Files;\<Exit" ;
  71.     SIZE 1.769,15.000,0.308 ;
  72.     DEFAULT 1 ;
  73.     FONT "MS Sans Serif", 8 ;
  74.     STYLE "B"
  75. @ 3.538,26.400 GET devpick ;
  76.     PICTURE "@^" ;
  77.     FROM devnames ;
  78.     SIZE 1.538,36.167 ;
  79.     DEFAULT 1 ;
  80.     FONT "MS Sans Serif", 8 ;
  81.     STYLE "B" ;
  82.     VALID devnamesval()
  83. @ 3.615,9.600 SAY "Developer:"  ;
  84.     FONT "MS Sans Serif", 10 ;
  85.     STYLE "BT"
  86. @ 8.385,9.800 GET frompick ;
  87.      PICTURE "@&N" ;
  88.     FROM fromnames ;
  89.     SIZE 8.077,26.200 ;
  90.     DEFAULT 1 ;
  91.     FONT "MS Sans Serif", 8
  92. @ 8.385,65.000 GET topick ;
  93.      PICTURE "@&N" ;
  94.     FROM tonames ;
  95.     SIZE 8.077,26.200 ;
  96.     DEFAULT 1 ;
  97.     FONT "MS Sans Serif", 8
  98. @ 11.077,43.200 GET movebtn ;
  99.     PICTURE "@*VN \<Select -->" ;
  100.     SIZE 1.769,12.833,0.308 ;
  101.     DEFAULT 1 ;
  102.     FONT "MS Sans Serif", 8 ;
  103.     STYLE "B" ;
  104.     VALID movebtnval()
  105. @ 6.385,9.600 SAY "All Files:"  ;
  106.     FONT "MS Sans Serif", 10 ;
  107.     STYLE "BT"
  108. @ 6.385,64.800 SAY "Files To Mail:"  ;
  109.     FONT "MS Sans Serif", 10 ;
  110.     STYLE "BT"
  111. @ 0.385,30.200 SAY "Project File Updater"  ;
  112.     FONT "MS Sans Serif", 14 ;
  113.     STYLE "BT"
  114. @ 18.692,31.200 SAY "Sends files in list box to other developers via MAPI"  ;
  115.     FONT "MS Sans Serif", 8 ;
  116.     STYLE "BT"
  117. @ 20.692,31.200 SAY "Polls MS Mail server for any files sent by others"  ;
  118.     FONT "MS Sans Serif", 8 ;
  119.     STYLE "BT"
  120. @ 17.538,9.600 TO 17.538,91.400 ;
  121.     PEN 1, 8 ;
  122.     STYLE "1"
  123. @ 24.923,9.600 TO 24.923,91.400 ;
  124.     PEN 1, 8 ;
  125.     STYLE "1" ;
  126.     COLOR RGB(255,255,255,255,255,255)
  127. @ 17.538,9.600 TO 25.000,9.600 ;
  128.     PEN 1, 8
  129. @ 17.538,91.200 TO 25.000,91.200 ;
  130.     PEN 1, 8 ;
  131.     COLOR RGB(255,255,255,255,255,255)
  132. @ 22.846,31.200 SAY "Exit screen without doing anything"  ;
  133.     FONT "MS Sans Serif", 8 ;
  134.     STYLE "BT"
  135.  
  136. IF NOT WVISIBLE("_qiv0ldl1l")
  137.     ACTIVATE WINDOW _qiv0ldl1l
  138. ENDIF
  139.  
  140. READ CYCLE
  141.  
  142. RELEASE WINDOW _qiv0ldl1l
  143.  
  144. #REGION 0
  145.  
  146. SET READBORDER &rborder
  147.  
  148. IF m.talkstat = "ON"
  149.     SET TALK ON
  150. ENDIF
  151. IF m.compstat = "ON"
  152.     SET COMPATIBLE ON
  153. ENDIF
  154.