home *** CD-ROM | disk | FTP | other *** search
/ CorelDRAW! 10 / cd10_pgrm.iso / Corel / Graphics10 / Draw / Scripts / Misc / neonwiz.csc < prev    next >
Encoding:
Text File  |  1999-03-29  |  31.5 KB  |  904 lines
  1. REM Neon Effect Wizard
  2. REM Applies an interactive neon effect.
  3.  
  4. '********************************************************************
  5. ' 
  6. '   Script:    NeonWiz.csc
  7. ' 
  8. '   Copyright 1996 Corel Corporation.  All rights reserved.
  9. ' 
  10. '   Description: CorelDRAW script to apply a neon effect to the
  11. '                currently selected object or to text that the
  12. '                user enters.
  13. ' 
  14. '********************************************************************
  15.  
  16. #addfol  "..\..\..\Scripts"
  17. #include "ScpConst.csi"
  18. #include "DrwConst.csi"
  19.  
  20. '/////FUNCTION & SUBROUTINE DECLARATIONS/////////////////////////////
  21. DECLARE FUNCTION CheckForSelection() AS BOOLEAN
  22. DECLARE FUNCTION ValidateInput(InText AS STRING) AS BOOLEAN
  23. DECLARE FUNCTION CheckSelectedForBlend() AS BOOLEAN
  24. DECLARE SUB CreateText(InText AS STRING, InFontName AS STRING, InPointSize AS INTEGER, \\
  25.                        InStrikeout AS BOOLEAN, InUnderline AS BOOLEAN, \\
  26.                        InBold AS BOOLEAN, InItalic AS BOOLEAN)
  27. DECLARE SUB ApplyEffect(InApplyCenterColor AS BOOLEAN, \\
  28.                     InRed AS INTEGER, InGreen AS INTEGER, InBlue AS INTEGER, \\
  29.                     InWidth AS INTEGER)
  30.  
  31. DECLARE FUNCTION CreateDC LIB "gdi32" (BYVAL lpDriverName AS STRING, \\
  32.                                        BYVAL lpDeviceName AS LONG, \\
  33.                                        BYVAL lpOutput AS LONG, \\
  34.                                        BYVAL lpInitData AS LONG) AS LONG ALIAS "CreateDCA"
  35. DECLARE FUNCTION GetDeviceCaps LIB "gdi32" (BYVAL hDC AS LONG, \\
  36.                                             BYVAL nIndex AS LONG) AS LONG ALIAS "GetDeviceCaps"
  37. DECLARE FUNCTION DeleteDC LIB "gdi32" (BYVAL hDC AS LONG) AS LONG ALIAS "DeleteDC"
  38. DECLARE FUNCTION GetNumberOfDisplayColors( ) AS LONG
  39.  
  40. '/////GLOBAL VARIABLES & CONSTANTS///////////////////////////////////
  41. GLOBAL CONST TITLE_ERRORBOX$      = "Neon Effect Wizard Error"
  42. GLOBAL CONST TITLE_INFOBOX$       = "Neon Effect Wizard Information"
  43. GLOBAL NL AS STRING         ' These must be declared as 
  44. GLOBAL NL2 AS STRING     ' variables, not constants, because
  45. NL$ = CHR(10) + CHR(13)    ' we cannot assign expressions
  46. NL2$ = NL + NL             ' to constants.
  47.  
  48. 'Constants for Dialog Return Values
  49. GLOBAL CONST DIALOG_RETURN_OK%     = 1
  50. GLOBAL CONST DIALOG_RETURN_CANCEL% = 2
  51. GLOBAL CONST DIALOG_RETURN_NEXT% = 3
  52. GLOBAL CONST DIALOG_RETURN_BACK% = 4
  53.  
  54. ' The bitmap graphic names.
  55. GLOBAL CONST BITMAP_PARAMSDIALOG_ORIGINAL$ = "\NeonOrig.bmp"
  56. GLOBAL CONST BITMAP_PARAMSDIALOG_BLUE$     = "\NeonBlue.bmp"
  57. GLOBAL CONST BITMAP_PARAMSDIALOG_BLACK$    = "\NeonBlak.bmp"
  58. GLOBAL BITMAP_INTRODIALOG AS STRING
  59. GLOBAL BITMAP_COLORDIALOG AS STRING
  60. GLOBAL BITMAP_WIDTHDIALOG AS STRING
  61. GLOBAL BITMAP_TEXTDIALOG AS STRING
  62. GLOBAL BITMAP_PARAMSDIALOG AS STRING
  63. DIM NumColors AS LONG
  64. NumColors& = GetNumberOfDisplayColors()
  65. IF NumColors& <= 256 THEN
  66.     BITMAP_INTRODIALOG$ = "\NeonB16.bmp"
  67.     BITMAP_COLORDIALOG$ = "\NeonB16.bmp"
  68.     BITMAP_WIDTHDIALOG$ = "\NeonB16.bmp"
  69.     BITMAP_TEXTDIALOG$ = "\NeonB16.bmp"
  70.     BITMAP_PARAMSDIALOG$ = "\NeonB16.bmp"
  71. ELSE
  72.     BITMAP_INTRODIALOG$ = "\NeonB.bmp"
  73.     BITMAP_COLORDIALOG$ = "\NeonB.bmp"
  74.     BITMAP_WIDTHDIALOG$ = "\NeonB.bmp"
  75.     BITMAP_TEXTDIALOG$ = "\NeonB.bmp"
  76.     BITMAP_PARAMSDIALOG$ = "\NeonB.bmp"
  77. ENDIF
  78.  
  79. ' The current directory when the script starts.
  80. GLOBAL CurDir AS STRING
  81.  
  82. ' The previous wizard page's position.
  83. GLOBAL LastPageX AS LONG
  84. GLOBAL LastPageY AS LONG
  85. LastPageX& = -1
  86. LastPageY& = -1
  87.  
  88. '/////INTRODUCTORY DIALOG//////////////////////////////////////////////
  89.  
  90. BEGIN DIALOG OBJECT IntroDialog 290, 180, "Neon Effect Wizard", SUB IntroDialogEventHandler
  91.     PUSHBUTTON  181, 160, 46, 14, .NextButton, "&Next >"
  92.     PUSHBUTTON  135, 160, 46, 14, .BackButton, "< &Back"
  93.     CANCELBUTTON  234, 160, 46, 14, .CancelButton
  94.     TEXT  93, 10, 181, 20, .Text1, "Welcome to the Corel Neon Effect Wizard."
  95.     TEXT  94, 54, 189, 36, .Text2, "If you selected an object in CorelDRAW prior to running this wizard, the neon effect will be applied to that object.  Otherwise, you will be prompted to enter the text you want to generate with a neon look."
  96.     TEXT  93, 96, 187, 18, .Text3, "To begin creating your effect, click Next."
  97.     IMAGE  10, 10, 75, 130, .IntroImage
  98.     GROUPBOX  10, 150, 270, 5, .LineGroupBox
  99.     TEXT  93, 28, 189, 21, .Text4, "This wizard will guide you through the steps necessary to create an eye-catching neon effect."
  100. END DIALOG
  101.  
  102. SUB IntroDialogEventHandler(BYVAL ControlID%, BYVAL Event%)
  103.     IF Event% = EVENT_INITIALIZATION THEN         
  104.         IntroDialog.BackButton.Enable FALSE 
  105.     ENDIF
  106.     IF Event% = EVENT_MOUSE_CLICK THEN     ' Mouse click event.
  107.         SELECT CASE ControlID%
  108.             CASE IntroDialog.NextButton.GetID()
  109.                 LastPageX& = IntroDialog.GetLeftPosition()
  110.                 LastPageY& = IntroDialog.GetTopPosition()
  111.                 IntroDialog.CloseDialog DIALOG_RETURN_NEXT%
  112.             CASE IntroDialog.CancelButton.GetID()
  113.                 IntroDialog.CloseDialog DIALOG_RETURN_CANCEL%
  114.         END SELECT
  115.     ENDIF
  116.  
  117. END FUNCTION
  118.  
  119. '/////TEXT ENTRY DIALOG//////////////////////////////////////////////
  120. ' The text defaults.
  121. GLOBAL CONST NS_DEFAULT_TEXT_SIZE% = 24
  122. GLOBAL CONST NS_DEFAULT_TEXT_FONT$ = "Arial"
  123. GLOBAL CONST NS_DEFAULT_TEXT_STYLE$ = "Regular"
  124.  
  125. ' Variables needed for the dialog.
  126. GLOBAL EffectText AS STRING    ' The text entered by the user.
  127. GLOBAL FontName AS STRING    ' The selected font name.
  128. GLOBAL PointSize AS INTEGER    ' The selected font size.
  129. GLOBAL Red AS INTEGER        ' The selected font's red component.
  130. GLOBAL Green AS INTEGER        ' The selected font's green component.
  131. GLOBAL Blue AS INTEGER        ' The selected font's blue component.
  132. GLOBAL Weight AS INTEGER        ' The selected font's weight.
  133. GLOBAL StrikeOut AS BOOLEAN    ' The selected font's strikeout setting.
  134. GLOBAL Underline AS BOOLEAN    ' The selected font's underline setting.
  135. GLOBAL Bold AS BOOLEAN        ' The selected font's bold setting.
  136. GLOBAL Italic AS BOOLEAN        ' The selected font's italic setting.
  137.  
  138. ' Set up defaults.
  139. EffectText$ = ""
  140. FontName$ = NS_DEFAULT_TEXT_FONT$
  141. PointSize% = NS_DEFAULT_TEXT_SIZE%
  142. Red% = 0
  143. Green% = 0
  144. Blue% = 255
  145. Weight% = FONT_NORMAL&
  146. Strikeout = FALSE
  147. Underline = FALSE
  148. Bold = FALSE
  149. Italic = FALSE
  150.  
  151. BEGIN DIALOG OBJECT GetTextDialog 290, 180, "Neon Effect Wizard", SUB GetTextDialogEventHandler
  152.     PUSHBUTTON  181, 160, 46, 14, .NextButton, "&Next >"
  153.     PUSHBUTTON  135, 160, 46, 14, .BackButton, "< &Back"
  154.     CANCELBUTTON  234, 160, 46, 14, .CancelButton
  155.     TEXT  94, 10, 181, 20, .Text1, "Please enter the text you wish to appear in neon, then press the Choose Font button to select a font and color:"
  156.     IMAGE  10, 10, 75, 130, .GetTextImage
  157.     GROUPBOX  10, 150, 270, 5, .LineGroupBox
  158.     PUSHBUTTON  223, 33, 56, 14, .FontButton, "Choose Font"
  159.     TEXTBOX  95, 33, 123, 14, .EffectTextBox
  160.     TEXT  113, 80, 166, 20, .Text3, "To do this, press Cancel, then select an object in CorelDRAW and run this wizard again."
  161.     TEXT  95, 56, 13, 11, .Text2, "Tip:"
  162.     TEXT  113, 57, 166, 19, .Text4, "You can apply this wizard to an object that already exists in your drawing, instead of to new text."
  163. END DIALOG
  164.  
  165. SUB GetTextDialogEventHandler(BYVAL ControlID%, BYVAL Event%)
  166.  
  167.     DIM FontReturn AS INTEGER    ' The return value of the font dialog.
  168.  
  169.     SELECT CASE Event%
  170.         CASE EVENT_INITIALIZATION&
  171.             GetTextDialog.EffectTextBox.SetText EffectText$
  172.  
  173.         CASE EVENT_MOUSE_CLICK&
  174.             SELECT CASE ControlID%
  175.                 CASE GetTextDialog.BackButton.GetID()
  176.                     LastPageX& = GetTextDialog.GetLeftPosition()
  177.                     LastPageY& = GetTextDialog.GetTopPosition()                
  178.                     EffectText$ = GetTextDialog.EffectTextBox.GetText()
  179.                     GetTextDialog.CloseDialog DIALOG_RETURN_BACK%
  180.                 CASE GetTextDialog.NextButton.GetID()
  181.                     LastPageX& = GetTextDialog.GetLeftPosition()
  182.                     LastPageY& = GetTextDialog.GetTopPosition()                
  183.                     EffectText$ = GetTextDialog.EffectTextBox.GetText()
  184.                     IF ValidateInput(EffectText$) THEN
  185.                         GetTextDialog.CloseDialog DIALOG_RETURN_NEXT%
  186.                     ENDIF
  187.                 CASE GetTextDialog.CancelButton.GetID()
  188.                     GetTextDialog.CloseDialog DIALOG_RETURN_CANCEL%
  189.                 CASE GetTextDialog.FontButton.GetID()
  190.     
  191.                     ' Display the font dialog box.
  192.                     FontReturn% = GetFont(FontName$,                 \\
  193.                                       PointSize%,                 \\
  194.                                       Weight%,                 \\
  195.                                       Italic,                 \\
  196.                                       Underline,                 \\
  197.                                       Strikeout,                 \\
  198.                                       Red%,                     \\
  199.                                       Green%,                     \\
  200.                                       Blue%) 
  201.                     IF NOT FontReturn% THEN
  202.                         ' The user pressed cancel.  We should not have
  203.                         ' to restore the defaults, but if GetFont
  204.                         ' empties FontName and Style, we must.
  205.                         IF (LEN(FontName$) = 0) THEN
  206.                             FontName$ = NS_DEFAULT_TEXT_FONT$
  207.                         ENDIF
  208.                         IF (PointSize% = 0) THEN
  209.                             PointSize% = NS_DEFAULT_TEXT_SIZE%
  210.                         ENDIF
  211.                     ENDIF
  212.                     ' Convert the weight value to either bold or non-bold.
  213.                     IF (Weight% > FONT_NORMAL&) THEN
  214.                         Bold = TRUE
  215.                     ELSE
  216.                         Bold = FALSE
  217.                     ENDIF
  218.                     
  219.         END SELECT
  220.     END SELECT
  221.  
  222. END FUNCTION
  223.  
  224. '/////EFFECTS PARAMETERS DIALOG//////////////////////////////////////
  225.  
  226. ' Variables needed for the dialog.
  227. GLOBAL ApplyCenterColor AS BOOLEAN    ' Whether to apply color to the
  228.                             ' center of the selection.
  229.  
  230. ' Set up defaults.
  231. ApplyCenterColor = TRUE
  232.  
  233. BEGIN DIALOG OBJECT GetParamsDialog 290, 180, "Neon Effect Wizard", SUB GetParamsDialogEventHandler
  234.     PUSHBUTTON  181, 160, 46, 14, .NextButton, "&Next >"
  235.     PUSHBUTTON  135, 160, 46, 14, .BackButton, "< &Back"
  236.     CANCELBUTTON  234, 160, 46, 14, .CancelButton
  237.     TEXT  96, 10, 181, 31, .Text1, "You can customize the neon effect by choosing whether it should be applied to just the outline or to the entire object."
  238.     IMAGE  10, 10, 75, 130, .GetParamsImage
  239.     GROUPBOX  10, 150, 270, 5, .LineGroupBox
  240.     GROUPBOX  96, 77, 182, 63, .GroupBox2, "Apply neon effect to what?"
  241.     OPTIONGROUP .OptionGroup1
  242.         OPTIONBUTTON  196, 91, 67, 11, .OptionButtonEntire, "The entire object"
  243.         OPTIONBUTTON  113, 91, 67, 11, .OptionButtonOutline, "Just the outline"
  244.     IMAGE  107, 105, 75, 26, .ImageBlack
  245.     IMAGE  192, 105, 75, 26, .ImageBlue
  246.     IMAGE  136, 42, 75, 26, .ImageOrig
  247.     TEXT  97, 42, 35, 10, .Text2, "Example:"
  248. END DIALOG
  249.  
  250. SUB GetParamsDialogEventHandler(BYVAL ControlID%, BYVAL Event%)
  251.  
  252.     SELECT CASE Event%
  253.         CASE EVENT_INITIALIZATION&
  254.             IF ApplyCenterColor THEN
  255.                 GetParamsDialog.OptionButtonEntire.SetValue TRUE
  256.             ELSE
  257.                 GetParamsDialog.OptionButtonOutline.SetValue TRUE
  258.             ENDIF
  259.  
  260.         CASE EVENT_MOUSE_CLICK&
  261.             SELECT CASE ControlID%
  262.                 CASE GetParamsDialog.BackButton.GetID()
  263.                     LastPageX& = GetParamsDialog.GetLeftPosition()
  264.                     LastPageY& = GetParamsDialog.GetTopPosition()                
  265.                     IF GetParamsDialog.OptionButtonEntire.GetValue() = 1 THEN
  266.                         ApplyCenterColor = TRUE
  267.                     ELSE
  268.                         ApplyCenterColor = FALSE
  269.                     ENDIF
  270.                     GetParamsDialog.CloseDialog DIALOG_RETURN_BACK%
  271.  
  272.                 CASE GetParamsDialog.NextButton.GetID()
  273.                     LastPageX& = GetParamsDialog.GetLeftPosition()
  274.                     LastPageY& = GetParamsDialog.GetTopPosition()                
  275.                     IF GetParamsDialog.OptionButtonEntire.GetValue() = 1 THEN
  276.                         ApplyCenterColor = TRUE
  277.                     ELSE
  278.                         ApplyCenterColor = FALSE
  279.                     ENDIF
  280.                     GetParamsDialog.CloseDialog DIALOG_RETURN_NEXT%
  281.  
  282.                 CASE GetParamsDialog.CancelButton.GetID()
  283.                     STOP
  284.     
  285.         END SELECT
  286.     END SELECT
  287.  
  288. END SUB
  289.  
  290. '/////WIDTH SELECTION DIALOG/////////////////////////////////////////
  291.  
  292. ' Variables needed for the dialog.
  293. GLOBAL Width AS INTEGER    ' The width of the requested neon effect.
  294.  
  295. ' Set up defaults.
  296. Width% = 50
  297.  
  298. BEGIN DIALOG OBJECT GetWidthDialog 290, 180, "Neon Effect Wizard", SUB GetWidthDialogEventHandler
  299.     PUSHBUTTON  181, 160, 46, 14, .NextButton, "&Finish"
  300.     PUSHBUTTON  135, 160, 46, 14, .BackButton, "< &Back"
  301.     CANCELBUTTON  234, 160, 46, 14, .CancelButton
  302.     TEXT  94, 9, 181, 23, .Text1, "You can use the slider below to adjust how wide your neon effect will be."
  303.     IMAGE  10, 10, 75, 130, .GetWidthImage
  304.     GROUPBOX  10, 150, 270, 5, .LineGroupBox
  305.     TEXT  113, 72, 166, 12, .Text3, "In most cases, the default will give you a nice effect."
  306.     TEXT  95, 72, 13, 11, .Text2, "Tip:"
  307.     HSLIDER 108, 31, 151, 16, .WidthSlider
  308.     TEXT  236, 49, 34, 11, .Text4, "Very Wide"
  309.     TEXT  104, 49, 25, 11, .Text5, "Narrow"
  310. END DIALOG
  311.  
  312. SUB GetWidthDialogEventHandler(BYVAL ControlID%, BYVAL Event%)
  313.  
  314.     SELECT CASE Event%
  315.         CASE EVENT_INITIALIZATION&
  316.             GetWidthDialog.WidthSlider.SetMinRange 5
  317.             GetWidthDialog.WidthSlider.SetMaxRange 100
  318.             GetWidthDialog.WidthSlider.SetIncrement 1
  319.             GetWidthDialog.WidthSlider.SetValue Width%
  320.  
  321.         CASE EVENT_MOUSE_CLICK&
  322.             SELECT CASE ControlID%
  323.                 CASE GetWidthDialog.BackButton.GetID()
  324.                     LastPageX& = GetWidthDialog.GetLeftPosition()
  325.                     LastPageY& = GetWidthDialog.GetTopPosition()                
  326.                     GetWidthDialog.CloseDialog DIALOG_RETURN_BACK%
  327.                 CASE GetWidthDialog.NextButton.GetID()
  328.                     LastPageX& = GetWidthDialog.GetLeftPosition()
  329.                     LastPageY& = GetWidthDialog.GetTopPosition()                
  330.                     GetWidthDialog.CloseDialog DIALOG_RETURN_NEXT%
  331.                 CASE GetWidthDialog.CancelButton.GetID()
  332.                     GetWidthDialog.CloseDialog DIALOG_RETURN_CANCEL%
  333.                 CASE GetWidthDialog.WidthSlider.GetID()
  334.                     Width% = GetWidthDialog.WidthSlider.GetValue()
  335.         END SELECT
  336.     END SELECT
  337.  
  338. END FUNCTION
  339.  
  340. '/////COLOR SELECTION DIALOG/////////////////////////////////////////
  341.  
  342. BEGIN DIALOG OBJECT GetColorDialog 290, 180, "Neon Effect Wizard", SUB GetColorDialogEventHandler
  343.     PUSHBUTTON  181, 160, 46, 14, .NextButton, "&Next >"
  344.     PUSHBUTTON  135, 160, 46, 14, .BackButton, "< &Back"
  345.     CANCELBUTTON  234, 160, 46, 14, .CancelButton
  346.     TEXT  94, 9, 181, 23, .Text1, "Your neon effect will be applied to the currently selected object in CorelDRAW."
  347.     IMAGE  10, 10, 75, 130, .GetColorImage
  348.     GROUPBOX  10, 150, 270, 5, .LineGroupBox
  349.     PUSHBUTTON  154, 54, 56, 14, .ColorButton, "Choose Color"
  350.     TEXT  113, 85, 166, 28, .Text3, "If you do not want to apply the neon effect to the object you have selected in CorelDRAW, you can apply it to new text of your choice."
  351.     TEXT  95, 85, 13, 11, .Text2, "Tip:"
  352.     TEXT  113, 120, 166, 20, .Text4, "To do this, press Cancel, deselect the current object in CorelDRAW, then run this wizard again."
  353.     TEXT  94, 32, 181, 19, .Text5, "You can select the color you want for your neon effect by pressing the Choose Color button below."
  354. END DIALOG
  355.  
  356. SUB GetColorDialogEventHandler(BYVAL ControlID%, BYVAL Event%)
  357.  
  358.     SELECT CASE Event%
  359.         CASE EVENT_MOUSE_CLICK&
  360.             SELECT CASE ControlID%
  361.                 CASE GetColorDialog.BackButton.GetID()
  362.                     LastPageX& = GetColorDialog.GetLeftPosition()
  363.                     LastPageY& = GetColorDialog.GetTopPosition()                
  364.                     GetColorDialog.CloseDialog DIALOG_RETURN_BACK%
  365.                 CASE GetColorDialog.NextButton.GetID()
  366.                     LastPageX& = GetColorDialog.GetLeftPosition()
  367.                     LastPageY& = GetColorDialog.GetTopPosition()                
  368.                     GetColorDialog.CloseDialog DIALOG_RETURN_NEXT%
  369.                 CASE GetColorDialog.CancelButton.GetID()
  370.                     GetColorDialog.CloseDialog DIALOG_RETURN_CANCEL%
  371.                 CASE GetColorDialog.ColorButton.GetID()
  372.                     GetColor Red%, Green%, Blue%
  373.         END SELECT
  374.     END SELECT
  375.  
  376. END FUNCTION
  377.  
  378. '********************************************************************
  379. ' MAIN
  380. '
  381. '
  382. '********************************************************************
  383.  
  384. '/////LOCAL VARIABLES////////////////////////////////////////////////
  385. DIM MessageText AS STRING    ' Text to use in a MESSAGEBOX.
  386. DIM GenReturn AS INTEGER        ' The return value of various routines.
  387. DIM Selection AS BOOLEAN        ' Whether any object is selected in draw.
  388. DIM Valid AS BOOLEAN        ' Whether the user's input was valid.
  389. DIM CurStep AS INTEGER        ' The user's current dialog number.
  390. DIM FirstTime AS BOOLEAN        ' Is this the user's first time through?
  391.  
  392. ' Retrieve the directory where the script was started.
  393. CurDir$ = GETCURRFOLDER()
  394. IF MID(CurDir$, LEN(CurDir$), 1) = "\" THEN
  395.     CurDir$ = LEFT(CurDir$, LEN(CurDir$) - 1)
  396. ENDIF
  397.  
  398. ' Check to see if CorelDRAW's automation object is available.
  399. ON ERROR RESUME NEXT
  400. WITHOBJECT OBJECT_DRAW
  401.     IF (ERRNUM > 0) THEN
  402.         ' Failed to create the automation object.
  403.         ERRNUM = 0
  404.         GenReturn% = MESSAGEBOX( "Could not find CorelDRAW."+NL2+\\
  405.                              "If this error persists, you "+ \\
  406.                              "may need to re-install "+      \\
  407.                              "CorelDRAW.",                 \\
  408.                                 TITLE_ERRORBOX,             \\
  409.                              MB_OK_ONLY )
  410.         STOP
  411.     ENDIF
  412.  
  413. ' Set up a general error handler.
  414. ON ERROR GOTO MainErrorHandler
  415.  
  416. CONST NS_FINISH%         = 0
  417. CONST NS_INTRODIALOG%     = 1
  418. CONST NS_GETTEXTDIALOG%   = 2
  419. CONST NS_GETPARAMSDIALOG% = 3
  420. CONST NS_GETCOLORDIALOG%  = 4
  421. CONST NS_GETWIDTHDIALOG%  = 5
  422.  
  423. ' Loop, displaying dialogs in the required order.
  424. CurStep% = NS_INTRODIALOG%
  425. FirstTime = TRUE
  426. WHILE (CurStep% <> NS_FINISH%)
  427.  
  428.     SELECT CASE CurStep%
  429.         CASE NS_INTRODIALOG
  430.             IF (LastPageX& <> -1) THEN
  431.                 IntroDialog.Move LastPageX&, LastPageY&
  432.             ENDIF        
  433.             IntroDialog.IntroImage.SetImage CurDir$ + BITMAP_INTRODIALOG$
  434.             IntroDialog.IntroImage.SetStyle STYLE_SUNKEN
  435.             IntroDialog.IntroImage.SetStyle STYLE_IMAGE_CENTERED
  436.             IntroDialog.SetStyle STYLE_NOMINIMIZEBOX
  437.             GenReturn% = DIALOG(IntroDialog)
  438.             SELECT CASE GenReturn%
  439.                 CASE DIALOG_RETURN_NEXT%
  440.                     IF FirstTime THEN
  441.                         ' Check whether anything is selected.
  442.                         Selection = CheckForSelection() 
  443.                     ENDIF
  444.                     IF Selection AND FirstTime THEN
  445.                     
  446.                         IF NOT CheckSelectedForBlend() THEN
  447.                     
  448.                             GenReturn = MESSAGEBOX( "Cannot add a neon effect to the "+\\
  449.                                                 "currently selected object(s)."+NL2+\\
  450.                                                 "This wizard only supports those "+\\
  451.                                                 "objects which are supported by " +\\
  452.                                                 "the Blend tool.  For example, "  +\\
  453.                                                 "blocks of paragraph "            +\\
  454.                                                 "text, bitmaps, OLE objects, and "+\\
  455.                                                 "groups containing such objects " +\\
  456.                                                 "are not supported.  Artistic "   +\\
  457.                                                 "text, however, is supported."+NL2+\\
  458.                                                 "If you have selected several "+   \\
  459.                                                 "objects, you should group them "+ \\
  460.                                                  "before running this wizard.",     \\
  461.                                                 TITLE_ERRORBOX,                    \\
  462.                                                 MB_OK_ONLY )
  463.                             STOP        
  464.                     
  465.                         ENDIF
  466.                         CurStep% = NS_GETCOLORDIALOG%
  467.                     
  468.                     ELSEIF Selection THEN
  469.                         CurStep% = NS_GETCOLORDIALOG%
  470.  
  471.                     ELSE 
  472.                         CurStep% = NS_GETTEXTDIALOG%
  473.                     ENDIF
  474.                     
  475.                 CASE ELSE
  476.                     STOP
  477.             END SELECT
  478.  
  479.         CASE NS_GETTEXTDIALOG%
  480.             GetTextDialog.Move LastPageX&, LastPageY&
  481.             FirstTime = FALSE
  482.             GetTextDialog.GetTextImage.SetImage CurDir$ + BITMAP_TEXTDIALOG$
  483.             GetTextDialog.GetTextImage.SetStyle STYLE_SUNKEN
  484.             GetTextDialog.GetTextImage.SetStyle STYLE_IMAGE_CENTERED
  485.             GetTextDialog.SetStyle STYLE_NOMINIMIZEBOX
  486.             GenReturn% = DIALOG(GetTextDialog)
  487.             SELECT CASE GenReturn%
  488.  
  489.                 CASE DIALOG_RETURN_NEXT%
  490.                     CurStep% = NS_GETPARAMSDIALOG%                    
  491.                 CASE DIALOG_RETURN_BACK%
  492.                     CurStep% = NS_INTRODIALOG%
  493.                 CASE ELSE
  494.                     STOP
  495.  
  496.             END SELECT
  497.  
  498.         CASE NS_GETPARAMSDIALOG%
  499.             GetParamsDialog.Move LastPageX&, LastPageY&
  500.             GetParamsDialog.GetParamsImage.SetImage CurDir$ + BITMAP_PARAMSDIALOG$
  501.             GetParamsDialog.ImageBlack.SetImage CurDir$ + BITMAP_PARAMSDIALOG_BLACK
  502.             GetParamsDialog.ImageOrig.SetImage CurDir$ + BITMAP_PARAMSDIALOG_ORIGINAL
  503.             GetParamsDialog.ImageBlue.SetImage CurDir$ + BITMAP_PARAMSDIALOG_BLUE
  504.             GetParamsDialog.GetParamsImage.SetStyle STYLE_SUNKEN
  505.             GetParamsDialog.GetParamsImage.SetStyle STYLE_IMAGE_CENTERED
  506.             GetParamsDialog.ImageBlack.SetStyle STYLE_IMAGE_CENTERED
  507.             GetParamsDialog.ImageBlack.SetStyle STYLE_SUNKEN
  508.             GetParamsDialog.ImageOrig.SetStyle STYLE_IMAGE_CENTERED
  509.             GetParamsDialog.ImageOrig.SetStyle STYLE_SUNKEN
  510.             GetParamsDialog.ImageBlue.SetStyle STYLE_IMAGE_CENTERED
  511.             GetParamsDialog.ImageBlue.SetStyle STYLE_SUNKEN
  512.             GetParamsDialog.SetStyle STYLE_NOMINIMIZEBOX
  513.             GenReturn% = DIALOG(GetParamsDialog)
  514.             SELECT CASE GenReturn%
  515.  
  516.                 CASE DIALOG_RETURN_NEXT%
  517.                     CurStep% = NS_GETWIDTHDIALOG%                    
  518.                 CASE DIALOG_RETURN_BACK%
  519.                     IF Selection THEN
  520.                         CurStep% = NS_GETCOLORDIALOG%
  521.                     ELSE
  522.                         CurStep% = NS_GETTEXTDIALOG%
  523.                     ENDIF
  524.                 CASE ELSE
  525.                     STOP
  526.  
  527.             END SELECT
  528.  
  529.         CASE NS_GETCOLORDIALOG%
  530.             GetColorDialog.Move LastPageX&, LastPageY&
  531.             FirstTime = FALSE
  532.             GetColorDialog.GetColorImage.SetImage CurDir$ + BITMAP_COLORDIALOG$
  533.             GetColorDialog.GetColorImage.SetStyle STYLE_SUNKEN
  534.             GetColorDialog.GetColorImage.SetStyle STYLE_IMAGE_CENTERED
  535.             GetColorDialog.SetStyle STYLE_NOMINIMIZEBOX
  536.             GenReturn% = DIALOG(GetColorDialog)
  537.             SELECT CASE GenReturn%
  538.  
  539.                 CASE DIALOG_RETURN_NEXT%
  540.                     CurStep% = NS_GETPARAMSDIALOG%                
  541.                 CASE DIALOG_RETURN_BACK%
  542.                     CurStep% = NS_INTRODIALOG%
  543.                 CASE ELSE
  544.                     STOP
  545.  
  546.             END SELECT
  547.         
  548.         CASE NS_GETWIDTHDIALOG%
  549.             GetWidthDialog.Move LastPageX&, LastPageY&            
  550.             GetWidthDialog.GetWidthImage.SetImage CurDir$ + BITMAP_WIDTHDIALOG$
  551.             GetWidthDialog.GetWidthImage.SetStyle STYLE_SUNKEN
  552.             GetWidthDialog.GetWidthImage.SetStyle STYLE_IMAGE_CENTERED
  553.             GetWidthDialog.SetStyle STYLE_NOMINIMIZEBOX
  554.             GenReturn% = DIALOG(GetWidthDialog)
  555.             SELECT CASE GenReturn%
  556.  
  557.                 CASE DIALOG_RETURN_NEXT%
  558.                     CurStep% = NS_FINISH%                
  559.                 CASE DIALOG_RETURN_BACK%
  560.                     CurStep% = NS_GETPARAMSDIALOG%
  561.                 CASE ELSE
  562.                     STOP
  563.  
  564.             END SELECT
  565.     
  566.     END SELECT
  567.  
  568. WEND
  569.  
  570. ' Create the user's text, if needed.
  571. IF NOT Selection THEN
  572.     CreateText EffectText$, FontName$, PointSize%, Strikeout, Underline, Bold, Italic
  573. ENDIF
  574.  
  575. ' Finish off script execution by applying the neon effect.
  576. ApplyEffect ApplyCenterColor, Red%, Green%, Blue%, Width%
  577. STOP
  578.  
  579. MainErrorHandler:
  580.     MessageText$ = "A general error occurred during the "
  581.     MessageText$ = MessageText$ + "wizard's processing." + NL2
  582.     MessageText$ = MessageText$ + "You may wish to try again."
  583.     GenReturn% = MESSAGEBOX(MessageText$, TITLE_ERRORBOX$, \\
  584.                             MB_OK_ONLY& OR MB_EXCLAMATION_ICON&)
  585.     STOP
  586.  
  587. '********************************************************************
  588. '
  589. '    Name:    CheckForSelection (function)
  590. '
  591. '    Action:    Checks whether an object is currently selected
  592. '            in CorelDRAW.
  593. '
  594. '    Params:    None.
  595. '
  596. '    Returns:    TRUE if an object is currently selected;  FALSE
  597. '              otherwise.
  598. '
  599. '    Comments:    Never raises any errors. 
  600. '
  601. '********************************************************************
  602. FUNCTION CheckForSelection AS BOOLEAN
  603.  
  604.     DIM ObjType AS LONG     ' The currently selected object type.
  605.  
  606.     ON ERROR RESUME NEXT
  607.     
  608.     ObjType& = .GetObjectType()
  609.     IF (ObjType& <= DRAW_OBJECT_TYPE_RESERVED) OR (ERRNUM > 0) THEN
  610.         ERRNUM = 0
  611.         CheckForSelection = FALSE
  612.     ELSE
  613.         CheckForSelection = TRUE
  614.     ENDIF
  615.  
  616. END FUNCTION
  617.  
  618. '********************************************************************
  619. '
  620. '    Name:    CheckSelectedForBlend (function)
  621. '
  622. '    Action:    Checks whether the currently selected object in
  623. '              CorelDRAW can have a blend operation applied to it.
  624. '
  625. '    Params:    None.
  626. '
  627. '    Returns:    FALSE if no object is selected in CorelDRAW.  If an
  628. '              object is selected, returns TRUE if it can have a
  629. '              blend applied to it and FALSE otherwise.
  630. '
  631. '    Comments:    None.
  632. '
  633. '********************************************************************
  634. FUNCTION CheckSelectedForBlend AS BOOLEAN
  635.  
  636.     DIM ReturnVal AS BOOLEAN    ' The return value of this function.
  637.  
  638.     ' Make sure an object was selected.
  639.     IF NOT CheckForSelection() THEN
  640.         CheckSelectedForBlend = False
  641.         EXIT FUNCTION
  642.     ENDIF
  643.  
  644.     ' Prepare for a blend by making a duplicate of the
  645.     ' selected object.
  646.     .StartOfRecording 
  647.     .SuppressPainting FALSE
  648.     .RecorderStorePreselectedObjects FALSE
  649.     .RecorderSelectObjectByIndex TRUE, 1
  650.     .DuplicateObject 
  651.     .RecorderSelectObjectByIndex TRUE, 2
  652.     
  653.     ' Try to apply a simple blend.  If this fails, then the
  654.     ' object is not blendable.
  655.     ON ERROR GOTO ErrorInBlending
  656.     ReturnVal = TRUE
  657.     .RecorderSelectObjectsByIndex TRUE, 1, 2, -1, -1, -1
  658.     .ApplyBlend TRUE, 1, 0, FALSE, 0, FALSE, FALSE, 0, 0, 0, TRUE, TRUE, FALSE, FALSE, 0, 0, 0, 0
  659.     .Undo
  660.     .Undo
  661.     .ResumePainting 
  662.     .EndOfRecording 
  663.     CheckSelectedForBlend = ReturnVal
  664.     EXIT FUNCTION
  665.  
  666.     ErrorInBlending:
  667.         ERRNUM = 0
  668.         ReturnVal = FALSE
  669.         RESUME NEXT
  670.  
  671. END FUNCTION
  672.  
  673. '********************************************************************
  674. '
  675. '    Name:    ValidateInput (function)
  676. '
  677. '    Action:    Makes sure the user entered some text.
  678. '
  679. '    Params:    EffectText
  680. '
  681. '    Returns:    TRUE if EffectText is empty, FALSE otherwise.
  682. '
  683. '    Comments:    None.
  684. '
  685. '********************************************************************
  686. FUNCTION ValidateInput(InText AS STRING) AS BOOLEAN
  687.  
  688.     DIM ReturnVal% AS INTEGER    ' The return value of MESSAGEBOX.
  689.  
  690.     IF (LEN(InText$) <= 0) THEN
  691.         ReturnVal% = MESSAGEBOX("You must enter some text or "+\\
  692.                             "press Cancel.", TITLE_ERRORBOX$,    \\
  693.                                   MB_OK_ONLY)    
  694.         ValidateInput = FALSE
  695.     ELSE
  696.         ValidateInput = TRUE
  697.     ENDIF
  698.  
  699. END FUNCTION
  700.  
  701. '********************************************************************
  702. '
  703. '    Name:    CreateText (subroutine)
  704. '
  705. '    Action:    Creates a text string in CorelDRAW with a set of given
  706. '              parameters related to font, color, etc.
  707. '
  708. '    Params:    InText - The text to create.
  709. '            InFontName - The font to use.
  710. '            InPointSize - The font's point size.
  711. '            InStrikeout - Use strikeout?
  712. '            InUnderline - Use underline?
  713. '            InBold      - Use bold?
  714. '            InItalic    - Use italic?
  715. '
  716. '    Returns:    None.
  717. '
  718. '    Comments:    None.
  719. '
  720. '********************************************************************
  721. SUB CreateText(InText AS STRING, InFontName AS STRING, InPointSize AS INTEGER, \\
  722.                        InStrikeout AS BOOLEAN, InUnderline AS BOOLEAN, \\
  723.                        InBold AS BOOLEAN, InItalic AS BOOLEAN)
  724.  
  725.     DIM DrawStyleCode AS INTEGER ' The font style to send to DRAW.
  726.     DIM DrawPointSize AS INTEGER ' The font size to send to DRAW.
  727.     DIM DrawUnderline AS INTEGER ' The underline code to send to DRAW.
  728.     DIM DrawStrikeout AS INTEGER ' The strikeout code to send to DRAW.
  729.  
  730.     ' Create the user's text.
  731.     .CreateArtisticText InText$, 0, 0
  732.  
  733.     ' Determine the settings to send to DRAW.
  734.     IF InBold AND InItalic THEN
  735.         DrawStyleCode% = DRAW_FONT_STYLE_BOLD_ITALIC%
  736.     ELSEIF Bold THEN
  737.         DrawStyleCode% = DRAW_FONT_STYLE_BOLD%
  738.     ELSEIF Italic THEN
  739.         DrawStyleCode% = DRAW_FONT_STYLE_NORMAL_ITALIC%
  740.     ELSE
  741.         DrawStyleCode% = DRAW_FONT_STYLE_NORMAL%
  742.     ENDIF 
  743.     DrawPointSize% = InPointSize% * 10
  744.     IF InUnderline THEN
  745.         DrawUnderline% = DRAW_FONT_UNDERLINE_SINGLE_THICK%
  746.     ELSE
  747.         DrawUnderline% = DRAW_FONT_UNDERLINE_NONE%
  748.     ENDIF
  749.     IF InStrikeout THEN
  750.         DrawStrikeout% = DRAW_FONT_STRIKEOUT_SINGLE_THICK%
  751.     ELSE
  752.         DrawStrikeout% = DRAW_FONT_STRIKEOUT_NONE%
  753.     ENDIF
  754.  
  755.     ' Apply the formatting.
  756.     .SetCharacterAttributes 0, \\
  757.                         30000, \\
  758.                         InFontName$, \\
  759.                         DrawStyleCode%, \\
  760.                         DrawPointSize%, \\
  761.                         DrawUnderline%, \\
  762.                         DRAW_FONT_OVERLINE_NONE%, \\
  763.                         DrawStrikeout%, \\
  764.                         DRAW_FONT_PLACEMENT_NORMAL%, \\
  765.                         0,    \\ 
  766.                         1000, \\ 
  767.                         1000, \\
  768.                         DRAW_FONT_ALIGNMENT_NONE%
  769.  
  770. END SUB
  771.  
  772. '********************************************************************
  773. '
  774. '    Name:    ApplyEffect (subroutine)
  775. '
  776. '    Action:    Applies a neon effect to the currently selected
  777. '            object(s) in CorelDRAW.
  778. '
  779. '    Params:    InApplyCenterColor - Should we apply the neon
  780. '                             color to the whole object?
  781. '            InRed - The red component of the desired color.
  782. '            InGreen - The green component of the desired color.
  783. '            InBlue - The blue component of the desired color.
  784. '            InWidth - The width of the neon effect desired.
  785. '
  786. '    Returns:    None.
  787. '
  788. '    Comments:    There must be currently selected object(s) in
  789. '              CorelDRAW when this routine is called, and
  790. '              they must support blending.
  791. '
  792. '********************************************************************
  793. SUB ApplyEffect(InApplyCenterColor AS BOOLEAN, \\
  794.              InRed AS INTEGER, InGreen AS INTEGER, InBlue AS INTEGER, \\
  795.              InWidth AS INTEGER)
  796.  
  797.     CONST NeonF! = 0.4        ' The color darkening factor for the neon edges.
  798.     CONST XIdeal& = 991578    ' The ideal object width (x-direction).
  799.     CONST YIdeal& = 286869    ' The ideal object height (y-direction).
  800.     CONST BigOIdeal& = 84582    ' The big outline to use if we have an ideal object.
  801.     CONST LittleOIdeal& = 7112    ' The little outline to use if we have an ideal object.
  802.  
  803.     DIM Proportion AS SINGLE    ' The multiplicative factor relative to the ideal.
  804.     DIM ObjX AS LONG        ' The width of the current CorelDRAW selection.
  805.     DIM ObjY AS LONG        ' The height of the current CorelDRAW selection.
  806.     DIM WidthAdj AS SINGLE    ' The multiplicative factor to adjust for the user's
  807.                         ' width selection.
  808.     DIM XPos AS LONG        ' The x-coordinate of the current CorelDRAW selection.
  809.     DIM YPos AS LONG        ' The y-coordinate of the current CorelDRAW selection.
  810.  
  811.     ' Calculate the proportionality constant.  This is so that we do
  812.     ' not apply a thick outline to very small objects.
  813.     .GetSize ObjX&, ObjY&
  814.     IF ObjX > ObjY THEN
  815.         Proportion! = ObjY& / YIdeal&
  816.     ELSE
  817.         Proportion! = ObjX& / XIdeal&
  818.     ENDIF        
  819.  
  820.     ' Calculate the width adjustment based on the user's selection.
  821.     WidthAdj! = (InWidth% * 2) /100
  822.  
  823.     ' Apply the neon effect.
  824.      .StartOfRecording 
  825.      .SuppressPainting FALSE
  826.      .RecorderStorePreselectedObjects FALSE
  827.      .RecorderSelectObjectByIndex TRUE, 1
  828.     .ApplyOutline 0, 0, 0, 0, 0, 0, 0, -1, -1, FALSE, 0, 0, FALSE
  829.     .RecorderSelectObjectByIndex TRUE, 1
  830.     .ApplyOutline CLNG(BigOIdeal& * Proportion! * WidthAdj!), 1, 1, 1, 100, -900, 0, -1, -1, FALSE, 2, 0, TRUE
  831.     .StoreColor DRAW_COLORMODEL_RGB&, CINT(InRed% * NeonF!), \\
  832.               CINT(InGreen%*NeonF!), CINT(InBlue%*NeonF!), 0
  833.     .SetOutlineColor
  834.     .RecorderSelectObjectByIndex TRUE, 1
  835.     .GetPosition XPos&, YPos&
  836.     .DuplicateObject 
  837.     .SetPosition XPos&, YPos&
  838.      .RecorderSelectObjectByIndex TRUE, 2
  839.     .ApplyOutline 0, 0, 0, 0, 0, 0, 0, -1, -1, FALSE, 0, 0, FALSE
  840.     .RecorderSelectObjectByIndex TRUE, 2
  841.      .ApplyOutline CLNG(LittleOIdeal& * Proportion! * WidthAdj!), 1, 1, 1, 100, -900, 0, -1, -1, FALSE, 2, 0, TRUE
  842.      .StoreColor DRAW_COLORMODEL_RGB&, InRed%, InGreen%, InBlue%, 0
  843.      .SetOutlineColor
  844.     .RecorderSelectObjectsByIndex TRUE, 1, 2, -1, -1, -1
  845.      .ApplyBlend TRUE, 20, 0, FALSE, 0, FALSE, FALSE, 0, 0, 0
  846.      .ResumePainting 
  847.     .EndOfRecording 
  848.  
  849.     ' If we are neon-ing the whole object, apply a uniform fill in the neon color.
  850.     IF InApplyCenterColor THEN
  851.         .StoreColor DRAW_COLORMODEL_RGB&, InRed%, InGreen%, InBlue%, 0
  852.         .ApplyUniformFillColor
  853.     ENDIF
  854.  
  855. END SUB
  856.  
  857. '********************************************************************
  858. '
  859. '    Name:    GetNumberOfDisplayColors (function)
  860. '
  861. '    Action:    Returns the number of colors the user's screen
  862. '              currently supports.
  863. '
  864. '    Params:    None.  
  865. '
  866. '    Returns:    None.
  867. '
  868. '    Comments:    To avoid overflows, this routine never returns
  869. '              a number of colors greater than 16777216.  If there
  870. '              are more colors, it returns this maximum.
  871. '
  872. '********************************************************************
  873. FUNCTION GetNumberOfDisplayColors( ) AS LONG
  874.  
  875.     ' Constants to send to GetDeviceCaps.
  876.     CONST BITSPIXEL& = 12    ' Gets the number of color bits per pixel.
  877.     CONST PLANES& = 14        ' Gets the number of color planes.
  878.     
  879.     DIM hDC AS LONG        ' A display DC to query.
  880.     DIM NumColors AS SINGLE    ' The retrieved number of colors.    
  881.     DIM NumPlanes AS LONG    ' The retrieved number of planes.
  882.     DIM NumBitsPixel AS LONG ' The retrieved number of bits per pixel.
  883.     DIM RetVal AS LONG        
  884.     
  885.     ' Create a DC, then query it for the number of colors.
  886.     hDC& = CreateDC("DISPLAY", 0, 0, 0)
  887.     NumPlanes& = GetDeviceCaps(hDC, Planes&)
  888.     NumBitsPixel& = GetDeviceCaps(hDC, BitsPixel&)
  889.     NumColors! = CSNG(2) ^ CSNG(CSNG(NumPlanes&) * CSNG(NumBitsPixel&))
  890.     RetVal& = DeleteDC(hDC)
  891.     
  892.     ' To avoid overflows with really high color displays, the
  893.     ' maximum will be 24 bit color.
  894.     IF NumColors! > 16777216 THEN
  895.         GetNumberOfDisplayColors = 16777216
  896.     ELSE
  897.         GetNumberOfDisplayColors = NumColors!
  898.     ENDIF
  899.     
  900. END FUNCTION
  901.  
  902. END WITHOBJECT
  903.  
  904.