home *** CD-ROM | disk | FTP | other *** search
/ PC World Komputer 1998 October A / Pcwk10a98.iso / Corel / Ventura8 / Ventura / Scripts / GuideWizard.csc < prev    next >
Encoding:
Text File  |  1998-07-08  |  32.9 KB  |  829 lines
  1. REM Sets up guidelines [CorelSCRIPT 8]
  2. REM GuideWizard.csc  February 6, 1998
  3. REM ⌐ 1998 Corel Corporation. All rights reserved.
  4.  
  5. REM **************************************************************************************
  6. REM This script creates guidelines. The user can choose from a selection of pre-defined
  7. REM grids, or create their own custom look.
  8. REM **************************************************************************************
  9.  
  10. ' Create a temporary folder to provide a path for the include files
  11. '  -this enables the include files to be located 
  12. #addfol "..\..\Scripts"
  13. #include "ScpConst.csi"
  14. #include "VPConst.csi"
  15.  
  16. ' Embed bitmaps if script is to be compiled into exe or csb formats
  17. ' -this will eliminate the need to include these files
  18. #ADDRESBMP IntroBMP "Bitmaps\IntroBMP.bmp"
  19. #ADDRESBMP Step2BMP "Bitmaps\Step2BMP.bmp"
  20. #ADDRESBMP Grid1BMP "Bitmaps\Grid1.bmp"
  21. #ADDRESBMP Grid2BMP "Bitmaps\Grid2.bmp"
  22. #ADDRESBMP Grid3BMP "Bitmaps\Grid3.bmp"
  23. #ADDRESBMP Grid4BMP "Bitmaps\Grid4.bmp"
  24. #ADDRESBMP Grid5BMP "Bitmaps\Grid5.bmp"
  25. #ADDRESBMP Grid6BMP "Bitmaps\Grid6.bmp"
  26.  
  27. 'Constants for Dialog Return Values
  28. GLOBAL CONST DIALOG_RETURN_CANCEL% = 2
  29. GLOBAL CONST DIALOG_RETURN_NEXT% = 3
  30. GLOBAL CONST DIALOG_RETURN_BACK% = 4
  31.  
  32. 'Constants for pre-defined grids or style
  33. GLOBAL CONST COLS3_ROWS6% = 0        '3 columns, 5 rows
  34. GLOBAL CONST COLS3_ROWS5% = 1        '3 columns, 5 rows
  35. GLOBAL CONST COLS4_ROWS5% = 2         '4 columns, 5 rows
  36. GLOBAL CONST COLS12_ROWS9% = 3    '12 columns, 9 rows
  37. GLOBAL CONST COLS6_ROWS17% = 4    '6 columns, 17 rows
  38. GLOBAL CONST COLS7_ROWS9% = 5        '7 columns, 9 rows
  39. GLOBAL CONST CUSTOM_GUIDES% = 6    'Custom
  40.  
  41. 'Constants for unit selection
  42. GLOBAL CONST UNITS_INCHES% = 1
  43. GLOBAL CONST UNITS_MILLIMETERS% = 2
  44. GLOBAL CONST UNITS_PICAS_POINTS% = 3
  45. GLOBAL CONST UNITS_POINTS% = 4
  46. GLOBAL CONST UNITS_CICEROS_DIDOTS% = 5
  47. GLOBAL CONST UNITS_DIDOTS% = 6
  48.  
  49. 'Constants for page view
  50. GLOBAL CONST PAGE_CURRENT% = 0
  51. GLOBAL CONST PAGE_MASTER% = 1
  52.  
  53. '/////FUNCTION & SUBROUTINE DECLARATIONS/////////////////////////////////////////
  54. DECLARE SUB RegQuery()
  55. DECLARE SUB MakeGuides()
  56. DECLARE FUNCTION ShowIntro%()
  57. DECLARE FUNCTION GetStyle%()
  58. DECLARE FUNCTION GetCustom%()
  59. DECLARE FUNCTION ShowFinish%()
  60. DECLARE FUNCTION ToCicerosDidots#(Value#)
  61. DECLARE FUNCTION FromCicerosDidots&(Value#)
  62. DECLARE FUNCTION ToPicasPoints#(Value#)
  63. DECLARE FUNCTION FromPicasPoints&(Value#)
  64.  
  65. '/////GLOBAL VARIABLES //////////////////////////////////////////////////////////
  66. GLOBAL VenturaRoot$                'root directory where Ventura is installed
  67. GLOBAL StyleOption&                'identifes which style (or pre-defined grid) to create
  68. GLOBAL Columns%                'number of guide columns
  69. GLOBAL Rows%                    'number of guide rows
  70. GLOBAL LeftMargin#                 'spacing for the left margin
  71. GLOBAL RightMargin#                'spacing for the right margin
  72. GLOBAL TopMargin#                'spacing for the top margin
  73. GLOBAL BottomMargin#            'spacing for the bottom margin
  74. GLOBAL HorzGutter#                'spacing for horizontal gutters
  75. GLOBAL VertGutter#                'spacing for vertical gutters
  76. GLOBAL GutterUnits%                'units specifying gutter spacing
  77. GLOBAL PrevGutterUnits%            'previous units specifying gutter spacing (used for conversions)
  78. GLOBAL SpinDoubleMode AS BOOLEAN    'flag indicating mode of spin box: TRUE enable double mode; FALSE disable double mode
  79. GLOBAL SpinPrecision&            'identifies amount of precision for spin control
  80. GLOBAL SpinIncrement#            'identifes amount of increment for spin control
  81. GLOBAL ShowGuides&                'indicates whether guides are shown: 1-show guides; 0-don't show guides
  82. GLOBAL LockGuides&                'indicates whether guides are locked: 1-lock guides; 0-don't lock guides
  83. GLOBAL PageOption&                'identifies the page view to use: 0-Page Layout; 1-Master Page
  84. GLOBAL UseImage$                'identifies the image to display in dialog box (represents user's selection of pre-defined guide)
  85. GLOBAL RemoveExisting&            'indicates whether existing guides are to be removed: 1-remove existing guides; 0-don't remove existing guides
  86. GLOBAL Units$(6)                'array containing list of available units
  87. Units$(1) = "inches"            
  88. Units$(2) = "millimeters"
  89. Units$(3) = "picas, points"
  90. Units$(4) = "points"
  91. Units$(5) = "ciceros, didots"
  92. Units$(6) = "didots"
  93.  
  94. Rows% = 1                        'initialize number of guide rows to 1
  95. Columns% = 1                    'initialize number of guide columns to 1
  96. GutterUnits% = 1                'initialize units to first element - inches
  97. HorzGutter# = FROMINCHES(0.05)    'initialize horizontal gutter to .05 of an inch
  98. VertGutter# = FROMINCHES(0.05)    'initialize vertical gutter to .05 of an inch
  99. ShowGuides& = 1                'initialize guides to be shown
  100. RemoveExisting& = 1                'initialize existing guides to be removed
  101.  
  102. '////// LOCAL VARIABLES //////////////////////////////////////////////////////////////////////////////
  103. MAXSTEP = 4            'maximum number of pages in the Wizard
  104. DIM DialogReturn%        'identifies user's selection for next step in Wizard                                
  105. DIM NextStep%            'specifies which page appears next in the Wizard
  106.  
  107.  
  108. ' **************************************************************************************
  109. ' MAIN
  110. ' **************************************************************************************
  111. ON ERROR GOTO ErrorHandler
  112. RegQuery            'get root directory where Ventura is installed
  113.  
  114. 'this section controls traversal through the dialog pages
  115. NextStep% = 1
  116. DO
  117.     SELECT CASE NextStep%
  118.         CASE 1: DialogReturn% = ShowIntro()    'Show Intro dialog
  119.         CASE 2: DialogReturn% = GetStyle()        'Get style of grid to apply
  120.         CASE 3: DialogReturn% = GetCustom()    'custom style - get custom information
  121.         CASE 4: DialogReturn%  = ShowFinish()    'Show finish dialog
  122.     END SELECT
  123.     NextStep% = NextStep%+ DialogReturn%
  124. LOOP UNTIL NextStep% = MAXSTEP + 1
  125.  
  126. MakeGuides
  127.  
  128. ExitScript:
  129. STOP
  130.  
  131. ErrorHandler:
  132. SELECT CASE ErrNum
  133.     CASE 800
  134.         MESSAGE "FATAL ERROR" & CHR(13) & "Script will now exit."
  135.         RESUME AT ExitScript
  136.     CASE ELSE
  137.         MESSAGE "ERROR: " & STR(ErrNum) & CHR(13) & "Script will now exit."
  138.         RESUME AT ExitScript
  139.     END SELECT
  140.  
  141.  
  142. ' **************************************************************************************
  143. ' MakeGuides
  144. ' This function creates the guides lines in the selected style (or custom).
  145. ' 
  146. ' PARAMS: None
  147. '
  148. ' RETURNS: ShowIntro AS INTEGER - Integer indicating dialog return value(user selection)
  149. ' **************************************************************************************
  150. SUB MakeGuides()
  151. DIM PageOrientation AS BOOLEAN
  152.     'set columns, rows and gutters to appropriate values based on the selected style
  153.     SELECT CASE StyleOption&
  154.         CASE COLS3_ROWS6    '3 columns, 5 rows
  155.             Columns% = 3
  156.             Rows% = 6
  157.             VertGutter# = FROMINCHES(0.05)
  158.             HorzGutter# = FROMINCHES(0.05)
  159.         CASE COLS3_ROWS5    '3 columns, 5 rows
  160.             Columns% = 3
  161.             Rows% = 5
  162.             VertGutter# = FROMINCHES(0.05)
  163.             HorzGutter# = FROMINCHES(0.05)
  164.         CASE COLS4_ROWS5    '4 columns, 5 rows
  165.             Columns% = 3
  166.             Rows% = 5
  167.             VertGutter# = FROMINCHES(0.05)
  168.             HorzGutter# = FROMINCHES(0.05)
  169.         CASE COLS12_ROWS9    '12 columns, 9 rows
  170.             Columns% = 12
  171.             Rows% = 9
  172.             VertGutter# = FROMINCHES(0.05)
  173.             HorzGutter# = FROMINCHES(0.05)
  174.         CASE COLS6_ROWS17    '6 columns, 17 rows
  175.             Columns% = 6
  176.             Rows% = 17
  177.             VertGutter# = FROMINCHES(0.05)
  178.             HorzGutter# = FROMINCHES(0.05)
  179.         CASE COLS7_ROWS9    '7 columns, 9 rows
  180.             Columns% = 7
  181.             Rows% = 9
  182.             VertGutter# = FROMINCHES(0.05)
  183.             HorzGutter# = FROMINCHES(0.05)
  184.         CASE CUSTOM_GUIDES    'Custom"
  185.     END SELECT
  186.  
  187.     WITHOBJECT OBJECT_VENTURA8
  188.         .SetVisible TRUE
  189.         'IF there aren't any open pubs, open one
  190.         IF .CountWindows() = 0 THEN .FileNew
  191.  
  192.         'IF master page is selected, apply to both sides and switch view to MP
  193.         IF PageOption& = PAGE_MASTER THEN
  194.             .ViewMasterPage
  195.             MasterPageName$ = .CurrentMasterPage()
  196.             .ViewGotoMasterPage MasterPageName$, FALSE, 4
  197.             MasterPageFlag = TRUE
  198.         ELSEIF PageOption& = PAGE_CURRENT THEN
  199.             .ViewPageLayout
  200.         ENDIF
  201.  
  202. GuideStart:
  203.         'IF there are existing guides, and the user wants to, remove them
  204.         IF RemoveExisting& = 1 THEN
  205.             .PageFirstLine
  206.             IF .PageGuidelineCount(TRUE)>0 OR .PageGuidelineCount(FALSE)>0  THEN .PageGuidelineDelete , , TRUE
  207.         ENDIF
  208.  
  209.         .FrameFirst TRUE
  210.          .FormatFrameMarginsInsideGet 3, LeftMarg&, RightMarg&, TopMarg&, BottomMarg&
  211.         LeftMargin# = CDBL(LeftMarg&)    :    RightMargin# = CDBL(RightMarg&)    
  212.         TopMargin# = CDBL(TopMarg&)    :    BottomMargin# = CDBL(BottomMarg&)    
  213.         .PageFirstLine
  214.         .FormatMasterPageGet PageOrientation, PaperType&, PageWidth&, PageHeight&
  215.  
  216.         'create Vertical Guides
  217.         ColumnSpace& = (PageWidth& - (LeftMargin#+RightMargin#)-((Columns%-1)*VertGutter#)) / Columns%
  218.         .PageGuideLineAdd LeftMargin#, TRUE
  219.         Guide& = LeftMargin#
  220.         FOR i% = 1 TO Columns%-1
  221.             Guide& = Guide& + ColumnSpace&
  222.             .PageGuideLineAdd Guide&, TRUE
  223.             Guide& = Guide& + VertGutter#
  224.             .PageGuideLineAdd Guide&, TRUE
  225.         NEXT i%
  226.         .PageGuideLineAdd PageWidth&-RightMargin#, TRUE
  227.         IF StyleOption& = COLS4_ROWS5 THEN
  228.             .PageGuideLineAdd (PageWidth&*0.5)-(VertGutter#*0.5), TRUE
  229.             .PageGuideLineAdd (PageWidth&*0.5)+(VertGutter#*0.5), TRUE
  230.         ENDIF
  231.     
  232.         'create Horizontal Guides
  233.         RowSpace& = (PageHeight& - (TopMargin#+BottomMargin#)-((Rows%-1)*HorzGutter#)) / Rows%
  234.         .PageGuideLineAdd TopMargin#, FALSE
  235.         Guide& = TopMargin#
  236.         FOR i% = 1 TO Rows%-1
  237.             Guide& = Guide& + RowSpace&
  238.             .PageGuideLineAdd Guide&, FALSE
  239.             Guide& = Guide& + HorzGutter#
  240.             .PageGuideLineAdd Guide&, FALSE
  241.             IF StyleOption& = COLS7_ROWS9 THEN
  242.                 IF i% = 1 OR i% = 2 THEN 
  243.                     .PageGuidelineDelete Guide&, FALSE
  244.                     .PageGuidelineDelete Guide&- HorzGutter#, FALSE
  245.                 ENDIF
  246.             ENDIF
  247.         NEXT i%
  248.         .PageGuideLineAdd PageHeight&-BottomMargin#, FALSE
  249.         .PageGuideline CBOL(ShowGuides), CBOL(LockGuides&)
  250.  
  251.         'IF master page is selected, draw lines on both sides
  252.         IF PageOption& = PAGE_MASTER AND MasterPageFlag = TRUE THEN
  253.             MasterPageFlag = FALSE 
  254.             .ViewGotoMasterPage MasterPageName$, TRUE, 4
  255.             GOTO GuideStart
  256.         ENDIF
  257.     END WITHOBJECT
  258. END SUB
  259.  
  260.  
  261. ' *******************************************************************************
  262. ' RegQuery
  263. ' This subroutine queries the Registry to determine the root directory where 
  264. ' Ventura is installed.
  265. ' *******************************************************************************
  266. SUB RegQuery
  267. ON ERROR GOTO ErrorHandler
  268.  
  269.     'get Ventura config directory
  270.     VentDir$ = REGISTRYQUERY(HKEY_LOCAL_MACHINE,VENTURA_REGQUERY_CONST,"ConfigDir")     
  271.     
  272.     'isolate Ventura root directory from Ventura config directory
  273.     first% = 1
  274.     pos% = 1
  275.     DO WHILE first <> 0
  276.         first = INSTR(VentDir$, "\", first )
  277.         IF first <> 0 THEN
  278.             pos = first
  279.             first = first + 1
  280.         END IF
  281.     LOOP
  282.     VenturaRoot$ = LEFT(VentDir$, pos - 1)     'root directory where Ventura is installed
  283.  
  284. EXIT SUB
  285. ErrorHandler:
  286.     MESSAGE "Error reading registry:" & CHR(13) & RegString$
  287.     ErrNum = 800
  288. END SUB
  289.  
  290.  
  291. ' *******************************************************************************
  292. ' ShowIntro
  293. ' This function displays the introduction dialog.
  294. ' 
  295. ' PARAMS: None
  296. '
  297. ' RETURNS: ShowIntro AS INTEGER - Integer indicating dialog return value.
  298. ' *******************************************************************************
  299. FUNCTION ShowIntro%
  300. BEGIN DIALOG OBJECT IntroDialog 290, 180, "Guidelines Wizard", SUB IntroDialogEventHandler
  301.     PUSHBUTTON  181, 160, 46, 14, .NextButton, "&Next >"
  302.     CANCELBUTTON  234, 160, 46, 14, .CancelButton
  303.     PUSHBUTTON  135, 160, 46, 14, .BackButton, "< &Back"
  304.     TEXT  95, 10, 185, 20, .Text2, "This wizard offers a selection of preset guidelines, or you can create your own custom guidelines."
  305.     TEXT  95, 40, 185, 12, .Text3, "To begin, click Next."
  306.     IMAGE  10, 10, 75, 130, .IntroImage
  307.     GROUPBOX  10, 150, 270, 5, .LineGroupBox
  308. END DIALOG
  309.  
  310.     IntroDialog.IntroImage.SetImage "#IntroBMP"
  311.     IntroDialog.IntroImage.SetStyle STYLE_IMAGE_CENTERED
  312.  
  313.     IntroRet%=DIALOG(IntroDialog)
  314.     IF IntroRet% = DIALOG_RETURN_CANCEL THEN STOP            
  315.     IF IntroRet% = DIALOG_RETURN_NEXT THEN ShowIntro = 1        
  316. END FUNCTION
  317.  
  318. ' *******************************************************************************
  319. ' IntroDialogEventHandler
  320. ' This subroutine responds to user interface with the introduction dialog.
  321. ' 
  322. ' PARAMS: BYVAL ControlID% - Integer indicating the dialog control that is 
  323. '                            generating a dialog event.
  324. '        BYVAL Event% - Integer indicating the dialog event that has occurred.
  325. ' *******************************************************************************
  326. SUB IntroDialogEventHandler(BYVAL ControlID%, BYVAL Event%)
  327.     IF Event% = EVENT_INITIALIZATION THEN         
  328.         IntroDialog.BackButton.Enable FALSE 
  329.     ENDIF
  330.     IF Event% = EVENT_MOUSE_CLICK THEN     
  331.         SELECT CASE ControlID%
  332.             CASE IntroDialog.NextButton.GetID()
  333.                 IntroDialog.CloseDialog DIALOG_RETURN_NEXT
  334.             CASE IntroDialog.CancelButton.GetID()
  335.                 IntroDialog.CloseDialog DIALOG_RETURN_CANCEL
  336.         END SELECT
  337.     ENDIF
  338. END FUNCTION
  339.  
  340.  
  341. ' *******************************************************************************
  342. ' GetStyle
  343. ' This function prompts the user to select which style of guides to use: one of 
  344. ' the pre-defined styles, or a user specified custom style.
  345. '
  346. ' PARAMS: None
  347. '
  348. ' RETURNS: GetStyle AS INTEGER - Integer indicating dialog return value.
  349. ' *******************************************************************************
  350. FUNCTION GetStyle
  351. BEGIN DIALOG OBJECT StyleDialog 290, 180, "Guidelines Wizard", SUB StyleDialogEventHandler
  352.     PUSHBUTTON  135, 160, 46, 14, .BackButton, "< &Back"
  353.     PUSHBUTTON  181, 160, 46, 14, .NextButton, "&Next >"
  354.     CANCELBUTTON  234, 160, 46, 14, .CancelButton
  355.     IMAGE  10, 10, 75, 130, .StyleImage
  356.     GROUPBOX  10, 150, 270, 5, .LineGroupBox
  357.     TEXT  95, 10, 185, 12, .Text5, "Select a preset style, or create a customized style."
  358.     OPTIONGROUP .StyleOptionGroup%
  359.         OPTIONBUTTON  115, 25, 100, 12, .Style1OptionButton, "3 columns, 6 rows"
  360.         OPTIONBUTTON  115, 40, 100, 12, .Style2OptionButton, "3 columns, 5 rows"
  361.         OPTIONBUTTON  115, 55, 100, 12, .Style3OptionButton, "4 columns, 5 rows"
  362.         OPTIONBUTTON  115, 70, 100, 12, .Style4OptionButton, "12 columns, 9 rows"
  363.         OPTIONBUTTON  115, 85, 100, 12, .Style5OptionButton, "6 columns, 17 rows"
  364.         OPTIONBUTTON  115, 100, 100, 12, .Style6OptionButton, "7 columns, 7 rows"
  365.         OPTIONBUTTON  115, 115, 100, 12, .CustomOptionButton, "Custom"
  366. END DIALOG
  367.  
  368.     SELECT CASE StyleOption&
  369.         CASE COLS3_ROWS6    '3 columns, 5 rows
  370.             UseImage$ = "#Grid1BMP"
  371.         CASE COLS3_ROWS5    '3 columns, 5 rows
  372.             UseImage$ = "#Grid2BMP"
  373.         CASE COLS4_ROWS5    '4 columns, 5 rows
  374.             UseImage$ = "#Grid3BMP"
  375.         CASE COLS12_ROWS9    '12 columns, 9 rows
  376.             UseImage$ = "#Grid4BMP"
  377.         CASE COLS6_ROWS17    '6 columns, 17 rows
  378.             UseImage$ = "#Grid5BMP"
  379.         CASE COLS7_ROWS9    '7 columns, 9 rows
  380.             UseImage$ = "#Grid6BMP"
  381.         CASE CUSTOM_GUIDES    'Custom"
  382.             UseImage$ = "#Grid1BMP"
  383.     END SELECT
  384.     StyleDialog.StyleImage.SetImage UseImage$
  385.     StyleDialog.StyleImage.SetStyle STYLE_IMAGE_CENTERED
  386.  
  387.     StyleRet%=DIALOG(StyleDialog)
  388.     SELECT CASE StyleRet%
  389.         CASE DIALOG_RETURN_CANCEL    
  390.             STOP
  391.         CASE DIALOG_RETURN_NEXT        
  392.             StyleOption& = StyleDialog.StyleOptionGroup.GetValue()
  393.             IF StyleOption& = CUSTOM_GUIDES THEN 
  394.                 GetStyle = 1
  395.             ELSE
  396.                 GetStyle = 2
  397.             ENDIF
  398.         CASE DIALOG_RETURN_BACK         
  399.             GetStyle = -1
  400.     END SELECT
  401. END FUNCTION
  402.  
  403.  
  404. ' *******************************************************************************
  405. ' StyleDialogEventHandler
  406. ' This subroutine responds to user interface with the style dialog.
  407. '
  408. ' PARAMS: BYVAL ControlID% - Integer indicating the dialog control that is 
  409. '                            generating a dialog event.
  410. '        BYVAL Event% - Integer indicating the dialog event that has occurred.
  411. ' *******************************************************************************
  412. SUB StyleDialogEventHandler(BYVAL ControlID%, BYVAL Event%)
  413.     IF Event% = EVENT_MOUSE_CLICK THEN         
  414.         SELECT CASE ControlID%
  415.             CASE StyleDialog.NextButton.GetID()        
  416.                 StyleDialog.closedialog DIALOG_RETURN_NEXT
  417.             CASE StyleDialog.BackButton.GetID()        
  418.                 StyleDialog.closedialog DIALOG_RETURN_BACK
  419.             CASE StyleDialog.CancelButton.GetID()        
  420.                 StyleDialog.closedialog DIALOG_RETURN_CANCEL    
  421.             CASE StyleDialog.Style1OptionButton.GetID()
  422.                 UseImage$ = "#Grid1BMP"
  423.             CASE StyleDialog.Style2OptionButton.GetID()
  424.                 UseImage$ = "#Grid2BMP"
  425.             CASE StyleDialog.Style3OptionButton.GetID()
  426.                 UseImage$ = "#Grid3BMP"
  427.             CASE StyleDialog.Style4OptionButton.GetID()
  428.                 UseImage$ = "#Grid4BMP"
  429.             CASE StyleDialog.Style5OptionButton.GetID()
  430.                 UseImage$ = "#Grid5BMP"
  431.             CASE StyleDialog.Style6OptionButton.GetID()
  432.                 UseImage$ = "#Grid6BMP"
  433.             CASE StyleDialog.CustomOptionButton.GetID()
  434.                 UseImage$ = "#Step2BMP"
  435.         END SELECT
  436.         StyleDialog.StyleImage.SetImage UseImage$
  437.     ENDIF
  438. END SUB
  439.  
  440.  
  441. ' *******************************************************************************
  442. ' GetCustom
  443. ' This function prompts the user for information for custom guidelines.
  444. '
  445. ' PARAMS: None
  446. '
  447. ' RETURNS: GetCustom AS INTEGER - Integer indicating dialog return value.
  448. ' *******************************************************************************
  449. FUNCTION GetCustom
  450. BEGIN DIALOG OBJECT CustomDialog 290, 180, "Guidelines Wizard", SUB CustomDialogEventHandler
  451.     TEXT  100, 40, 25, 12, .Text1, "R&ows:"
  452.     SPINCONTROL  130, 40, 40, 12, .RowSpin
  453.     TEXT  190, 40, 32, 12, .Text2, "&Columns:"
  454.     SPINCONTROL  230, 40, 40, 12, .ColumnSpin
  455.     TEXT  100, 105, 38, 8, .Text3, "Hori&zontal:"
  456.     SPINCONTROL  145, 102, 50, 12, .HorizontalSpin
  457.     DDLISTBOX  205, 101, 70, 60, .GutterUnitsDDListBox
  458.     TEXT  100, 125, 38, 8, .Text4, "&Vertical:"
  459.     SPINCONTROL  145, 121, 50, 12, .VerticalSpin
  460.     PUSHBUTTON  134, 160, 46, 14, .BackButton, "< &Back"
  461.     PUSHBUTTON  181, 160, 46, 14, .NextButton, "&Next >"
  462.     CANCELBUTTON  234, 160, 46, 14, .CancelButton
  463.     GROUPBOX  10, 150, 270, 5, .LineGroupBox
  464.     GROUPBOX  95, 90, 185, 50, .GroupBox3, "Gutters:"
  465.     TEXT  205, 125, 70, 12, .Text9, ""
  466.     IMAGE  10, 10, 75, 130, .CustomImage
  467.     TEXT  95, 10, 180, 16, .Text13, "Specify the number of rows and columns you would like to insert."
  468.     TEXT  95, 75, 185, 12, .Text7, "Specify the gutter settings that you would like to use."
  469. END DIALOG
  470.  
  471.     CustomDialog.CustomImage.SetImage UseImage$
  472.     CustomDialog.CustomImage.SetStyle STYLE_IMAGE_CENTERED
  473.     CustomDialog.RowSpin.SetMinRange 1
  474.     CustomDialog.RowSpin.SetValue Rows%
  475.     CustomDialog.ColumnSpin.SetMinRange 1
  476.     CustomDialog.ColumnSpin.SetValue Columns%
  477.     CustomDialog.HorizontalSpin.SetMinRange 0
  478.     CustomDialog.VerticalSpin.SetMinRange 0
  479.     
  480.     CustomDialog.GutterUnitsDDListBox.SetArray Units$
  481.     CustomDialog.GutterUnitsDDListBox.SetSelect GutterUnits%
  482.     
  483.     SELECT CASE GutterUnits%
  484.         CASE UNITS_INCHES
  485.             SpinDoubleMode = TRUE
  486.             SpinPrecision& = 5
  487.             CustomDialog.HorizontalSpin.SetValue TOINCHES(HorzGutter#)
  488.             CustomDialog.VerticalSpin.SetValue TOINCHES(VertGutter#)
  489.         CASE UNITS_MILLIMETERS
  490.             SpinDoubleMode = TRUE
  491.             SpinPrecision& = 3
  492.             CustomDialog.HorizontalSpin.SetValue HorzGutter#/10000
  493.             CustomDialog.VerticalSpin.SetValue VertGutter#/10000
  494.         CASE UNITS_PICAS_POINTS
  495.             SpinDoubleMode = TRUE
  496.             SpinPrecision& = 1
  497.             CustomDialog.HorizontalSpin.SetValue ToPicasPoints(HorzGutter#)
  498.             CustomDialog.VerticalSpin.SetValue ToPicasPoints(VertGutter#)
  499.         CASE UNITS_POINTS
  500.             SpinDoubleMode = TRUE
  501.             SpinPrecision& = 3
  502.             CustomDialog.HorizontalSpin.SetValue TOPOINTS(HorzGutter#)
  503.             CustomDialog.VerticalSpin.SetValue TOPOINTS(VertGutter#)
  504.         CASE UNITS_CICEROS_DIDOTS
  505.             SpinDoubleMode = TRUE
  506.             SpinPrecision& = 2
  507.             CustomDialog.HorizontalSpin.SetValue ToCicerosDidots(HorzGutter#)
  508.             CustomDialog.VerticalSpin.SetValue ToCicerosDidots(VertGutter#)
  509.         CASE UNITS_DIDOTS
  510.             SpinDoubleMode = TRUE
  511.             SpinPrecision& = 3
  512.             CustomDialog.HorizontalSpin.SetValue TODIDOTS(HorzGutter#)
  513.             CustomDialog.VerticalSpin.SetValue TODIDOTS(VertGutter#)
  514.     END SELECT
  515.     CustomDialog.HorizontalSpin.SetDoubleMode SpinDoubleMode
  516.     CustomDialog.HorizontalSpin.SetPrecision SpinPrecision&
  517.     CustomDialog.VerticalSpin.SetDoubleMode SpinDoubleMode
  518.     CustomDialog.VerticalSpin.SetPrecision SpinPrecision&
  519.     PrevGutterUnits% = GutterUnits%
  520.  
  521.     CustomRet%=DIALOG(CustomDialog)
  522.     SELECT CASE CustomRet%
  523.         CASE DIALOG_RETURN_CANCEL    
  524.             STOP
  525.         CASE DIALOG_RETURN_NEXT        
  526.             GetCustom = 1
  527.         CASE DIALOG_RETURN_BACK         
  528.             GetCustom = -1
  529.     END SELECT
  530. END FUNCTION
  531.  
  532. ' *******************************************************************************
  533. ' CustomDialogEventHandler
  534. ' This subroutine handles events for the custom dialog.
  535. ' 
  536. ' PARAMS: BYVAL ControlID% - Integer indicating the dialog control that is 
  537. '                            generating a dialog event.
  538. '        BYVAL Event% - Integer indicating the dialog event that has occurred.
  539. ' *******************************************************************************
  540. SUB CustomDialogEventHandler(BYVAL ControlID%, BYVAL Event%)
  541.     IF Event% = EVENT_INITIALIZATION THEN         
  542.         GutterUnits% = CustomDialog.GutterUnitsDDListBox.GetSelect()
  543.         CustomDialog.Text9.SetText Units$(GutterUnits%)
  544.     ENDIF
  545.  
  546.     IF Event% = EVENT_CHANGE_IN_CONTENT THEN         
  547.         SELECT CASE ControlID%
  548.             CASE CustomDialog.HorizontalSpin.GetID()        
  549.                 IF GutterUnits% = UNITS_CICEROS_DIDOTS OR GutterUnits% = UNITS_PICAS_POINTS THEN
  550.                     SpinVal# = CustomDialog.HorizontalSpin.GetValue()
  551.                     IF  SpinVal# - INT(SpinVal#) > 0.111  THEN 
  552.                         CustomDialog.HorizontalSpin.SetValue INT(SpinVal#) + 1
  553.                     ENDIF
  554.                     IF SpinVal# - INT(SpinVal#) > 0.90 THEN 
  555.                         CustomDialog.HorizontalSpin.SetValue INT(SpinVal#) + 0.11
  556.                     ENDIF
  557.                 ENDIF
  558.             CASE CustomDialog.VerticalSpin.GetID()        
  559.                 IF GutterUnits% = UNITS_CICEROS_DIDOTS OR GutterUnits% = UNITS_PICAS_POINTS THEN
  560.                     SpinVal# = CustomDialog.VerticalSpin.GetValue()
  561.                     IF  SpinVal# - INT(SpinVal#) > 0.111  THEN 
  562.                         CustomDialog.VerticalSpin.SetValue INT(SpinVal#) + 1
  563.                     ENDIF
  564.                     IF SpinVal# - INT(SpinVal#) > 0.90 THEN 
  565.                         CustomDialog.VerticalSpin.SetValue INT(SpinVal#) + 0.11
  566.                     ENDIF
  567.                 ENDIF
  568.         END SELECT
  569.     ENDIF
  570.  
  571.     IF Event% = EVENT_MOUSE_CLICK THEN         
  572.         SELECT CASE ControlID%
  573.             CASE CustomDialog.NextButton.GetID()        
  574.                 Rows% = CustomDialog.RowSpin.GetValue()
  575.                 Columns% = CustomDialog.ColumnSpin.GetValue()
  576.                 SELECT CASE GutterUnits%
  577.                     CASE UNITS_INCHES
  578.                         VertGutter# = FROMINCHES(CustomDialog.VerticalSpin.GetValue())
  579.                         HorzGutter# = FROMINCHES(CustomDialog.HorizontalSpin.GetValue())
  580.                     CASE UNITS_MILLIMETERS
  581.                         VertGutter# = (CustomDialog.VerticalSpin.GetValue())*10000
  582.                         HorzGutter# = (CustomDialog.HorizontalSpin.GetValue())*10000
  583.                     CASE UNITS_PICAS_POINTS
  584.                         VertGutter# = FromPicasPoints(CustomDialog.VerticalSpin.GetValue())
  585.                         HorzGutter# = FromPicasPoints(CustomDialog.HorizontalSpin.GetValue())
  586.                     CASE UNITS_POINTS
  587.                         VertGutter# = FROMPOINTS(CustomDialog.VerticalSpin.GetValue())
  588.                         HorzGutter# = FROMPOINTS(CustomDialog.HorizontalSpin.GetValue())
  589.                     CASE UNITS_CICEROS_DIDOTS
  590.                         VertGutter# = FromCicerosDidots(CustomDialog.VerticalSpin.GetValue())
  591.                         HorzGutter# = FromCicerosDidots(CustomDialog.HorizontalSpin.GetValue())
  592.                     CASE UNITS_DIDOTS
  593.                         VertGutter# = FROMDIDOTS(CustomDialog.VerticalSpin.GetValue())
  594.                         HorzGutter# = FROMDIDOTS(CustomDialog.HorizontalSpin.GetValue())
  595.                 END SELECT
  596.                 CustomDialog.closedialog DIALOG_RETURN_NEXT
  597.  
  598.             CASE CustomDialog.BackButton.GetID()        
  599.                 CustomDialog.closedialog DIALOG_RETURN_BACK
  600.  
  601.             CASE CustomDialog.CancelButton.GetID()        'Cancel
  602.                 CustomDialog.closedialog DIALOG_RETURN_CANCEL    
  603.  
  604.             CASE CustomDialog.HorizontalSpin.GetID()        
  605.                 IF GutterUnits% = UNITS_CICEROS_DIDOTS OR GutterUnits% = UNITS_PICAS_POINTS THEN
  606.                     SpinVal# = CustomDialog.HorizontalSpin.GetValue()
  607.                     IF  SpinVal# - INT(SpinVal#) > 0.111  THEN 
  608.                         CustomDialog.HorizontalSpin.SetValue INT(SpinVal#) + 1
  609.                     ENDIF
  610.                     IF SpinVal# - INT(SpinVal#) > 0.90 THEN 
  611.                         CustomDialog.HorizontalSpin.SetValue INT(SpinVal#) + 0.11
  612.                     ENDIF
  613.                 ENDIF
  614.  
  615.             CASE CustomDialog.VerticalSpin.GetID()        
  616.                 IF GutterUnits% = UNITS_CICEROS_DIDOTS OR GutterUnits% = UNITS_PICAS_POINTS THEN
  617.                     SpinVal# = CustomDialog.VerticalSpin.GetValue()
  618.                     IF  SpinVal# - INT(SpinVal#) > 0.111  THEN 
  619.                         CustomDialog.VerticalSpin.SetValue INT(SpinVal#) + 1
  620.                     ENDIF
  621.                     IF SpinVal# - INT(SpinVal#) > 0.90 THEN 
  622.                         CustomDialog.VerticalSpin.SetValue INT(SpinVal#) + 0.11
  623.                     ENDIF
  624.                 ENDIF
  625.  
  626.             CASE CustomDialog.GutterUnitsDDListBox.GetID()
  627.                 GutterUnits% = CustomDialog.GutterUnitsDDListBox.GetSelect()
  628.                 CustomDialog.Text9.SetText Units$(GutterUnits%)
  629.                 'get current readings and convert to tenths of a micron
  630.                 SELECT CASE PrevGutterUnits%
  631.                     CASE UNITS_INCHES
  632.                         HorzGutter# = FROMINCHES(CustomDialog.HorizontalSpin.GetValue())
  633.                         VertGutter# = FROMINCHES(CustomDialog.VerticalSpin.GetValue())
  634.                     CASE UNITS_MILLIMETERS
  635.                         HorzGutter# = (CustomDialog.HorizontalSpin.GetValue())*10000
  636.                         VertGutter# = (CustomDialog.VerticalSpin.GetValue())*10000
  637.                     CASE UNITS_PICAS_POINTS
  638.                         HorzGutter# = FromPicasPoints(CustomDialog.HorizontalSpin.GetValue())
  639.                         VertGutter# = FromPicasPoints(CustomDialog.VerticalSpin.GetValue())
  640.                     CASE UNITS_POINTS
  641.                         HorzGutter# = FROMPOINTS(CustomDialog.HorizontalSpin.GetValue())
  642.                         VertGutter# = FROMPOINTS(CustomDialog.VerticalSpin.GetValue())
  643.                     CASE UNITS_CICEROS_DIDOTS
  644.                         HorzGutter# = FromCicerosDidots(CustomDialog.HorizontalSpin.GetValue())
  645.                         VertGutter# = FromCicerosDidots(CustomDialog.VerticalSpin.GetValue())
  646.                     CASE UNITS_DIDOTS
  647.                         HorzGutter# = FROMDIDOTS(CustomDialog.HorizontalSpin.GetValue())
  648.                         VertGutter# = FROMDIDOTS(CustomDialog.VerticalSpin.GetValue())
  649.                 END SELECT
  650.  
  651.                 'display current readings in specified units
  652.                 SELECT CASE GutterUnits%
  653.                     CASE UNITS_INCHES
  654.                         SpinDoubleMode = TRUE
  655.                         SpinPrecision& = 5
  656.                         CustomDialog.HorizontalSpin.SetValue TOINCHES(HorzGutter#)
  657.                         CustomDialog.VerticalSpin.SetValue TOINCHES(VertGutter#)
  658.                     CASE UNITS_MILLIMETERS
  659.                         SpinDoubleMode = TRUE
  660.                         SpinPrecision& = 3
  661.                         CustomDialog.HorizontalSpin.SetValue HorzGutter#/10000
  662.                         CustomDialog.VerticalSpin.SetValue VertGutter#/10000
  663.                     CASE UNITS_PICAS_POINTS
  664.                         SpinDoubleMode = TRUE
  665.                         SpinPrecision& = 1
  666.                         CustomDialog.HorizontalSpin.SetValue ToPicasPoints(HorzGutter#)
  667.                         CustomDialog.VerticalSpin.SetValue ToPicasPoints(VertGutter#)
  668.                     CASE UNITS_POINTS
  669.                         SpinDoubleMode = TRUE
  670.                         SpinPrecision& = 3
  671.                         CustomDialog.HorizontalSpin.SetValue TOPOINTS(HorzGutter#)
  672.                         CustomDialog.VerticalSpin.SetValue TOPOINTS(VertGutter#)
  673.                     CASE UNITS_CICEROS_DIDOTS
  674.                         SpinDoubleMode = TRUE
  675.                         SpinPrecision& = 2
  676.                         CustomDialog.HorizontalSpin.SetValue ToCicerosDidots(HorzGutter#)
  677.                         CustomDialog.VerticalSpin.SetValue ToCicerosDidots(VertGutter#)
  678.                     CASE UNITS_DIDOTS
  679.                         SpinDoubleMode = TRUE
  680.                         SpinPrecision& = 3
  681.                         CustomDialog.HorizontalSpin.SetValue TODIDOTS(HorzGutter#)
  682.                         CustomDialog.VerticalSpin.SetValue TODIDOTS(VertGutter#)
  683.                 END SELECT
  684.                 CustomDialog.HorizontalSpin.SetDoubleMode SpinDoubleMode
  685.                 CustomDialog.HorizontalSpin.SetPrecision SpinPrecision&
  686.                 CustomDialog.VerticalSpin.SetDoubleMode SpinDoubleMode
  687.                 CustomDialog.VerticalSpin.SetPrecision SpinPrecision&
  688.                 PrevGutterUnits% = GutterUnits%
  689.         END SELECT
  690.     ENDIF
  691. END SUB
  692.  
  693.  
  694. ' *******************************************************************************
  695. ' ShowFinish
  696. ' This function displays the finish dialog.
  697. '
  698. ' PARAMS: None
  699. '
  700. ' RETURNS: ShowFinish AS INTEGER - Integer indicating dialog return value.
  701. ' *******************************************************************************
  702. FUNCTION ShowFinish
  703. BEGIN DIALOG OBJECT FinishDialog 290, 180, "Guidelines Wizard", SUB FinishDialogEventHandler
  704.     OPTIONGROUP .PageOptionGroup%
  705.         OPTIONBUTTON  120, 42, 100, 10, .OptionButton1, "Apply to ¤t page only"
  706.         OPTIONBUTTON  120, 55, 111, 10, .OptionButton2, "Apply to &page tag"
  707.     CHECKBOX  120, 98, 90, 12, .ShowGuidesCheckBox, "&Show Guidelines"
  708.     CHECKBOX  120, 114, 89, 12, .LockGuidesCheckBox, "&Lock Guidelines"
  709.     CHECKBOX  119, 129, 128, 12, .RemoveExistingCheckBox, "&Remove existing guidelines"
  710.     PUSHBUTTON  135, 160, 46, 14, .BackButton, "< &Back"
  711.     PUSHBUTTON  181, 160, 46, 14, .NextButton, "&Apply"
  712.     CANCELBUTTON  234, 160, 46, 14, .CancelButton
  713.     IMAGE  10, 10, 75, 130, .FinishImage
  714.     GROUPBOX  10, 150, 270, 5, .LineGroupBox
  715.     TEXT  95, 10, 185, 12, .Text5, "The Guidelines Wizard is now ready to apply guidelines."
  716.     GROUPBOX  100, 34, 175, 36, .GroupBox2
  717.     GROUPBOX  100, 89, 175, 55, .GroupBox3
  718.     TEXT  100, 25, 180, 12, .Text2, "Where do you want the guidelines applied?"
  719.     TEXT  100, 80, 180, 12, .Text3, "Do you want the Guidelines Wizard to:"
  720. END DIALOG
  721.  
  722.     FinishDialog.FinishImage.SetImage UseImage$
  723.     FinishDialog.FinishImage.SetStyle STYLE_IMAGE_CENTERED
  724.     FinishDialog.ShowGuidesCheckBox.SetThreeState FALSE
  725.     FinishDialog.LockGuidesCheckBox.SetThreeState FALSE
  726.     FinishDialog.RemoveExistingCheckBox.SetThreeState FALSE
  727.     FinishDialog.ShowGuidesCheckBox.SetValue ShowGuides&
  728.     FinishDialog.LockGuidesCheckBox.SetValue LockGuides&
  729.     FinishDialog.PageOptionGroup.SetValue PageOption&
  730.     FinishDialog.RemoveExistingCheckBox.SetValue RemoveExisting&
  731.  
  732.     FinishRet%=DIALOG(FinishDialog)
  733.     SELECT CASE FinishRet%
  734.         CASE DIALOG_RETURN_CANCEL    
  735.             STOP
  736.         CASE DIALOG_RETURN_NEXT        
  737.             PageOption& = FinishDialog.PageOptionGroup.GetValue()
  738.             ShowFinish = 1
  739.         CASE DIALOG_RETURN_BACK         
  740.             PageOption& = FinishDialog.PageOptionGroup.GetValue()
  741.             IF StyleOption& = CUSTOM_GUIDES THEN 
  742.                 ShowFinish = -1
  743.             ELSE
  744.                 ShowFinish = -2
  745.             ENDIF
  746.     END SELECT
  747. END FUNCTION
  748.  
  749.  
  750. ' *******************************************************************************
  751. ' FinishDialogEventHandler
  752. ' This subroutine handles events for the finish dialog.
  753. ' 
  754. ' PARAMS: BYVAL ControlID% - Integer indicating the dialog control that is 
  755. '                            generating a dialog event.
  756. '        BYVAL Event% - Integer indicating the dialog event that has occurred.
  757. ' *******************************************************************************
  758. SUB FinishDialogEventHandler(BYVAL ControlID%, BYVAL Event%)
  759.     IF Event% = EVENT_MOUSE_CLICK THEN         
  760.         SELECT CASE ControlID%
  761.             CASE FinishDialog.NextButton.GetID()        
  762.                 ShowGuides& = FinishDialog.ShowGuidesCheckBox.GetValue()
  763.                 LockGuides& = FinishDialog.LockGuidesCheckBox.GetValue()
  764.                 RemoveExisting& = FinishDialog.RemoveExistingCheckBox.GetValue()
  765.                 FinishDialog.closedialog DIALOG_RETURN_NEXT
  766.             CASE FinishDialog.BackButton.GetID()        
  767.                 FinishDialog.closedialog DIALOG_RETURN_BACK
  768.             CASE FinishDialog.CancelButton.GetID()        
  769.                 FinishDialog.closedialog DIALOG_RETURN_CANCEL    
  770.         END SELECT
  771.     ENDIF
  772. END SUB
  773.  
  774.  
  775. ' *******************************************************************************
  776. ' ToCicerosDidots
  777. ' This function converts a numeric expression to a double representing ciceros 
  778. ' and didots.
  779. ' *******************************************************************************
  780. FUNCTION ToCicerosDidots#(Value#)
  781.     TempValue# = TOCICEROS(Value#)                    'convert value to ciceros
  782.     CicerosValue& = FIX(TempValue#)                    'obtain ciceros portion
  783.     DidotsValue# = -(CicerosValue& - TempValue#)            'obtain didots portion [remainder of conversion]
  784.     DidotsValue# = INT(LENGTHCONVERT(LC_CICEROS, LC_DIDOTS, DidotsValue#))    'convert remainder to didots
  785.     ToCicerosDidots# = CicerosValue& + (DidotsValue#/100)    'display ciceros as whole number, didots as decimal portion
  786. END FUNCTION
  787.  
  788.  
  789. ' *******************************************************************************
  790. ' FromCicerosDidots
  791. ' This function converts a double representing ciceros, didots to a numeric 
  792. ' expression in tenths of a micron.
  793. ' *******************************************************************************
  794. FUNCTION FromCicerosDidots&(Value#)
  795.     CicerosValue& = FIX(Value#)
  796.     DidotsValue& = -(CicerosValue& - Value#) * 100
  797.     DidotsValueInMicrons& = FROMDIDOTS(DidotsValue&)
  798.     CicerosValueInMicrons& = FROMCICEROS(CicerosValue&) 
  799.     FromCicerosDidots& = CicerosValueInMicrons& + DidotsValueInMicrons&
  800. END FUNCTION
  801.  
  802.  
  803. ' *******************************************************************************
  804. ' ToPicasPoints
  805. ' This function converts a numeric expression to a double representing picas and
  806. ' points.
  807. ' *******************************************************************************
  808. FUNCTION ToPicasPoints#(Value#)
  809.     Value# = Value# + 1.0e-9
  810.     TempValue# = TOPICAS(Value#)                        'convert value to picas
  811.     PicasValue& = FIX(TempValue#)                        'obtain picas portion
  812.     PointsValue# = -(PicasValue& - TempValue#)            'obtain points portion [remainder of conversion]
  813.     PointsValue# = INT(LENGTHCONVERT(LC_PICAS, LC_POINTS, DidotsValue#))    'convert remainder to points
  814.     ToPicasPoints# = PicasValue& + (PointsValue#/100)        'display picas as whole number, points as decimal portion
  815. END FUNCTION
  816.  
  817. ' *******************************************************************************
  818. ' FromPicasPoints
  819. ' This function converts a double representing picas, points to a numeric 
  820. ' expression in tenths of a micron.
  821. ' *******************************************************************************
  822. FUNCTION FromPicasPoints&(Value#)
  823.     PicasValue& = FIX(Value#)
  824.     PointsValue& = -(PicasValue& - Value#) * 100
  825.     FromPicasPoints& = FROMPOINTS(PointsValue&) + FROMPICAS(PicasValue&) 
  826. END FUNCTION
  827.  
  828.  
  829.