home *** CD-ROM | disk | FTP | other *** search
/ Bila Vrana / BILA_VRANA.iso / 028A / AUROR.ZIP / CFGPRINT.AML < prev    next >
Text File  |  1996-07-17  |  2KB  |  55 lines
  1. //--------------------------------------------------------------------
  2. // The Aurora Editor v3.0, Copyright (C) 1993-1996 nuText Systems
  3. //
  4. // CFGPRINT.AML
  5. // Configuration for Print Settings
  6. //--------------------------------------------------------------------
  7.  
  8. include bootpath "define.aml"
  9.  
  10. variable prtopt, prtdev, prtpag, prtspace, prtcop, prtini,
  11.          prttop, prtbot, prtleft, prtright
  12.  
  13. // create dialog box
  14. dialog "Print Settings" 62 10 "cp"
  15.  
  16. // print settings group box
  17. groupbox '' 3 2
  18.   (menu ''
  19.      item " [ ] &Header"
  20.      item " [ ] &Footer"
  21.      item " [ ] Pa&ge Numbers    "
  22.      item " [ ] Line &Numbers"
  23.      item " [ ] &Eject"
  24.    end) '' _PrtOpt 'hfple'
  25.  
  26. // edit fields
  27. field "&Device:          >"  27  2  5 _PrtDev
  28. field "Lines per &Page:  >"  27  3  5 _PrtPag
  29. field "Line &Spacing:    >"  27  4  5 _PrtSpace
  30. field "&Copies:          >"  27  5  5 _PrtCop
  31. field "Printer &Init:    >"  27  6  5 _PrtIni
  32. field "&Top Margin:     >"    3  8  5 _PrtTop
  33. field "&Bottom Margin:  >"    3  9  5 _PrtBot
  34. field "&Left Margin:     >"  27  8  5 _PrtLeft
  35. field "&Right Margin:    >"  27  9  5 _PrtRight
  36.  
  37. // ok/cancel buttons
  38. button "O&k"    52 2 8
  39. button "Cancel" 52 4 8
  40.  
  41. if (getdialog ref prtopt ref prtdev ref prtpag ref prtspace
  42.               ref prtcop ref prtini ref prttop ref prtbot
  43.               ref prtleft ref prtright) == 'Ok' then
  44.   prf.PrtOpt   = prtopt
  45.   prf.PrtDev   = prtdev
  46.   prf.PrtPag   = prtpag
  47.   prf.PrtSpace = prtspace
  48.   prf.PrtCop   = prtcop
  49.   prf.PrtIni   = prtini
  50.   prf.PrtTop   = prttop
  51.   prf.PrtBot   = prtbot
  52.   prf.PrtLeft  = prtleft
  53.   prf.PrtRight = prtright
  54. end
  55.