home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format 82 / af082sub.adf / FINALWRITER / FINAL.lzx / FinalWriter / FinalMacros / Macros / CentreObjects.rexx next >
Encoding:
OS/2 REXX Batch file  |  1978-01-01  |  734 b   |  35 lines
  1. /* CentreObjects 1.0 (30.04.94) by NDY's */
  2. OPTIONS RESULTS
  3. GetDocItemPrefs "DECIMAL"
  4. deci=RESULT
  5. DocItemPrefs "DECIMAL PERIOD"
  6. GetPageSetup "WIDTH"
  7. pw=RESULT
  8. GetSectionSetup "INSIDE OUTSIDE"
  9. PARSE VAR RESULT x1 x2
  10. cent=(x1+pw-x2)/2
  11. FirstObject "SELECTED"
  12. o=RESULT
  13. IF o~=0 THEN
  14.   DO
  15.     cnt=0
  16.     DO UNTIL o=0
  17.       obj.cnt=o
  18.       NextObject o "SELECTED"
  19.       o=RESULT
  20.       cnt=cnt+1
  21.     END
  22.     DO i=0 TO cnt-1
  23.       GetObjectType obj.i
  24.       type=RESULT
  25.       GetObjectCoords obj.i
  26.       PARSE VAR RESULT p l t w h
  27.       IF type=2 | type=3 THEN
  28.         SetObjectCoords obj.i p cent-(w-l)/2 t cent+(w-l)/2 h
  29.       ELSE
  30.         SetObjectCoords obj.i p cent-w/2 t w h
  31.     END
  32.   END
  33. IF deci~="" THEN DocItemPrefs "DECIMAL" deci
  34. EXIT
  35.