home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a108 / 6.ddi / SAMPLES / MAILMENU / READMAIL.SPR < prev    next >
Encoding:
Text File  |  1993-07-01  |  6.7 KB  |  219 lines
  1. *       *********************************************************
  2. *       *                                                         
  3. *       * 07/01/93            READMAIL.SPR               22:05:02 
  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. m.currarea = SELECT()
  35.  
  36.  
  37. *       *********************************************************
  38. *       *                                                         
  39. *       *               Windows Window definitions                
  40. *       *                                                         
  41. *       *********************************************************
  42. *
  43.  
  44. IF NOT WEXIST("readmail") ;
  45.     OR UPPER(WTITLE("READMAIL")) == "READMAIL.PJX" ;
  46.     OR UPPER(WTITLE("READMAIL")) == "READMAIL.SCX" ;
  47.     OR UPPER(WTITLE("READMAIL")) == "READMAIL.MNX" ;
  48.     OR UPPER(WTITLE("READMAIL")) == "READMAIL.PRG" ;
  49.     OR UPPER(WTITLE("READMAIL")) == "READMAIL.FRX" ;
  50.     OR UPPER(WTITLE("READMAIL")) == "READMAIL.QPR"
  51.     DEFINE WINDOW readmail ;
  52.         AT  0.000, 0.000  ;
  53.         SIZE 25.923,102.400 ;
  54.         TITLE "FoxPro Inbox Mail Center" ;
  55.         FONT "MS Sans Serif", 8 ;
  56.         FLOAT ;
  57.         NOCLOSE ;
  58.         MINIMIZE ;
  59.         SYSTEM ;
  60.         COLOR RGB(,,,0,128,128)
  61.     MOVE WINDOW readmail CENTER
  62. ENDIF
  63.  
  64.  
  65. *       *********************************************************
  66. *       *                                                         
  67. *       *             READMAIL/Windows Screen Layout              
  68. *       *                                                         
  69. *       *********************************************************
  70. *
  71.  
  72. #REGION 1
  73. IF WVISIBLE("readmail")
  74.     ACTIVATE WINDOW readmail SAME
  75. ELSE
  76.     ACTIVATE WINDOW readmail NOSHOW
  77. ENDIF
  78. @ 1.000,9.600 SAY "Subject:"  ;
  79.     FONT "MS Sans Serif", 8 ;
  80.     STYLE "BT"
  81. @ 2.846,9.600 SAY "Send By:"  ;
  82.     FONT "MS Sans Serif", 8 ;
  83.     STYLE "BT"
  84. @ 4.692,9.600 SAY "Received By:"  ;
  85.     FONT "MS Sans Serif", 8 ;
  86.     STYLE "BT"
  87. @ 16.615,9.600 SAY "Attachments:"  ;
  88.     FONT "MS Sans Serif", 8 ;
  89.     STYLE "BT"
  90. @ 8.385,9.600 SAY "Message:"  ;
  91.     FONT "MS Sans Serif", 8 ;
  92.     STYLE "BT"
  93. @ 1.000,26.800 GET Messages.subject ;
  94.     SIZE 1.000,64.000 ;
  95.     DEFAULT " " ;
  96.     FONT "MS Sans Serif", 8 ;
  97.     WHEN .F. ;
  98.     COLOR ,RGB(,,,192,192,192)
  99. @ 2.846,26.800 GET m.morigin ;
  100.     SIZE 1.000,64.000 ;
  101.     DEFAULT " " ;
  102.     FONT "MS Sans Serif", 8 ;
  103.     WHEN .F. ;
  104.     COLOR ,RGB(,,,192,192,192)
  105. @ 2.769,92.000 GET sdetails ;
  106.     PICTURE "@*HN <" ;
  107.     SIZE 1.154,2.333,0.667 ;
  108.     DEFAULT 1 ;
  109.     FONT "MS Sans Serif", 8 ;
  110.     STYLE "B" ;
  111.     VALID getdetail(morigin)
  112. @ 4.692,26.600 GET recippick ;
  113.      PICTURE "@&N" ;
  114.     FROM reciparr ;
  115.     SIZE 3.462,64.600 ;
  116.     DEFAULT 1 ;
  117.     FONT "MS Sans Serif", 8 ;
  118.     WHEN !EMPTY(reciparr[1]) ;
  119.     VALID getdetail(recippick) ;
  120.     COLOR RGB(,,,192,192,192),RGB(,,,192,192,192)
  121. @ 9.385,10.000 EDIT Messages.notetext ;
  122.     SIZE 5.000,81.400,0.000 ;
  123.     PICTURE "@K" ;
  124.     DEFAULT " " ;
  125.     FONT "MS Sans Serif", 8 ;
  126.     SCROLL ;
  127.     WHEN .F. NOMODIFY ;
  128.     COLOR ,RGB(,,,255,255,255)
  129. @ 14.462,29.200 SAY getstatus() ;
  130.     SIZE 1.000,40.000 ;
  131.     FONT "MS Sans Serif", 8 ;
  132.     PICTURE "@I"
  133. @ 17.615,9.800 GET filepick ;
  134.      PICTURE "@&N" ;
  135.     FROM filearr ;
  136.     SIZE 3.462,81.400 ;
  137.     DEFAULT 1 ;
  138.     FONT "MS Sans Serif", 8 ;
  139.     WHEN !EMPTY(filearr[1]) ;
  140.     COLOR RGB(,,,255,255,255),RGB(,,,255,255,255)
  141. @ 22.154,9.600 GET btn1 ;
  142.     PICTURE "@*BHN " + ;
  143.         (LOCFILE("..\mailbmps\arw04lt.bmp","BMP|ICO","Where is arw04lt?")) + ";" + ;
  144.         (LOCFILE("..\mailbmps\binoculr.bmp","BMP|ICO","Where is binoculr?")) + ";" + ;
  145.         (LOCFILE("..\mailbmps\arw04rt.bmp","BMP|ICO","Where is arw04rt?")) ;
  146.     SIZE 2.923,9.200,0.800 ;
  147.     DEFAULT 1 ;
  148.     FONT "MS Sans Serif", 8 ;
  149.     VALID btnval()
  150. @ 22.154,45.600 GET btn2 ;
  151.     PICTURE "@*BHN " + ;
  152.         (LOCFILE("..\mailbmps\mail10.bmp","BMP|ICO","Where is mail10?")) + ";" + ;
  153.         (LOCFILE("..\mailbmps\mail12.bmp","BMP|ICO","Where is mail12?")) + ";" + ;
  154.         (LOCFILE("..\mailbmps\mail04.bmp","BMP|ICO","Where is mail04?")) ;
  155.     SIZE 2.923,9.200,0.800 ;
  156.     DEFAULT 1 ;
  157.     FONT "MS Sans Serif", 8 ;
  158.     VALID btn2val()
  159. @ 22.154,81.600 GET btn3 ;
  160.     PICTURE "@*BHT " + ;
  161.         (LOCFILE("..\mailbmps\close.bmp","BMP|ICO","Where is close?")) ;
  162.     SIZE 2.923,9.200,0.800 ;
  163.     DEFAULT 1 ;
  164.     FONT "MS Sans Serif", 8
  165.  
  166. IF NOT WVISIBLE("readmail")
  167.     ACTIVATE WINDOW readmail
  168. ENDIF
  169.  
  170. READ CYCLE MODAL ;
  171.     SHOW _qh51bc2fx()
  172.  
  173. RELEASE WINDOW readmail
  174. SELECT (m.currarea)
  175.  
  176.  
  177. #REGION 0
  178.  
  179. SET READBORDER &rborder
  180.  
  181. IF m.talkstat = "ON"
  182.     SET TALK ON
  183. ENDIF
  184. IF m.compstat = "ON"
  185.     SET COMPATIBLE ON
  186. ENDIF
  187.  
  188.  
  189. *       *********************************************************
  190. *       *                                                         
  191. *       * _QH51BC2FX           Read Level Show                    
  192. *       *                                                         
  193. *       * Function Origin:                                        
  194. *       *                                                         
  195. *       *                                                         
  196. *       * From Platform:       Windows                            
  197. *       * From Screen:         READMAIL                           
  198. *       * Called By:           READ Statement                     
  199. *       * Snippet Number:      1                                  
  200. *       *                                                         
  201. *       *********************************************************
  202. *
  203. FUNCTION _qh51bc2fx     && Read Level Show
  204. PRIVATE currwind
  205. STORE WOUTPUT() TO currwind
  206. *
  207. * Show Code from screen: READMAIL
  208. *
  209. #REGION 1
  210. IF SYS(2016) = "READMAIL" OR SYS(2016) = "*"
  211.     ACTIVATE WINDOW readmail SAME
  212.     @ 14.462,29.200 SAY getstatus() ;
  213.         SIZE 1.000,40.000, 0.000 ;
  214.         FONT "MS Sans Serif", 8 ;
  215.         PICTURE "@I"
  216. ENDIF
  217. IF NOT EMPTY(currwind)
  218.     ACTIVATE WINDOW (currwind) SAME
  219. ENDIF