home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 5 / 05.iso / a / a106 / 2.ddi / PRTSETUP.PR_ / PRTSETUP.bin
Encoding:
Text File  |  1994-04-28  |  15.0 KB  |  450 lines
  1. *       ╓─────────────────────────────────────────────────────────╖
  2. *       ║                                                         ║
  3. *       ║ 12/18/92            PRTSETUP.SPR               10:27:42 ║
  4. *       ║                                                         ║
  5. *       ╟─────────────────────────────────────────────────────────╢
  6. *       ║                                                         ║
  7. *       ║ Walter J. Kennamer                                      ║
  8. *       ║                                                         ║
  9. *       ║ Copyright (c) 1992 Microsoft Corp.                      ║
  10. *       ║ One Microsoft Way                                       ║
  11. *       ║ Redmond, WA  98027                                      ║
  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("_qbp0mf80f")
  42.     DEFINE WINDOW _qbp0mf80f ;
  43.         AT  0.000, 0.000  ;
  44.         SIZE 17.000,57.000 ;
  45.         TITLE "Printing Destination" ;
  46.         FONT "MS Sans Serif", 8 ;
  47.         STYLE "B" ;
  48.         FLOAT ;
  49.         NOCLOSE ;
  50.         SHADOW ;
  51.         NOMINIMIZE ;
  52.         DOUBLE
  53.     MOVE WINDOW _qbp0mf80f CENTER
  54. ENDIF
  55.  
  56.  
  57. *       ╓─────────────────────────────────────────────────────────╖
  58. *       ║                                                         ║
  59. *       ║         PRTSETUP/Windows Setup Code - SECTION 2         ║
  60. *       ║                                                         ║
  61. *       ╙─────────────────────────────────────────────────────────╜
  62. *
  63.  
  64. #REGION 1
  65.  
  66. skipvar = .T.
  67. pfilname = SPACE(67)
  68.  
  69. pdest = SET('PRINTER',1)
  70. IF ":" $ pdest
  71.    pdest = LEFT(pdest,AT(':',pdest)-1)
  72. ENDIF
  73. IF !INLIST(pdest,'PRN','LPT1','LPT2','LPT3','COM1','COM2','COM3')
  74.    pfilname = PADR(pdest,67)
  75.    pdest = 'File'
  76. ENDIF
  77. origdest = pdest
  78. prt_infile =pfilname
  79.  
  80. IF SET('PRINT') = 'ON'
  81.    prtstat = 1
  82. ELSE
  83.    prtstat = 2
  84. ENDIF
  85. origprtstat = prtstat
  86.  
  87. pdrivstup = IIF(LEN(_PDRIVER)=0,0,1)
  88.  
  89.  
  90. *       ╓─────────────────────────────────────────────────────────╖
  91. *       ║                                                         ║
  92. *       ║             PRTSETUP/Windows Screen Layout              ║
  93. *       ║                                                         ║
  94. *       ╙─────────────────────────────────────────────────────────╜
  95. *
  96.  
  97. #REGION 1
  98. IF WVISIBLE("_qbp0mf80f")
  99.     ACTIVATE WINDOW _qbp0mf80f SAME
  100. ELSE
  101.     ACTIVATE WINDOW _qbp0mf80f NOSHOW
  102. ENDIF
  103. @ 2.769,2.500 TO 16.461,40.667 ;
  104.     PEN 1, 8
  105. @ 3.538,9.000 SAY "Print to:" ;
  106.     SIZE 1.000,7.667, 0.000 ;
  107.     FONT "MS Sans Serif", 8 ;
  108.     STYLE "B"
  109. @ 1.231,3.000 SAY "Printer Setup:" ;
  110.     SIZE 1.000,13.167, 0.000 ;
  111.     FONT "MS Sans Serif", 8 ;
  112.     STYLE "B"
  113. @ 3.231,18.000 GET pdest ;
  114.     PICTURE "@^ File;PRN;LPT1;LPT2;LPT3;COM1;COM2;COM3" ;
  115.     SIZE 1.538,19.800 ;
  116.     DEFAULT "LPT1" ;
  117.     FONT "MS Sans Serif", 8 ;
  118.     VALID _qbp0mf9dh()
  119. @ 5.923,4.000 GET flist ;
  120.     PICTURE "@*HN \<File..." ;
  121.     SIZE 1.769,11.000,1.000 ;
  122.     DEFAULT 1 ;
  123.     FONT "MS Sans Serif", 8 ;
  124.     STYLE "B" ;
  125.     VALID _qbp0mf9ke()
  126. @ 8.154,4.667 GET pfilname ;
  127.     SIZE 1.000,35.000 ;
  128.     DEFAULT " " ;
  129.     FONT "MS Sans Serif", 8 ;
  130.     PICTURE "@S67" ;
  131.     VALID _qbp0mf9tt()
  132. @ 10.846,4.000 GET prtstat ;
  133.     PICTURE "@*RVN Print On;Print Off" ;
  134.     SIZE 1.308,12.333,0.000 ;
  135.     DEFAULT 2 ;
  136.     FONT "MS Sans Serif", 8 ;
  137.     STYLE "B"
  138. @ 11.000,36.167 GET _LMARGIN ;
  139.     SIZE 1.000,3.000 ;
  140.     DEFAULT " " ;
  141.     FONT "MS Sans Serif", 8 ;
  142.     PICTURE "999" ;
  143.     VALID _qbp0mfa3k()
  144. @ 12.462,36.167 GET _RMARGIN ;
  145.     SIZE 1.000,3.000 ;
  146.     DEFAULT " " ;
  147.     FONT "MS Sans Serif", 8 ;
  148.     PICTURE "999" ;
  149.     VALID _qbp0mfaa9()
  150. @ 2.769,43.500 GET OKbut ;
  151.     PICTURE "@*HT \!OK" ;
  152.     SIZE 1.769,10.000,6.000 ;
  153.     DEFAULT 1 ;
  154.     FONT "MS Sans Serif", 8 ;
  155.     STYLE "B"
  156. @ 5.538,43.500 GET CancBut ;
  157.     PICTURE "@*HT \?Cancel" ;
  158.     SIZE 1.769,10.000,1.000 ;
  159.     DEFAULT 1 ;
  160.     FONT "MS Sans Serif", 8 ;
  161.     STYLE "B"
  162. @ 14.692,4.000 GET pdrivstup ;
  163.     PICTURE "@*C Printer \<Driver Setup..." ;
  164.     SIZE 1.308,26.333 ;
  165.     DEFAULT 0 ;
  166.     FONT "MS Sans Serif", 8 ;
  167.     STYLE "B" ;
  168.     VALID _qbp0mfall() ;
  169.     DISABLE
  170. @ 11.000,22.000 SAY "Left Margin:" ;
  171.     SIZE 1.000,11.500, 0.000 ;
  172.     FONT "MS Sans Serif", 8 ;
  173.     STYLE "B"
  174. @ 12.462,22.000 SAY "Right Margin:" ;
  175.     SIZE 1.000,12.833, 0.000 ;
  176.     FONT "MS Sans Serif", 8 ;
  177.     STYLE "B"
  178.  
  179. IF NOT WVISIBLE("_qbp0mf80f")
  180.     ACTIVATE WINDOW _qbp0mf80f
  181. ENDIF
  182.  
  183.  
  184. *       ╓─────────────────────────────────────────────────────────╖
  185. *       ║                                                         ║
  186. *       ║    WindowsREAD contains clauses from SCREEN prtsetup    ║
  187. *       ║                                                         ║
  188. *       ╙─────────────────────────────────────────────────────────╜
  189. *
  190.  
  191. READ CYCLE ;
  192.     DEACTIVATE _qbp0mfaz6() ;
  193.     SHOW _qbp0mfazb() ;
  194.     MODAL
  195.  
  196. RELEASE WINDOW _qbp0mf80f
  197.  
  198. #REGION 0
  199.  
  200. SET READBORDER &rborder
  201.  
  202. IF m.talkstat = "ON"
  203.     SET TALK ON
  204. ENDIF
  205. IF m.compstat = "ON"
  206.     SET COMPATIBLE ON
  207. ENDIF
  208.  
  209.  
  210. *       ╓─────────────────────────────────────────────────────────╖
  211. *       ║                                                         ║
  212. *       ║              PRTSETUP/Windows Cleanup Code              ║
  213. *       ║                                                         ║
  214. *       ╙─────────────────────────────────────────────────────────╜
  215. *
  216.  
  217. #REGION 1
  218. DO CASE
  219. CASE okbut = 1
  220.    SET PRINTER TO
  221.  
  222.    IF prtstat = 1
  223.       SET PRINT ON
  224.    ELSE
  225.       SET PRINT OFF
  226.    ENDIF
  227.  
  228.    pdest = ALLTRIM(UPPER(pdest))
  229.    DO CASE
  230.    CASE pdest = 'FILE'
  231.       IF !EMPTY(pfilname)
  232.          SET PRINTER TO (pfilname)
  233.       ELSE
  234.          SET PRINTER TO
  235.       ENDIF
  236.    OTHERWISE
  237.       pfilname = ''
  238.       SET PRINTER TO &pdest
  239.    ENDCASE
  240. CASE cancbut = 1
  241.    IF origprtstat = 1
  242.       SET PRINT ON
  243.    ELSE
  244.       SET PRINT OFF
  245.    ENDIF
  246.    pdest = origdest
  247.    pfilname = prt_infile
  248. ENDCASE
  249. skipvar = .F.
  250.  
  251.  
  252. *       ╓─────────────────────────────────────────────────────────╖
  253. *       ║                                                         ║
  254. *       ║ _QBP0MF9DH           pdest VALID                        ║
  255. *       ║                                                         ║
  256. *       ║ Function Origin:                                        ║
  257. *       ║                                                         ║
  258. *       ║ From Platform:       Windows                            ║
  259. *       ║ From Screen:         PRTSETUP,     Record Number:    5  ║
  260. *       ║ Variable:            pdest                              ║
  261. *       ║ Called By:           VALID Clause                       ║
  262. *       ║ Snippet Number:      1                                  ║
  263. *       ║                                                         ║
  264. *       ╙─────────────────────────────────────────────────────────╜
  265. *
  266. FUNCTION _qbp0mf9dh     &&  pdest VALID
  267. #REGION 1
  268. IF UPPER(pdest) = 'FILE'
  269.    _CUROBJ = 3
  270. ENDIF
  271. SHOW GETS
  272.  
  273.  
  274. *       ╓─────────────────────────────────────────────────────────╖
  275. *       ║                                                         ║
  276. *       ║ _QBP0MF9KE           flist VALID                        ║
  277. *       ║                                                         ║
  278. *       ║ Function Origin:                                        ║
  279. *       ║                                                         ║
  280. *       ║ From Platform:       Windows                            ║
  281. *       ║ From Screen:         PRTSETUP,     Record Number:    6  ║
  282. *       ║ Variable:            flist                              ║
  283. *       ║ Called By:           VALID Clause                       ║
  284. *       ║ Snippet Number:      2                                  ║
  285. *       ║                                                         ║
  286. *       ╙─────────────────────────────────────────────────────────╜
  287. *
  288. FUNCTION _qbp0mf9ke     &&  flist VALID
  289. #REGION 1
  290. IF flist = 1
  291.    origfile = pfilname
  292.    pfilname = GETFILE('','Print to:')
  293.    IF EMPTY(pfilname)
  294.       pfilname = origfile
  295.    ENDIF
  296. ENDIF
  297. pfilname = UPPER(PADR(pfilname,67))
  298. IF !EMPTY(pfilname)
  299.    pdest = 'File'
  300. ENDIF
  301. SHOW GETS
  302.  
  303.  
  304. *       ╓─────────────────────────────────────────────────────────╖
  305. *       ║                                                         ║
  306. *       ║ _QBP0MF9TT           pfilname VALID                     ║
  307. *       ║                                                         ║
  308. *       ║ Function Origin:                                        ║
  309. *       ║                                                         ║
  310. *       ║ From Platform:       Windows                            ║
  311. *       ║ From Screen:         PRTSETUP,     Record Number:    7  ║
  312. *       ║ Variable:            pfilname                           ║
  313. *       ║ Called By:           VALID Clause                       ║
  314. *       ║ Snippet Number:      3                                  ║
  315. *       ║                                                         ║
  316. *       ╙─────────────────────────────────────────────────────────╜
  317. *
  318. FUNCTION _qbp0mf9tt     &&  pfilname VALID
  319. #REGION 1
  320. pfilname = PADR(UPPER(LTRIM(pfilname)),67)
  321. IF !EMPTY(pfilname)
  322.    pdest = 'File'
  323. ENDIF
  324. SHOW GETS
  325.  
  326.  
  327. *       ╓─────────────────────────────────────────────────────────╖
  328. *       ║                                                         ║
  329. *       ║ _QBP0MFA3K           _LMARGIN VALID                     ║
  330. *       ║                                                         ║
  331. *       ║ Function Origin:                                        ║
  332. *       ║                                                         ║
  333. *       ║ From Platform:       Windows                            ║
  334. *       ║ From Screen:         PRTSETUP,     Record Number:    9  ║
  335. *       ║ Variable:            _LMARGIN                           ║
  336. *       ║ Called By:           VALID Clause                       ║
  337. *       ║ Snippet Number:      4                                  ║
  338. *       ║                                                         ║
  339. *       ╙─────────────────────────────────────────────────────────╜
  340. *
  341. FUNCTION _qbp0mfa3k     &&  _LMARGIN VALID
  342. #REGION 1
  343. _LMARGIN = MAX(0,_LMARGIN)
  344. SHOW GETS
  345.  
  346.  
  347. *       ╓─────────────────────────────────────────────────────────╖
  348. *       ║                                                         ║
  349. *       ║ _QBP0MFAA9           _RMARGIN VALID                     ║
  350. *       ║                                                         ║
  351. *       ║ Function Origin:                                        ║
  352. *       ║                                                         ║
  353. *       ║ From Platform:       Windows                            ║
  354. *       ║ From Screen:         PRTSETUP,     Record Number:   10  ║
  355. *       ║ Variable:            _RMARGIN                           ║
  356. *       ║ Called By:           VALID Clause                       ║
  357. *       ║ Snippet Number:      5                                  ║
  358. *       ║                                                         ║
  359. *       ╙─────────────────────────────────────────────────────────╜
  360. *
  361. FUNCTION _qbp0mfaa9     &&  _RMARGIN VALID
  362. #REGION 1
  363. _RMARGIN = MIN(_RMARGIN,255)
  364. SHOW GETS
  365.  
  366.  
  367. *       ╓─────────────────────────────────────────────────────────╖
  368. *       ║                                                         ║
  369. *       ║ _QBP0MFALL           pdrivstup VALID                    ║
  370. *       ║                                                         ║
  371. *       ║ Function Origin:                                        ║
  372. *       ║                                                         ║
  373. *       ║ From Platform:       Windows                            ║
  374. *       ║ From Screen:         PRTSETUP,     Record Number:   13  ║
  375. *       ║ Variable:            pdrivstup                          ║
  376. *       ║ Called By:           VALID Clause                       ║
  377. *       ║ Snippet Number:      6                                  ║
  378. *       ║                                                         ║
  379. *       ╙─────────────────────────────────────────────────────────╜
  380. *
  381. FUNCTION _qbp0mfall     &&  pdrivstup VALID
  382. #REGION 1
  383. DO (_GENPD) WITH 1,"?"
  384. IF LEN(_PDSETUP) = 0
  385.    pdrivstup = 0
  386. ELSE
  387.    pdrivstup = 1
  388. ENDIF
  389. SHOW GET pdrivstup
  390.  
  391.  
  392. *       ╓─────────────────────────────────────────────────────────╖
  393. *       ║                                                         ║
  394. *       ║ _QBP0MFAZ6           Read Level Deactivate              ║
  395. *       ║                                                         ║
  396. *       ║ Function Origin:                                        ║
  397. *       ║                                                         ║
  398. *       ║                                                         ║
  399. *       ║ From Platform:       Windows                            ║
  400. *       ║ From Screen:         PRTSETUP                           ║
  401. *       ║ Called By:           READ Statement                     ║
  402. *       ║ Snippet Number:      7                                  ║
  403. *       ║                                                         ║
  404. *       ╙─────────────────────────────────────────────────────────╜
  405. *
  406. FUNCTION _qbp0mfaz6     && Read Level Deactivate
  407. *
  408. * Deactivate Code from screen: PRTSETUP
  409. *
  410. #REGION 1
  411. ?? CHR(7)
  412. RETURN .F.
  413.  
  414.  
  415. *       ╓─────────────────────────────────────────────────────────╖
  416. *       ║                                                         ║
  417. *       ║ _QBP0MFAZB           Read Level Show                    ║
  418. *       ║                                                         ║
  419. *       ║ Function Origin:                                        ║
  420. *       ║                                                         ║
  421. *       ║                                                         ║
  422. *       ║ From Platform:       Windows                            ║
  423. *       ║ From Screen:         PRTSETUP                           ║
  424. *       ║ Called By:           READ Statement                     ║
  425. *       ║ Snippet Number:      8                                  ║
  426. *       ║                                                         ║
  427. *       ╙─────────────────────────────────────────────────────────╜
  428. *
  429. FUNCTION _qbp0mfazb     && Read Level Show
  430. PRIVATE currwind
  431. STORE WOUTPUT() TO currwind
  432. *
  433. * Show Code from screen: PRTSETUP
  434. *
  435. #REGION 1
  436. IF UPPER(pdest) = 'FILE'
  437.    SHOW GET pfilname ENABLE
  438.    IF EMPTY(pfilname)
  439.       SHOW GET okbut DISABLE
  440.    ELSE
  441.       SHOW GET okbut ENABLE
  442.    ENDIF
  443. ELSE
  444.    SHOW GET pfilname DISABLE
  445.    SHOW GET okbut ENABLE
  446. ENDIF
  447.  
  448. IF NOT EMPTY(currwind)
  449.     ACTIVATE WINDOW (currwind) SAME
  450. ENDIF