home *** CD-ROM | disk | FTP | other *** search
/ Amiga MA Magazine 1998 #3 / amigamamagazinepolishissue1998.iso / bazy / muivideo / arexx / makelabel.rexx < prev    next >
OS/2 REXX Batch file  |  1996-01-01  |  997b  |  66 lines
  1. /**
  2.  ** MakeLabel.rexx
  3.  **
  4.  ** Erstellt für die Cassette des aktuellen Films
  5.  ** ein Label (beide Felder) mit Hilfe von FinalWriter
  6.  **
  7.  ** $VER: MakeLabel.rexx V1.0 (01.01.96)
  8.  ** Erstellt von Christoph Kirsch
  9.  **
  10.  **/
  11.  
  12. OPTIONS RESULTS
  13.  
  14. /* Maße der beiden Boxen in cm */
  15.  
  16. width1  = "10,2"
  17. height1 = "2,0"
  18. width2  = "7,8"
  19. height2 = "2,1"
  20.  
  21. /* Schriftart & Schriftgröße */
  22.  
  23. fontname = "SoftSans"
  24. fontsize = 24
  25.  
  26. /* Einstellungen vornehmen */
  27.  
  28. ADDRESS "FINALW.1"
  29.  
  30. SETMEASURE RULER
  31.  
  32. FONT fontname
  33. FONTSIZE fontsize
  34.  
  35. /* Boxen zeichnen */
  36.  
  37. DRAWBOX 1 3 3 width1 height1
  38. boxid1 = RESULT
  39.  
  40. DRAWBOX 1 3 6 width2 height2
  41. boxid2 = RESULT
  42.  
  43. REDRAW
  44.  
  45. /* Text erfragen und zusammenstellen */
  46.  
  47. DRAWTEXTBLOCK 1 "3,5" "3,7" "Zeile 1"
  48. textid1 = RESULT
  49.  
  50. DRAWTEXTBLOCK 1 "3,5" "4,7" "Das ist Zeile 2"
  51. textid2 = RESULT
  52.  
  53. SELECTOBJECT textid1
  54. SELECTOBJECT textid2 MULTIPLE
  55. GROUP
  56.  
  57. /* Text einfügen */
  58.  
  59. DRAWTEXTBLOCK 1 "3,2" "7" "Zeil 1"
  60. textid3 = RESULT
  61.  
  62. DRAWTEXTBLOCK 1 "3,2" "8,2" "Das ist Zeile 2"
  63. textid4 = RESULT
  64.  
  65. REDRAW
  66.