home *** CD-ROM | disk | FTP | other *** search
/ Beijing Paradise BBS Backup / PARADISE.ISO / software / BBSDOORW / AUROR21A.ZIP / CFGPRINT.AML < prev    next >
Text File  |  1995-09-01  |  2KB  |  65 lines
  1. /* ------------------------------------------------------------------ */
  2. /* Macro:        CFGPRINT.AML                                         */
  3. /* Written by:   nuText Systems                                       */
  4. /*                                                                    */
  5. /* Description:  This macro displays a configuration dialog box for   */
  6. /*               print settings.                                      */
  7. /* ------------------------------------------------------------------ */
  8.  
  9.   // print settings dialog box
  10.   include bootpath "define.aml"
  11.  
  12.   var prtopt
  13.   var prtdev
  14.   var prtpag
  15.   var prtspace
  16.   var prtcop
  17.   var prtini
  18.   var prttop
  19.   var prtbot
  20.   var prtleft
  21.   var prtright
  22.  
  23.   // create dialog box
  24.   dialog "Print Settings" 62 10 "cp"
  25.  
  26.   // print settings group box
  27.   groupbox '' 3 2
  28.     (menu ''
  29.        item " [ ] &Header"
  30.        item " [ ] &Footer"
  31.        item " [ ] Pa&ge Numbers    "
  32.        item " [ ] Line &Numbers"
  33.        item " [ ] &Eject"
  34.      end) '' _PrtOpt 'hfple'
  35.  
  36.   // edit fields
  37.   field "&Device:          >"  27  2  5 _PrtDev
  38.   field "Lines per &Page:  >"  27  3  5 _PrtPag
  39.   field "Line &Spacing:    >"  27  4  5 _PrtSpace
  40.   field "&Copies:          >"  27  5  5 _PrtCop
  41.   field "Printer &Init:    >"  27  6  5 _PrtIni
  42.   field "&Top Margin:     >"    3  8  5 _PrtTop
  43.   field "&Bottom Margin:  >"    3  9  5 _PrtBot
  44.   field "&Left Margin:     >"  27  8  5 _PrtLeft
  45.   field "&Right Margin:    >"  27  9  5 _PrtRight
  46.  
  47.   // ok/cancel buttons
  48.   button "O&k"    52 2 8
  49.   button "Cancel" 52 4 8
  50.  
  51.   if (getdialog ref prtopt ref prtdev ref prtpag ref prtspace
  52.                 ref prtcop ref prtini ref prttop ref prtbot
  53.                 ref prtleft ref prtright) == 'Ok' then
  54.     setobj PrtOpt   prtopt   'prf'
  55.     setobj PrtDev   prtdev   'prf'
  56.     setobj PrtPag   prtpag   'prf'
  57.     setobj PrtSpace prtspace 'prf'
  58.     setobj PrtCop   prtcop   'prf'
  59.     setobj PrtIni   prtini   'prf'
  60.     setobj PrtTop   prttop   'prf'
  61.     setobj PrtBot   prtbot   'prf'
  62.     setobj PrtLeft  prtleft  'prf'
  63.     setobj PrtRight prtright 'prf'
  64.   end
  65.