home *** CD-ROM | disk | FTP | other *** search
/ Corel Draw 7 / CD7_PROGRAM.ISO / draw / scripts / presets6 / button.csc < prev    next >
Encoding:
Text File  |  1996-10-24  |  1.5 KB  |  41 lines
  1. REM 
  2. REM REM Converted from a DRAW PRESET binary to a DRAW RECORDING script
  3.  
  4. WITHOBJECT "CorelDraw.Automation.7"
  5.     .StartOfRecording 
  6.     .SuppressPainting 
  7.     .RecorderStorePreselectedObjects TRUE
  8.     .RecorderSelectObjectByIndex TRUE, 1
  9.     .ApplyUniformFillColor 5, 255, 255, 255, 0
  10.     .RecorderSelectObjectByIndex TRUE, 1
  11.     .ApplyOutline 762, 1, 0, 0, 100, 0, 0, -1, -1, FALSE, 1, 0, FALSE
  12.     .SetOutlineColor 5, 0, 0, 0, 0
  13.     .RecorderSelectObjectByIndex TRUE, 1
  14.     .DuplicateObject 0, 0
  15.     .RecorderSelectObjectByIndex TRUE, 2
  16.     .StretchObject 0.738095, 1, 0.738095, 1, FALSE, FALSE, 9
  17.     .RecorderSelectPreselectedObjects TRUE
  18.     .RecorderSelectObjectsByIndex FALSE, 2, -1, -1, -1, -1
  19.     .ApplyOutline 762, 1, 1, 1, 100, 0, 0, -1, -1, FALSE, 2, 0, TRUE
  20.     .SetOutlineColor 5, 0, 51, 153, 0
  21.     .RecorderSelectObjectByIndex TRUE, 1
  22.     .ApplyFountainFill 1, -23, 17, 900, 256, 0, 3, 50
  23.     .SetFountainFillColor 0, 5, 0, 0, 96, 0
  24.     .SetFountainFillColor 10, 5, 0, 54, 148, 0
  25.     .SetFountainFillColor 34, 5, 0, 0, 255, 0
  26.     .SetFountainFillColor 89, 5, 216, 222, 255, 0
  27.     .SetFountainFillColor 100, 5, 255, 255, 255, 0
  28.     .RecorderSelectObjectByIndex TRUE, 2
  29.     .ApplyFountainFill 1, 20, -20, 900, 256, 0, 3, 50
  30.     .SetFountainFillColor 0, 5, 0, 0, 96, 0
  31.     .SetFountainFillColor 10, 5, 0, 54, 148, 0
  32.     .SetFountainFillColor 34, 5, 0, 0, 255, 0
  33.     .SetFountainFillColor 89, 5, 216, 222, 255, 0
  34.     .SetFountainFillColor 100, 5, 255, 255, 255, 0
  35.     .RecorderSelectPreselectedObjects TRUE
  36.     .RecorderSelectObjectsByIndex FALSE, 2, -1, -1, -1, -1
  37.     .Group 
  38.     .ResumePainting 
  39.     .EndOfRecording 
  40. END WITHOBJECT
  41.