home *** CD-ROM | disk | FTP | other *** search
/ Mundo do CD-ROM 23 / CDROM23.iso / corel / Draw / Scripts / Presets / button.csc < prev    next >
Encoding:
Text File  |  1997-08-19  |  1.5 KB  |  44 lines
  1. REM 
  2.  
  3. WITHOBJECT "CorelDraw.Automation.8"
  4.     .StartOfRecording 
  5.     .SuppressPainting 
  6.     .RecorderStorePreselectedObjects TRUE
  7.     .RecorderSelectObjectByIndex TRUE, 1
  8.     .StoreColor 5, 255, 255, 255, 0
  9.     .ApplyUniformFillColor
  10.     .RecorderSelectObjectByIndex TRUE, 1
  11.     .ApplyOutline 762, 1, 0, 0, 100, 0, 0, -1, -1, FALSE, 1, 0, FALSE
  12.     .StoreColor 5, 0, 0, 0, 0
  13.     .SetOutlineColor
  14.     .RecorderSelectObjectByIndex TRUE, 1
  15.     .DuplicateObject 0, 0
  16.     .RecorderSelectObjectByIndex TRUE, 2
  17.     .StretchObject 0.738095, 1, 0.738095, 1, FALSE, FALSE, 9
  18.     .RecorderSelectPreselectedObjects TRUE
  19.     .RecorderSelectObjectsByIndex FALSE, 2, -1, -1, -1, -1
  20.     .ApplyOutline 762, 1, 1, 1, 100, 0, 0, -1, -1, FALSE, 2, 0, TRUE
  21.     .StoreColor 5, 0, 51, 153, 0
  22.     .SetOutlineColor
  23.     .RecorderSelectObjectByIndex TRUE, 1
  24.     .StoreColor 5, 0, 0, 96, 0, 0, 0, 100,  0
  25.     .StoreColor 5, 0, 54, 148, 0, 0, 0, 100,  10
  26.     .StoreColor 5, 0, 0, 255, 0, 0, 0, 100,  34
  27.     .StoreColor 5, 216, 222, 255, 0, 0, 0, 100,  89
  28.     .StoreColor 5, 255, 255, 255, 0, 0, 0, 100,  100
  29.     .ApplyFountainFill 1, -23, 17, 900, 256, 0, 3, 50
  30.     .RecorderSelectObjectByIndex TRUE, 2
  31.     .StoreColor 5, 0, 0, 96, 0, 0, 0, 100,  0
  32.     .StoreColor 5, 0, 54, 148, 0, 0, 0, 100,  10
  33.     .StoreColor 5, 0, 0, 255, 0, 0, 0, 100,  34
  34.     .StoreColor 5, 216, 222, 255, 0, 0, 0, 100,  89
  35.     .StoreColor 5, 255, 255, 255, 0, 0, 0, 100,  100
  36.     .ApplyFountainFill 1, 20, -20, 900, 256, 0, 3, 50
  37.     .RecorderSelectPreselectedObjects TRUE
  38.     .RecorderSelectObjectsByIndex FALSE, 2, -1, -1, -1, -1
  39.     .Group 
  40.     .ResumePainting 
  41.     .EndOfRecording 
  42. END WITHOBJECT
  43.  
  44.