home *** CD-ROM | disk | FTP | other *** search
/ CorelDRAW! 10 / cd10_pgrm.iso / Corel / Graphics10 / Draw / Scripts / Misc / shadow.csc < prev   
Encoding:
Text File  |  1997-10-01  |  39.1 KB  |  1,068 lines
  1. REM Applies a drop shadow effect to
  2. REM the currently selected object(s).
  3.  
  4. '********************************************************************
  5. ' 
  6. '   Script:    Shadow.csc
  7. ' 
  8. '   Copyright 1996 Corel Corporation.  All rights reserved.
  9. ' 
  10. '   Description: CorelDRAW script to apply a drop shadow to the
  11. '                currently selected object(s).
  12. ' 
  13. '********************************************************************
  14.  
  15. #addfol  "..\..\..\Scripts"
  16. #include "ScpConst.csi"
  17. #include "DrwConst.csi"
  18.  
  19. '/////FUNCTION & SUBROUTINE DECLARATIONS/////////////////////////////
  20. DECLARE FUNCTION AnythingChanged() AS BOOLEAN
  21. DECLARE FUNCTION ValidateInput() AS BOOLEAN
  22. DECLARE FUNCTION CheckForSelection() AS BOOLEAN
  23. DECLARE FUNCTION RemoveObject( InCDRStaticID AS LONG ) AS BOOLEAN
  24. DECLARE SUB WarnUser()
  25. DECLARE SUB WarnUserComplete()
  26. DECLARE FUNCTION ApplyEffect( InID AS LONG, \\
  27.                               InRed AS INTEGER, \\
  28.                               InGreen AS INTEGER, \\
  29.                               InBlue AS INTEGER, \\
  30.                               InMakeTransparent AS BOOLEAN, \\
  31.                               InPercent AS INTEGER, \\
  32.                               InHorizOffset AS LONG, \\
  33.                               InVertOffset AS LONG, \\
  34.                               InHorizUnit AS INTEGER, \\
  35.                               InVertUnit AS INTEGER) AS LONG
  36. DECLARE FUNCTION StillThere( InCDRStaticID AS LONG ) AS BOOLEAN
  37.  
  38. '/////GLOBAL VARIABLES & CONSTANTS///////////////////////////////////
  39. GLOBAL CONST TITLE_ERRORBOX$      = "Drop Shadow Maker Error"
  40. GLOBAL CONST TITLE_INFOBOX$       = "Drop Shadow Maker Information"
  41. GLOBAL NL AS STRING         ' These must be declared as 
  42. GLOBAL NL2 AS STRING     ' variables, not constants, because
  43. NL$ = CHR(10) + CHR(13)    ' we cannot assign expressions
  44. NL2$ = NL + NL             ' to constants.
  45.  
  46. ' Constants for dialog return values.
  47. GLOBAL CONST DIALOG_RETURN_OK%     = 1
  48. GLOBAL CONST DIALOG_RETURN_CANCEL% = 2
  49.  
  50. ' The CDRStaticID of the selected object(s).
  51. GLOBAL IDOriginal AS LONG
  52.  
  53. ' The CDRStaticID of the duplicated object.
  54. GLOBAL IDDuplicate AS LONG
  55.  
  56. '/////CHECK FOR CORELDRAW/////////////////////////////////////////////
  57. ON ERROR GOTO ErrorNoDrawHandler
  58. WITHOBJECT OBJECT_DRAW    ' This will raise an error if Draw is not installed
  59.                     ' or not available because of an OLE problem.
  60. ON ERROR EXIT
  61.  
  62. '/////PARAMETERS DIALOG//////////////////////////////////////////////
  63.  
  64. ' The array of possible units the user may select from.
  65. GLOBAL UnitsArray(6) AS STRING
  66. UnitsArray(1) = "1 in."
  67. UnitsArray(2) = "1/36 in."
  68. UnitsArray(3) = "0.001 in."
  69. UnitsArray(4) = "1 cm."
  70. UnitsArray(5) = "0.001 cm."
  71. UnitsArray(6) = "1 pt."
  72.  
  73. ' Default constants for this dialog.
  74. GLOBAL CONST HorizDefaultOffset& = 60
  75. GLOBAL CONST HorizDefaultUnit& = 3
  76. GLOBAL CONST VertDefaultOffset& = -60
  77. GLOBAL CONST VertDefaultUnit& = 3
  78. GLOBAL CONST PercentDefault& = 50
  79. GLOBAL CONST RedDefault% = 0
  80. GLOBAL CONST GreenDefault% = 0
  81. GLOBAL CONST BlueDefault% = 0
  82. GLOBAL CONST Proportion& = 500000   ' Used for setting the default
  83.                              ' offset values.
  84.  
  85. ' Variables needed for this dialog.
  86. GLOBAL Red AS INTEGER    ' The selected color's red component.
  87. GLOBAL Green AS INTEGER    ' The selected color's green component.
  88. GLOBAL Blue AS INTEGER    ' The selected color's blue component.
  89. GLOBAL FirstTime AS BOOLEAN ' Whether the user has applied
  90.                     ' anything yet.
  91.  
  92. ' Variables needed to store the old values.
  93. GLOBAL OldRed AS INTEGER
  94. GLOBAL OldGreen AS INTEGER
  95. GLOBAL OldBlue AS INTEGER
  96. GLOBAL OldShadowCheck AS BOOLEAN
  97. GLOBAL OldPercent AS LONG
  98. GLOBAL OldHorizOffset AS LONG
  99. GLOBAL OldVertOffset AS LONG
  100. GLOBAL OldHorizUnit AS INTEGER
  101. GLOBAL OldVertUnit AS INTEGER
  102.  
  103. ' Set up the defaults.
  104. Red% = RedDefault%
  105. Green% = GreenDefault%
  106. Blue% = BlueDefault%
  107. FirstTime = TRUE
  108.  
  109. BEGIN DIALOG OBJECT ParamDialog 283, 179, "Drop Shadow Maker", SUB ParamDialogEventHandler
  110.     GROUPBOX  13, 109, 185, 61, .GroupBox1, "Special effects"
  111.     TEXT  12, 4, 271, 10, .Text1, "This tool automatically creates a drop shadow for the currently selected object."
  112.     GROUPBOX  13, 20, 256, 81, .GroupBox2, "Shadow location"
  113.     TEXT  24, 46, 65, 13, .Text2, "Horizontal"
  114.     TEXT  24, 64, 27, 8, .Text3, "Vertical"
  115.     SPINCONTROL  61, 45, 40, 12, .HorizSpin
  116.     DDLISTBOX  114, 45, 54, 197, .HorizListBox
  117.     SPINCONTROL  61, 63, 40, 12, .VertSpin
  118.     DDLISTBOX  114, 63, 54, 178, .VertListBox
  119.     TEXT  105, 46, 6, 11, .Text4, "x"
  120.     TEXT  105, 64, 6, 11, .Text5, "x"
  121.     CHECKBOX  25, 123, 58, 18, .ShadowCheck, "Make shadow "
  122.     SPINCONTROL  86, 126, 35, 12, .PercentSpin
  123.     TEXT  124, 127, 67, 12, .Text7, "percent transparent"
  124.     PUSHBUTTON  60, 147, 87, 13, .ShadowButton, "Choose shadow color"
  125.     PUSHBUTTON  214, 114, 50, 13, .ApplyButton, "&Apply"
  126.     PUSHBUTTON  214, 135, 50, 13, .OkButton, "&Ok"
  127.     PUSHBUTTON  214, 156, 50, 13, .CancelButton, "&Cancel"
  128.     PUSHBUTTON  182, 51, 25, 19, .LeftButton, "Left"
  129.     PUSHBUTTON  207, 32, 25, 19, .UpButton, "Up"
  130.     PUSHBUTTON  232, 51, 25, 19, .RightButton, "Right"
  131.     PUSHBUTTON  207, 70, 25, 19, .DownButton, "Down"
  132. END DIALOG
  133.  
  134. SUB ParamDialogEventHandler(BYVAL ControlID%, BYVAL Event%)
  135.  
  136.     DIM MsgReturn AS LONG
  137.  
  138.     IF Event% = EVENT_INITIALIZATION THEN
  139.         ' Set dialog defaults.
  140.         ParamDialog.HorizListBox.SetArray UnitsArray$
  141.         ParamDialog.VertListBox.SetArray UnitsArray$
  142.         ParamDialog.HorizListBox.SetSelect HorizDefaultUnit&
  143.         ParamDialog.VertListBox.SetSelect VertDefaultUnit&
  144.         ParamDialog.PercentSpin.SetValue PercentDefault&
  145.         ParamDialog.ShadowCheck.SetThreeState FALSE
  146.         ParamDialog.ShadowCheck.SetValue FALSE
  147.         ParamDialog.PercentSpin.Enable FALSE
  148.         
  149.         ' To set the offset defaults, use the size of the
  150.         ' selected object.
  151.         DIM XSize AS LONG
  152.         DIM YSize AS LONG
  153.         
  154.         .GetSize XSize&, YSize&
  155.         ParamDialog.HorizSpin.SetValue CLNG((XSize& * HorizDefaultOffset&) / Proportion&)
  156.         ParamDialog.VertSpin.SetValue CLNG((YSize& * VertDefaultOffset&) / Proportion&)
  157.         
  158.     ELSEIF Event% = EVENT_MOUSE_CLICK THEN     
  159.         SELECT CASE ControlID%
  160.             CASE ParamDialog.UpButton.GetID()
  161.                 ParamDialog.VertSpin.SetValue \\
  162.                        ParamDialog.VertSpin.GetValue() + 1
  163.                 IF (ParamDialog.VertSpin.GetValue() < -999) THEN
  164.                        MsgReturn& = MESSAGEBOX("Please enter a vertical offset " + \\
  165.                                                    "value between -999 and 999.", \\
  166.                                                  TITLE_INFOBOX$, MB_INFORMATION_ICON&)
  167.                     ParamDialog.VertSpin.SetValue -999
  168.                 ELSEIF (ParamDialog.VertSpin.GetValue() > 999) THEN
  169.                        MsgReturn& = MESSAGEBOX("Please enter a vertical offset " + \\
  170.                                                    "value between -999 and 999.", \\
  171.                                                  TITLE_INFOBOX$, MB_INFORMATION_ICON&)
  172.                     ParamDialog.VertSpin.SetValue 999
  173.                 ENDIF
  174.  
  175.             CASE ParamDialog.DownButton.GetID()
  176.                 ParamDialog.VertSpin.SetValue \\
  177.                    ParamDialog.VertSpin.GetValue() - 1
  178.                 IF (ParamDialog.VertSpin.GetValue() < -999) THEN
  179.                        MsgReturn& = MESSAGEBOX("Please enter a vertical offset " + \\
  180.                                                    "value between -999 and 999.", \\
  181.                                                  TITLE_INFOBOX$, MB_INFORMATION_ICON&)
  182.                     ParamDialog.VertSpin.SetValue -999
  183.                 ELSEIF (ParamDialog.VertSpin.GetValue() > 999) THEN
  184.                        MsgReturn& = MESSAGEBOX("Please enter a vertical offset " + \\
  185.                                                    "value between -999 and 999.", \\
  186.                                                  TITLE_INFOBOX$, MB_INFORMATION_ICON&)
  187.                     ParamDialog.VertSpin.SetValue 999
  188.                 ENDIF
  189.                 
  190.             CASE ParamDialog.LeftButton.GetID()
  191.                 ParamDialog.HorizSpin.SetValue \\
  192.                    ParamDialog.HorizSpin.GetValue() - 1
  193.                 IF (ParamDialog.HorizSpin.GetValue() < -999) THEN
  194.                        MsgReturn& = MESSAGEBOX("Please enter a horizontal offset " + \\
  195.                                                    "value between -999 and 999.", \\
  196.                                                  TITLE_INFOBOX$, MB_INFORMATION_ICON&)
  197.                     ParamDialog.HorizSpin.SetValue -999
  198.                 ELSEIF (ParamDialog.HorizSpin.GetValue() > 999) THEN
  199.                        MsgReturn& = MESSAGEBOX("Please enter a horizontal offset " + \\
  200.                                                    "value between -999 and 999.", \\
  201.                                                  TITLE_INFOBOX$, MB_INFORMATION_ICON&)
  202.                     ParamDialog.HorizSpin.SetValue 999
  203.                 ENDIF
  204.                 
  205.             CASE ParamDialog.RightButton.GetID()
  206.                 ParamDialog.HorizSpin.SetValue \\
  207.                    ParamDialog.HorizSpin.GetValue() + 1
  208.                 IF (ParamDialog.HorizSpin.GetValue() < -999) THEN
  209.                        MsgReturn& = MESSAGEBOX("Please enter a horizontal offset " + \\
  210.                                                    "value between -999 and 999.", \\
  211.                                                  TITLE_INFOBOX$, MB_INFORMATION_ICON&)
  212.                     ParamDialog.HorizSpin.SetValue -999
  213.                 ELSEIF (ParamDialog.HorizSpin.GetValue() > 999) THEN
  214.                        MsgReturn& = MESSAGEBOX("Please enter a horizontal offset " + \\
  215.                                                    "value between -999 and 999.", \\
  216.                                                  TITLE_INFOBOX$, MB_INFORMATION_ICON&)
  217.                     ParamDialog.HorizSpin.SetValue 999
  218.                 ENDIF
  219.  
  220.             CASE ParamDialog.ShadowCheck.GetID()
  221.                 IF ParamDialog.ShadowCheck.GetValue() THEN
  222.                     ParamDialog.PercentSpin.Enable TRUE
  223.                 ELSE
  224.                     ParamDialog.PercentSpin.Enable FALSE
  225.                 ENDIF    
  226.             CASE ParamDialog.ShadowButton.GetID()
  227.                 GETCOLOR Red%, Green%, Blue%
  228.             CASE ParamDialog.ApplyButton.GetID()
  229.                 IF ValidateInput() THEN
  230.                     IF FirstTime THEN
  231.                         FirstTime = FALSE
  232.                         IDDuplicate& = ApplyEffect( IDOriginal&, \\
  233.                                                           Red%, \\
  234.                                                           Green%, \\
  235.                                                           Blue%, \\
  236.                                                           CBOL(ParamDialog.ShadowCheck.GetValue()), \\
  237.                                                           CINT(ParamDialog.PercentSpin.GetValue()), \\
  238.                                                           CLNG(ParamDialog.HorizSpin.GetValue()), \\
  239.                                                           CLNG(ParamDialog.VertSpin.GetValue()), \\
  240.                                                           CINT(ParamDialog.HorizListBox.GetSelect()), \\
  241.                                                           CINT(ParamDialog.VertListBox.GetSelect()) )
  242.                     ELSE ' We will always perform an apply when
  243.                         ' the apply button is hit.  This
  244.                         ' is more reassuring for the user
  245.                         ' than not doing anything if nothing
  246.                         ' changed (though less efficient).
  247.                         ' For efficiency, use:
  248.                         '   ELSEIF AnythingChanged() THEN
  249.                         IF (NOT StillThere(IDOriginal&)) THEN
  250.                             WarnUserComplete
  251.                             STOP
  252.                         ENDIF
  253.                         IF NOT StillThere(IDDuplicate&) THEN
  254.                             WarnUser
  255.                         ELSEIF NOT RemoveObject(IDDuplicate&) THEN
  256.                             WarnUser
  257.                         ENDIF
  258.                         IDDuplicate& = ApplyEffect( IDOriginal&, \\
  259.                                                           Red%, \\
  260.                                                           Green%, \\
  261.                                                           Blue%, \\
  262.                                                           CBOL(ParamDialog.ShadowCheck.GetValue()), \\
  263.                                                           CINT(ParamDialog.PercentSpin.GetValue()), \\
  264.                                                           CLNG(ParamDialog.HorizSpin.GetValue()), \\
  265.                                                           CLNG(ParamDialog.VertSpin.GetValue()), \\
  266.                                                           CINT(ParamDialog.HorizListBox.GetSelect()), \\
  267.                                                           CINT(ParamDialog.VertListBox.GetSelect()) )
  268.                     ENDIF
  269.                 ENDIF
  270.             CASE ParamDialog.OkButton.GetID()
  271.                 IF ValidateInput() THEN
  272.                     IF FirstTime THEN
  273.                         FirstTime = FALSE
  274.                         IDDuplicate& = ApplyEffect( IDOriginal&, \\
  275.                                                           Red%, \\
  276.                                                           Green%, \\
  277.                                                           Blue%, \\
  278.                                                           CBOL(ParamDialog.ShadowCheck.GetValue()), \\
  279.                                                           CINT(ParamDialog.PercentSpin.GetValue()), \\
  280.                                                           CLNG(ParamDialog.HorizSpin.GetValue()), \\
  281.                                                           CLNG(ParamDialog.VertSpin.GetValue()), \\
  282.                                                           CINT(ParamDialog.HorizListBox.GetSelect()), \\
  283.                                                           CINT(ParamDialog.VertListBox.GetSelect()) )
  284.                     ELSEIF AnythingChanged() THEN
  285.                         IF (NOT StillThere(IDOriginal&)) THEN
  286.                             WarnUserComplete
  287.                             STOP
  288.                         ENDIF
  289.                         IF NOT StillThere(IDDuplicate&) THEN
  290.                             WarnUser                        
  291.                         ELSEIF NOT RemoveObject(IDDuplicate&) THEN
  292.                             WarnUser
  293.                         ENDIF
  294.                         IDDuplicate& = ApplyEffect( IDOriginal&, \\
  295.                                                           Red%, \\
  296.                                                           Green%, \\
  297.                                                           Blue%, \\
  298.                                                           CBOL(ParamDialog.ShadowCheck.GetValue()), \\
  299.                                                           CINT(ParamDialog.PercentSpin.GetValue()), \\
  300.                                                           CLNG(ParamDialog.HorizSpin.GetValue()), \\
  301.                                                           CLNG(ParamDialog.VertSpin.GetValue()), \\
  302.                                                           CINT(ParamDialog.HorizListBox.GetSelect()), \\
  303.                                                           CINT(ParamDialog.VertListBox.GetSelect()) )
  304.                     ENDIF
  305.                     ParamDialog.CloseDialog DIALOG_RETURN_OK%
  306.                 ENDIF
  307.             CASE ParamDialog.CancelButton.GetID()
  308.                 IF NOT FirstTime THEN
  309.                     IF (NOT StillThere(IDOriginal&)) THEN
  310.                         WarnUserComplete
  311.                         STOP
  312.                     ENDIF
  313.                     IF NOT StillThere(IDDuplicate&) THEN
  314.                         WarnUser
  315.                     ELSEIF NOT RemoveObject(IDDuplicate&) THEN
  316.                         WarnUser
  317.                     ENDIF
  318.                 ENDIF
  319.                 ParamDialog.CloseDialog DIALOG_RETURN_CANCEL%
  320.         END SELECT
  321.         
  322.     ELSEIF Event% = EVENT_CHANGE_IN_CONTENT THEN     
  323.         SELECT CASE ControlID%
  324.             CASE ParamDialog.PercentSpin.GetID()
  325.                 ' Do not let the user choose values less than 0 or
  326.                 ' more than 100.
  327.                 IF ParamDialog.PercentSpin.GetValue() < 0 THEN
  328.                        MsgReturn& = MESSAGEBOX("Please enter a percentage " + \\
  329.                                                    "between 0 and 100.", \\
  330.                                                  TITLE_INFOBOX$, MB_INFORMATION_ICON&)
  331.                     ParamDialog.PercentSpin.SetValue 0
  332.                 ELSEIF ParamDialog.PercentSpin.GetValue() > 100 THEN
  333.                        MsgReturn& = MESSAGEBOX("Please enter a percentage " + \\
  334.                                                    "between 0 and 100.", \\
  335.                                                  TITLE_INFOBOX$, MB_INFORMATION_ICON&)
  336.                     ParamDialog.PercentSpin.SetValue 100
  337.                 ENDIF
  338.                 
  339.             CASE ParamDialog.HorizSpin.GetID()
  340.                 IF (ParamDialog.HorizSpin.GetValue() < -999) THEN
  341.                        MsgReturn& = MESSAGEBOX("Please enter a horizontal offset " + \\
  342.                                                    "value between -999 and 999.", \\
  343.                                                  TITLE_INFOBOX$, MB_INFORMATION_ICON&)
  344.                     ParamDialog.HorizSpin.SetValue -999
  345.                 ELSEIF (ParamDialog.HorizSpin.GetValue() > 999) THEN
  346.                        MsgReturn& = MESSAGEBOX("Please enter a horizontal offset " + \\
  347.                                                    "value between -999 and 999.", \\
  348.                                                  TITLE_INFOBOX$, MB_INFORMATION_ICON&)
  349.                     ParamDialog.HorizSpin.SetValue 999
  350.                 ENDIF
  351.             
  352.             CASE ParamDialog.VertSpin.GetID()
  353.                 IF (ParamDialog.VertSpin.GetValue() < -999) THEN
  354.                        MsgReturn& = MESSAGEBOX("Please enter a vertical offset " + \\
  355.                                                    "value between -999 and 999.", \\
  356.                                                  TITLE_INFOBOX$, MB_INFORMATION_ICON&)
  357.                     ParamDialog.VertSpin.SetValue -999
  358.                 ELSEIF (ParamDialog.VertSpin.GetValue() > 999) THEN
  359.                        MsgReturn& = MESSAGEBOX("Please enter a vertical offset " + \\
  360.                                                    "value between -999 and 999.", \\
  361.                                                  TITLE_INFOBOX$, MB_INFORMATION_ICON&)
  362.                     ParamDialog.VertSpin.SetValue 999
  363.                 ENDIF
  364.             
  365.         END SELECT
  366.     
  367.     ENDIF
  368.  
  369. END SUB
  370.  
  371. '********************************************************************
  372. '
  373. '    Name:    AnythingChanged (dialog function)
  374. '
  375. '    Action:    Checks whether the user has changed any options
  376. '              since the last time a drop shadow was applied.
  377. '              If any options have indeed changed, update
  378. '              the bank of Old* variables.
  379. '
  380. '    Params:    None.  As this is intended to be a dialog function,
  381. '              it makes use of all variables global to ParamDialog.
  382. '
  383. '    Returns:    None.
  384. '
  385. '    Comments: None.
  386. '
  387. '********************************************************************
  388. FUNCTION AnythingChanged() AS BOOLEAN
  389.  
  390.     DIM AnyDifference AS BOOLEAN ' Any difference detected so far?
  391.  
  392.     ' Perform a quick check for debugging purposes.
  393.     IF FirstTime THEN
  394.         MESSAGE "Invalid calling context"
  395.     ENDIF
  396.  
  397.     ' Compare current dialog settings to previous ones.
  398.     IF OldRed% <> Red% THEN
  399.         AnyDifference = TRUE
  400.         OldRed% = Red%
  401.     ENDIF
  402.     IF OldGreen% <> Green% THEN
  403.         AnyDifference = TRUE
  404.         OldGreen% = Green%
  405.     ENDIF
  406.     IF OldBlue% <> Blue% THEN
  407.         AnyDifference = TRUE
  408.         OldBlue% = Blue%
  409.     ENDIF
  410.     IF OldShadowCheck <> ParamDialog.ShadowCheck.GetValue() THEN
  411.         AnyDifference = TRUE
  412.         OldShadowCheck = ParamDialog.ShadowCheck.GetValue()
  413.     ENDIF
  414.     IF OldPercent& <> ParamDialog.PercentSpin.GetValue() THEN
  415.         AnyDifference = TRUE
  416.         OldPercent& = ParamDialog.PercentSpin.GetValue()
  417.     ENDIF
  418.     IF OldHorizOffset& <> ParamDialog.HorizSpin.GetValue() THEN
  419.         AnyDifference = TRUE
  420.         OldHorizOffset& = ParamDialog.HorizSpin.GetValue()
  421.     ENDIF
  422.     IF OldVertOffset& <> ParamDialog.VertSpin.GetValue() THEN
  423.         AnyDifference = TRUE
  424.         OldVertOffset& = ParamDialog.VertSpin.GetValue()
  425.     ENDIF
  426.     IF OldHorizUnit% <> ParamDialog.HorizListBox.GetSelect() THEN
  427.         AnyDifference = TRUE
  428.         OldHorizUnit% = ParamDialog.HorizListBox.GetSelect()
  429.     ENDIF
  430.     IF OldVertUnit% <> ParamDialog.VertListBox.GetSelect() THEN
  431.         AnyDifference = TRUE
  432.         OldVertUnit% = ParamDialog.VertListBox.GetSelect()
  433.     ENDIF
  434.  
  435.     ' Return TRUE if anything changed.
  436.     AnythingChanged = AnyDifference
  437.  
  438. END FUNCTION
  439.  
  440. '********************************************************************
  441. '
  442. '    Name:    ValidateInput (dialog function)
  443. '
  444. '    Action:    Checks whether all fields in ParamDialog are valid.
  445. '              If one is found to be invalid, displays an error message.
  446. '
  447. '    Params:    None.  As this is intended to be a dialog function,
  448. '              it makes use of all variables global to ParamDialog.
  449. '
  450. '    Returns:    TRUE if all fields are valid.  FALSE otherwise,
  451. '              along with an error message.
  452. '
  453. '    Comments: None.
  454. '
  455. '********************************************************************
  456. FUNCTION ValidateInput() AS BOOLEAN
  457.  
  458.     DIM MsgReturn AS LONG    ' The result of a call to MESSAGEBOX.
  459.     DIM AvailableX AS LONG    ' The width of the page.
  460.     DIM AvailableY AS LONG    ' The height of the page.
  461.     DIM MoveX AS LONG        ' The size of the horizontal offset in Draw units.
  462.     DIM MoveY AS LONG        ' The size of the vertical offset in Draw units.
  463.     DIM HorizUnit AS INTEGER    ' The horizontal unit chosen by the user.
  464.     DIM VertUnit AS INTEGER    ' The vertical unit chosen by the user.
  465.     DIM HorizOffset AS LONG    ' The horizontal offset.
  466.     DIM VertOffset AS LONG    ' The vertical offset.
  467.  
  468.     ' Validate the shadow percentage.
  469.     IF ParamDialog.ShadowCheck.GetValue() THEN
  470.         IF (ParamDialog.PercentSpin.GetValue() < 0) OR \\
  471.              (ParamDialog.PercentSpin.GetValue() > 100) THEN
  472.             
  473.             MsgReturn& = MESSAGEBOX("Please enter a transparency " + \\
  474.                                        "percentage between 0 and 100.", \\
  475.                                        TITLE_ERRORBOX$, \\
  476.                                        MB_OK_ONLY&)
  477.             ValidateInput = FALSE
  478.             EXIT FUNCTION
  479.  
  480.         ENDIF
  481.     ENDIF
  482.  
  483.     ' Validate the offsets.
  484.     .GetPageSize AvailableX&, AvailableY&
  485.     HorizOffset& = ParamDialog.HorizSpin.GetValue()
  486.     VertOffset& = ParamDialog.VertSpin.GetValue()
  487.     HorizUnit% = ParamDialog.HorizListbox.GetSelect()
  488.     VertUnit% = ParamDialog.VertListbox.GetSelect() 
  489.     
  490.     SELECT CASE HorizUnit%
  491.     
  492.         CASE 1 ' 1 in.
  493.             MoveX& = HorizOffset& * 1 *                \\
  494.                     LENGTHCONVERT(LC_INCHES,            \\
  495.                                  LC_TENTHS_OFA_MICRON, \\
  496.                                  1)
  497.         CASE 2 ' 1/36 in.
  498.             MoveX& = HorizOffset& * (1/36) * \\
  499.                     LENGTHCONVERT(LC_INCHES,            \\
  500.                                  LC_TENTHS_OFA_MICRON, \\
  501.                                1)
  502.         CASE 3 ' 0.001 in.
  503.             MoveX& = HorizOffset& * 0.001 *            \\
  504.                     LENGTHCONVERT(LC_INCHES,            \\
  505.                                  LC_TENTHS_OFA_MICRON, \\
  506.                                  1)
  507.         CASE 4 ' 1 cm.
  508.             MoveX& = HorizOffset& * 1 *                \\
  509.                     LENGTHCONVERT(LC_CENTIMETERS,       \\
  510.                                 LC_TENTHS_OFA_MICRON, \\
  511.                                1)
  512.         CASE 5 ' 0.001 cm.
  513.             MoveX& = HorizOffset& * 0.001 *            \\
  514.                     LENGTHCONVERT(LC_CENTIMETERS,       \\
  515.                                LC_TENTHS_OFA_MICRON, \\
  516.                                1)
  517.         CASE 6 ' 1 pt.
  518.             MoveX& = HorizOffset& * 1 *                \\
  519.                     LENGTHCONVERT(LC_POINTS,            \\
  520.                                 LC_TENTHS_OFA_MICRON, \\
  521.                                1)
  522.  
  523.     END SELECT
  524.     SELECT CASE VertUnit%
  525.     
  526.         CASE 1 ' 1 in.
  527.             MoveY& = VertOffset& * 1 *                 \\
  528.                     LENGTHCONVERT(LC_INCHES,            \\
  529.                                  LC_TENTHS_OFA_MICRON, \\
  530.                                  1)
  531.         CASE 2 ' 1/36 in.
  532.             MoveY& = VertOffset& * (1/36) *            \\
  533.                     LENGTHCONVERT(LC_INCHES,            \\
  534.                                  LC_TENTHS_OFA_MICRON, \\
  535.                                1)
  536.         CASE 3 ' 0.001 in.
  537.             MoveY& = VertOffset& * 0.001 *             \\
  538.                     LENGTHCONVERT(LC_INCHES,            \\
  539.                                  LC_TENTHS_OFA_MICRON, \\
  540.                                1)
  541.         CASE 4 ' 1 cm.
  542.             MoveY& = VertOffset& * 1 *                 \\
  543.                     LENGTHCONVERT(LC_CENTIMETERS,       \\
  544.                                LC_TENTHS_OFA_MICRON, \\
  545.                                1)
  546.         CASE 5 ' 0.001 cm.
  547.             MoveY& = VertOffset& * 0.001 *             \\
  548.                     LENGTHCONVERT(LC_CENTIMETERS,       \\
  549.                                 LC_TENTHS_OFA_MICRON, \\
  550.                                1)
  551.         CASE 6 ' 1 pt.
  552.             MoveY& = VertOffset& * 1 *                 \\
  553.                     LENGTHCONVERT(LC_POINTS,            \\
  554.                                 LC_TENTHS_OFA_MICRON, \\
  555.                                1)
  556.  
  557.     END SELECT
  558.     
  559.     ' Complain if the shadow will be very far off the page.
  560.     ' (The legal area works out to be about twice the page size.)
  561.     IF (ABS(MoveX&) > (AvailableX& / 2)) OR (ABS(MoveY&) > (AvailableY& / 2)) THEN
  562.         MsgReturn& = MESSAGEBOX("You will go far off the page with the values you have chosen." + \\
  563.                                 NL2 + "Please choose smaller values for the offsets and try again.", \\
  564.                             TITLE_INFOBOX$, MB_EXCLAMATION_ICON%)
  565.         ValidateInput = FALSE
  566.         EXIT FUNCTION
  567.     ENDIF
  568.     
  569.     ' Return TRUE.
  570.     ValidateInput = TRUE
  571.  
  572. END FUNCTION
  573.  
  574. '********************************************************************
  575. ' MAIN
  576. '
  577. '
  578. '********************************************************************
  579.  
  580. '/////LOCAL VARIABLES////////////////////////////////////////////////
  581. DIM MessageText AS STRING    ' Text to use in a MESSAGEBOX.
  582. DIM GenReturn AS LONG        ' The return value of various routines.
  583. DIM Selection AS BOOLEAN        ' Whether any object is selected in draw.
  584. DIM Valid AS BOOLEAN        ' Whether the user's input was valid.
  585. DIM RememberToUngroup AS BOOLEAN    ' Whether we performed a group.
  586.  
  587. ' Set up a general error handler.
  588. ON ERROR GOTO MainErrorHandler
  589.  
  590. ' Check to see whether anything is selected in DRAW.
  591. IF NOT CheckForSelection() THEN
  592.     MessageText$ = "Please select an object (or several objects) in " + \\
  593.                     "CorelDRAW before running the Drop Shadow Maker." + \\
  594.                     NL2 + "The drop shadow effect will be applied to " + \\
  595.                     "the objects you select."
  596.     GenReturn& = MESSAGEBOX(MessageText$, TITLE_INFOBOX$, \\
  597.                             MB_OK_ONLY& OR MB_INFORMATION_ICON&)
  598.     STOP
  599. ENDIF
  600.  
  601. ' Prepare CorelDRAW for the shadowing operation by grouping
  602. ' the original selection.
  603. ON ERROR RESUME NEXT
  604. IF .GetObjectType() <> DRAW_OBJECT_TYPE_GROUP% THEN
  605.     ERRNUM = 0
  606.     .Group
  607.     RememberToUngroup = TRUE
  608. ELSE
  609.     ERRNUM = 0
  610.     RememberToUngroup = FALSE
  611. ENDIF
  612. ON ERROR GOTO MainErrorHandler
  613. IDOriginal& = .GetObjectsCDRStaticID()
  614.  
  615. ' Interact with the user.
  616. GenReturn& = DIALOG(ParamDialog)
  617.  
  618. ' Select the original object(s) and remove the grouping.
  619. ' If the user has deleted the original object(s), then do not complain.
  620. ON ERROR RESUME NEXT
  621. .SelectObjectOfCDRStaticID IDOriginal&
  622. ERRNUM = 0
  623. IF RememberToUngroup THEN
  624.     IF .GetObjectType() = DRAW_OBJECT_TYPE_GROUP% THEN
  625.         ERRNUM = 0
  626.         .Ungroup
  627.     ENDIF
  628. ENDIF
  629. ERRNUM = 0
  630.  
  631. VeryEnd:
  632.     STOP
  633.  
  634. MainErrorHandler:
  635.     ERRNUM = 0
  636.     MessageText$ = "A general error occurred during the "
  637.     MessageText$ = MessageText$ + "Drop Shadow Maker's processing." + NL2
  638.     MessageText$ = MessageText$ + "You may wish to try again."
  639.     GenReturn& = MESSAGEBOX(MessageText$, TITLE_ERRORBOX$, \\
  640.                             MB_OK_ONLY& OR MB_EXCLAMATION_ICON&)
  641.     RESUME AT VeryEnd
  642.     
  643. ErrorNoDrawHandler:
  644.     ' Failed to create the automation object.
  645.     ERRNUM = 0
  646.     GenReturn = MESSAGEBOX( "Could not find CorelDRAW."+NL2+\\
  647.                         "If this error persists, you "+ \\
  648.                         "may need to re-install "+      \\
  649.                         "CorelDRAW.",                 \\
  650.                            TITLE_ERRORBOX,                 \\
  651.                         MB_OK_ONLY& OR MB_STOP_ICON& )
  652.     RESUME AT VeryEnd
  653.  
  654. '********************************************************************
  655. '
  656. '    Name:    CheckForSelection (function)
  657. '
  658. '    Action:    Checks whether an object is currently selected
  659. '            in CorelDRAW.
  660. '
  661. '    Params:    None.
  662. '
  663. '    Returns:    TRUE if an object is currently selected;  FALSE
  664. '              otherwise.
  665. '
  666. '    Comments:    Never raises any errors. 
  667. '
  668. '********************************************************************
  669. FUNCTION CheckForSelection AS BOOLEAN
  670.  
  671.     DIM ObjType AS LONG     ' The currently selected object type.
  672.  
  673.     ON ERROR GOTO CFSNothingError
  674.         
  675.         ObjType& = .GetObjectType()
  676.         IF (ObjType& <= DRAW_OBJECT_TYPE_RESERVED) THEN
  677.             CheckForSelection = FALSE
  678.         ELSE
  679.             CheckForSelection = TRUE
  680.         ENDIF
  681.  
  682.     ExitPart:
  683.         EXIT FUNCTION
  684.  
  685. CFSNothingError:
  686.     ERRNUM = 0
  687.     CheckForSelection = FALSE
  688.     RESUME AT ExitPart
  689.  
  690. END FUNCTION
  691.  
  692. '********************************************************************
  693. '
  694. '    Name:    RemoveObject (function)
  695. '
  696. '    Action:    Removes a specific object in CorelDRAW given its
  697. '              CDRStaticID.
  698. '
  699. '    Params:    InCDRStaticID -- the ID of the object to remove
  700. '
  701. '    Returns:    If the object is found, deletes it and returns TRUE.
  702. '              Otherwise returns FALSE.
  703. '
  704. '    Comments: None.
  705. '
  706. '********************************************************************
  707. FUNCTION RemoveObject( InCDRStaticID AS LONG ) AS BOOLEAN
  708.     
  709.     ON ERROR GOTO RONotFoundError
  710.  
  711.     .SelectObjectOfCDRStaticID InCDRStaticID&
  712.     .DeleteObject
  713.  
  714.     RemoveObject = TRUE
  715.  
  716.     ExitPart:
  717.         EXIT FUNCTION
  718.  
  719. RONotFoundError:
  720.     ' The given object was not found.
  721.     ERRNUM = 0
  722.     RemoveObject = FALSE
  723.     RESUME AT ExitPart
  724.  
  725. END FUNCTION
  726.  
  727. '********************************************************************
  728. '
  729. '    Name:    StillThere (function)
  730. '
  731. '    Action:    Checks to see if an object still exists in Draw,
  732. '              given its CDRStaticID.
  733. '
  734. '    Params:    InCDRStaticID -- the ID of the object to look for.
  735. '
  736. '    Returns:    If the object is found, returns TRUE.
  737. '              Otherwise returns FALSE.
  738. '
  739. '    Comments: None.
  740. '
  741. '********************************************************************
  742. FUNCTION StillThere( InCDRStaticID AS LONG ) AS BOOLEAN
  743.     
  744.     
  745.     DIM CurSelectedID AS LONG
  746.     
  747.     ON ERROR RESUME NEXT
  748.     CurSelectedID& = .GetObjectsCDRStaticID()
  749.     IF ERRNUM <> 0 THEN
  750.         ERRNUM = 0
  751.         CurSelectedID& = 0
  752.     ENDIF
  753.         
  754.     ON ERROR GOTO STNotFoundError
  755.  
  756.     IF CurSelectedID = InCDRStaticID THEN
  757.         ' The desired object is already selected.
  758.     ELSE
  759.         ' We need to select the object.
  760.         .SelectObjectOfCDRStaticID InCDRStaticID&
  761.         CurSelectedID& = .GetObjectsCDRStaticID()
  762.         IF CurSelectedID& <> InCDRStaticID& THEN
  763.             StillThere = FALSE
  764.             EXIT FUNCTION
  765.         ENDIF
  766.     ENDIF
  767.  
  768.     StillThere = TRUE
  769.  
  770.     STExitPart:
  771.         EXIT FUNCTION
  772.  
  773. STNotFoundError:
  774.     ' The given object was not found.
  775.     ERRNUM = 0
  776.     StillThere = FALSE
  777.     RESUME AT STExitPart
  778.  
  779. END FUNCTION
  780.  
  781. '********************************************************************
  782. '
  783. '    Name:    WarnUser (subroutine)
  784. '
  785. '    Action:    Displays a message box warning the user not to
  786. '              interfere with this program's operation.
  787. '
  788. '    Params:    None.
  789. '
  790. '    Returns:    None.
  791. '
  792. '    Comments: None.
  793. '
  794. '********************************************************************
  795. SUB WarnUser()
  796.  
  797.     DIM MsgReturn AS LONG    ' The return value of MESSAGEBOX.
  798.     MsgReturn& = MESSAGEBOX( "Could not find the last shadow created." \\
  799.                               + NL2 + "Please do not interfere with " \\
  800.                               + "the operation of the Drop Shadow Maker " \\
  801.                               + "by deleting objects it creates."+ NL2 \\
  802.                               + "The Drop Shadow Maker will perform " \\
  803.                               + "all necessary steps on its own.", \\
  804.                               TITLE_INFOBOX$, \\
  805.                               MB_INFORMATION_ICON& )
  806.  
  807. END SUB
  808.  
  809. '********************************************************************
  810. '
  811. '    Name:    WarnUserOriginal (subroutine)
  812. '
  813. '    Action:    Displays a message box warning the user not to
  814. '              interfere with this program's operation.
  815. '
  816. '    Params:    None.
  817. '
  818. '    Returns:    None.
  819. '
  820. '    Comments: None.
  821. '
  822. '********************************************************************
  823. SUB WarnUserComplete()
  824.  
  825.     DIM MsgReturn AS LONG    ' The return value of MESSAGEBOX.
  826.     MsgReturn& = MESSAGEBOX( "Could not find the object that was " + \\
  827.                               "selected when you first started the " + \\
  828.                               "Drop Shadow Maker." + NL2 + \\
  829.                               "If you deleted the object or combined it with another " + \\
  830.                               "object using a tool such as the Weld tool," + NL + "please " + \\
  831.                               "refrain from doing this in the future, " +\\
  832.                               "since the Drop Shadow Maker takes " + \\
  833.                               "care of all" + NL + "necessary operations " + \\
  834.                               "automatically." + NL2 + \\
  835.                               "Drop Shadow Maker shutting down.", \\
  836.                               TITLE_ERRORBOX$, \\
  837.                               MB_STOP_ICON& )
  838.  
  839. END SUB
  840.  
  841. '********************************************************************
  842. '
  843. '    Name:    ApplyEffect (subroutine)
  844. '
  845. '    Action:    Duplicates the object that has a CDRStaticID of InID
  846. '              and places the duplicate behind the original.  
  847. '              Positions the duplicate relative to the original
  848. '              as determined by InHorizOffset, InVertOffset,
  849. '              InVertUnit, and InHorizUnit.  Applies a colour to
  850. '              the duplicate and optionally makes it transparent.
  851. '
  852. '    Params:    InID - the CDRStaticID of an object to duplicate
  853. '            InRed - the red component (RGB) of the color to apply
  854. '              InGreen - the green component (RGB) of the color to apply
  855. '              InBlue - the blue component (RGB) of the color to apply
  856. '              InMakeTransparent - should the shadow be transparent?
  857. '              InPercent - if transparent, by how much (0% is opaque,
  858. '                          and 100% is wholly transparent)
  859. '              InHorizOffset - the horizontal offset for the shadow
  860. '              InVertOffset - the vertical offset for the shadow
  861. '              InHorizUnit - what unit is specified by InHorizOffset?
  862. '              InVertUnit - what unit is specified by InVertUnit?
  863. '                           (the constants refer to the same units as
  864. '                            UnitsArray)
  865. '
  866. '    Returns:    The CDRStaticID of the duplicate object (the shadow).
  867. '
  868. '    Comments: If InID is not found, displays an error message and 
  869. '              stops the script.
  870. '
  871. '********************************************************************
  872. FUNCTION ApplyEffect( InID AS LONG, \\
  873.                       InRed AS INTEGER, \\
  874.                       InGreen AS INTEGER, \\
  875.                       InBlue AS INTEGER, \\
  876.                       InMakeTransparent AS BOOLEAN, \\
  877.                       InPercent AS INTEGER, \\
  878.                       InHorizOffset AS LONG, \\
  879.                       InVertOffset AS LONG, \\
  880.                       InHorizUnit AS INTEGER, \\
  881.                       InVertUnit AS INTEGER) AS LONG
  882.  
  883.     DIM IDCopied AS LONG    ' The CDRStaticID of the shadow group.
  884.     DIM InitialXPos AS LONG  ' The specified object's X coordinate.
  885.     DIM InitialYPos AS LONG  ' The specified object's Y coordinate.
  886.     DIM NewXPos AS LONG         ' The shadow group's X coordinate.
  887.     DIM NewYPos AS LONG         ' The shadow group's Y coordinate.
  888.     DIM Cyan AS LONG        ' The provided color converted to CMYK.
  889.     DIM Magenta AS LONG        ' The provided color converted to CMYK.
  890.     DIM Yellow AS LONG        ' The provided color converted to CMYK.
  891.     DIM Black AS LONG        ' The provided color converted to CMYK.
  892.     
  893.     ON ERROR GOTO AENotFoundError
  894.  
  895.     ' Make a duplicate of the specified object, remembering
  896.     ' the original position.
  897.     .SelectObjectOfCDRStaticID InID&
  898.     .GetPosition InitialXPos&, InitialYPos&
  899.     .DuplicateObject
  900.     
  901.     ' Store the duplicate's CDRStaticID.
  902.     IDCopied& = .GetObjectsCDRStaticID()
  903.     
  904.     ' Determine where the new object should go.
  905.     SELECT CASE InHorizUnit%
  906.     
  907.         CASE 1 ' 1 in.
  908.             NewXPos& = InitialXPos& +                      \\
  909.                                InHorizOffset& * 1 *                \\
  910.                      LENGTHCONVERT(LC_INCHES,            \\
  911.                                    LC_TENTHS_OFA_MICRON, \\
  912.                                 1)
  913.         CASE 2 ' 1/36 in.
  914.             NewXPos& = InitialXPos& +                      \\
  915.                                InHorizOffset& * (1/36) *           \\
  916.                      LENGTHCONVERT(LC_INCHES,            \\
  917.                                    LC_TENTHS_OFA_MICRON, \\
  918.                                 1)
  919.         CASE 3 ' 0.001 in.
  920.             NewXPos& = InitialXPos& +                      \\
  921.                                InHorizOffset& * 0.001 *            \\
  922.                      LENGTHCONVERT(LC_INCHES,            \\
  923.                                    LC_TENTHS_OFA_MICRON, \\
  924.                                 1)
  925.         CASE 4 ' 1 cm.
  926.             NewXPos& = InitialXPos& +                      \\
  927.                      InHorizOffset& * 1 *                \\
  928.                      LENGTHCONVERT(LC_CENTIMETERS,       \\
  929.                                 LC_TENTHS_OFA_MICRON, \\
  930.                                 1)
  931.         CASE 5 ' 0.001 cm.
  932.             NewXPos& = InitialXPos& +                       \\
  933.                      InHorizOffset& * 0.001 *            \\
  934.                      LENGTHCONVERT(LC_CENTIMETERS,       \\
  935.                                 LC_TENTHS_OFA_MICRON, \\
  936.                                 1)
  937.         CASE 6 ' 1 pt.
  938.             NewXPos& = InitialXPos& +                      \\
  939.                      InHorizOffset& * 1 *                \\
  940.                      LENGTHCONVERT(LC_POINTS,            \\
  941.                                 LC_TENTHS_OFA_MICRON, \\
  942.                                 1)
  943.  
  944.     END SELECT
  945.     SELECT CASE InVertUnit%
  946.     
  947.         CASE 1 ' 1 in.
  948.             NewYPos& = InitialYPos& +                      \\
  949.                                InVertOffset& * 1 *                 \\
  950.                      LENGTHCONVERT(LC_INCHES,            \\
  951.                                    LC_TENTHS_OFA_MICRON, \\
  952.                                 1)
  953.         CASE 2 ' 1/36 in.
  954.             NewYPos& = InitialYPos& +                      \\
  955.                                InVertOffset& * (1/36) *            \\
  956.                      LENGTHCONVERT(LC_INCHES,            \\
  957.                                    LC_TENTHS_OFA_MICRON, \\
  958.                                 1)
  959.         CASE 3 ' 0.001 in.
  960.             NewYPos& = InitialYPos& +                      \\
  961.                                InVertOffset& * 0.001 *             \\
  962.                      LENGTHCONVERT(LC_INCHES,            \\
  963.                                    LC_TENTHS_OFA_MICRON, \\
  964.                                 1)
  965.         CASE 4 ' 1 cm.
  966.             NewYPos& = InitialYPos& +                      \\
  967.                      InVertOffset& * 1 *                 \\
  968.                      LENGTHCONVERT(LC_CENTIMETERS,       \\
  969.                                 LC_TENTHS_OFA_MICRON, \\
  970.                                 1)
  971.         CASE 5 ' 0.001 cm.
  972.             NewYPos& = InitialYPos& +                      \\
  973.                      InVertOffset& * 0.001 *             \\
  974.                      LENGTHCONVERT(LC_CENTIMETERS,       \\
  975.                                 LC_TENTHS_OFA_MICRON, \\
  976.                                 1)
  977.         CASE 6 ' 1 pt.
  978.             NewYPos& = InitialYPos& +                      \\
  979.                      InVertOffset& * 1 *                 \\
  980.                      LENGTHCONVERT(LC_POINTS,            \\
  981.                                 LC_TENTHS_OFA_MICRON, \\
  982.                                 1)
  983.  
  984.     END SELECT
  985.  
  986.     ' Put the new object where it should go.
  987.     .SetPosition NewXPos&, NewYPos&
  988.     .OrderBackOne
  989.  
  990.     ' Apply the appropriate shadow color.
  991.     .StoreColor DRAW_COLORMODEL_RGB&, InRed%, InGreen%, InBlue%, 0
  992.     .ApplyUniformFillColor
  993.  
  994.     ' We do not want an outline on the shadow.
  995.     .ApplyOutline 0, \\
  996.                   DRAW_OUTLINE_TYPE_NONE&, \\
  997.                   DRAW_OUTLINE_CAPS_BUTT&, \\
  998.                   DRAW_OUTLINE_JOIN_MITER&, \\
  999.                   100, \\
  1000.                   0, \\
  1001.                   0, \\
  1002.                   0, \\
  1003.                   0, \\
  1004.                   FALSE
  1005.                         
  1006.     ' If the shadow should be transparent, make it so.
  1007.     IF InMakeTransparent THEN
  1008.         
  1009.         ' To illustrate the use of ConvertColor, we
  1010.         ' will convert our input colors to CMYK.
  1011.         .StoreColor DRAW_COLORMODEL_RGB&, \\
  1012.                     InRed%, \\
  1013.                     InGreen%, \\
  1014.                     InBlue%
  1015.         .ConvertColor DRAW_COLORMODEL_CMYK255&, \\
  1016.                       Cyan&, \\
  1017.                       Magenta&, \\
  1018.                       Yellow&, \\
  1019.                       Black&
  1020.     
  1021.         .StoreColor DRAW_COLORMODEL_CMYK255&, \\
  1022.                       Cyan&, Magenta&, Yellow&, Black&
  1023.         .ApplyLensEffect DRAW_TAB_AVERAGE&, \\
  1024.                            FALSE, \\
  1025.                            FALSE, \\
  1026.                            FALSE, \\
  1027.                            0, \\
  1028.                            0, \\
  1029.                            1000 - (InPercent% * 10)
  1030.                       
  1031.  
  1032.         ' Since we've already set the color, the
  1033.         ' other parameters of ApplyLensEffect do
  1034.         ' not need to be provided.            
  1035.  
  1036.     ENDIF
  1037.  
  1038.     ' Return the CDRStaticID of the shadow group.
  1039.     ApplyEffect& = IDCopied&
  1040.  
  1041.     ExitPart:
  1042.         EXIT FUNCTION
  1043.  
  1044.     StopPart:
  1045.         STOP
  1046.  
  1047. AENotFoundError:
  1048.     ' The given object was not found.
  1049.     ERRNUM = 0
  1050.     DIM MsgReturn AS LONG  ' The result of a MESSAGEBOX call.
  1051.     MsgReturn& = MESSAGEBOX( "Could not find the object that was " + \\
  1052.                               "selected when you first started the " + \\
  1053.                               "Drop Shadow Maker." + NL2 + \\
  1054.                               "If you deleted the object, please " + \\
  1055.                               "refrain from doing this in the future, " +\\
  1056.                               "since the Drop Shadow Maker takes " + \\
  1057.                               "care of all necessary object deletion " + \\
  1058.                               "automatically." + NL2 + \\
  1059.                               "Drop Shadow Maker shutting down.", \\
  1060.                               TITLE_ERRORBOX$, \\
  1061.                               MB_STOP_ICON& )
  1062.     RESUME AT StopPart
  1063.  
  1064. END FUNCTION
  1065.  
  1066. END WITHOBJECT
  1067.  
  1068.