home *** CD-ROM | disk | FTP | other *** search
/ PC World 1999 October / PCWorld_1999-10_cd2.bin / Corel / Scripts / dlgsub.csc < prev    next >
Text File  |  1999-03-12  |  4KB  |  112 lines
  1. REM Creates a dialog event handler sub.
  2. REM Dlgsub.csc  August 8, 1996
  3. REM Copyright 1996 Corel Corporation. All rights reserved.
  4.  
  5. REM Perform a sanity check
  6. REM to ensure that this script isn't 
  7. REM being run from the script editor...
  8. WITHOBJECT "CorelScript.Automation.9"
  9. .GoToLine 5
  10.     Match$ = .GetLineText ()
  11.     IF Match$ = "REM Perform a sanity check" THEN
  12.         MESSAGE "This script should not be run from the Corel SCRIPT Editor."
  13.         END
  14.     ENDIF
  15. END WITHOBJECT
  16.  
  17. REM ***************************************************************
  18. REM * Global Data                                                 *
  19. REM ***************************************************************
  20.  
  21. #include "ScpConst.csi"
  22. #define TAB1 (CHR(9))
  23. #define TAB2 (TAB1 & TAB1)
  24. #define TAB3 (TAB2 & TAB1)
  25. #define TAB4 (TAB2 & TAB2)
  26.  
  27. REM ***************************************************************
  28. REM * Main Dialog                                                 *
  29. REM ***************************************************************
  30. BEGIN DIALOG OBJECT MainDialog 208, 131, "Select Events to Handle"
  31.     OKBUTTON  118, 114, 40, 14, .OK1
  32.     CANCELBUTTON  162, 114, 40, 14, .Cancel1
  33.     TEXT  27, 15, 37, 8, .Text1, "Sub Name:"
  34.     TEXTBOX  66, 13, 109, 13, .SubName
  35.     CHECKBOX  22, 37, 140, 10, .Initialize, "Dialog initialization"
  36.     CHECKBOX  22, 47, 140, 10, .ChangeContent, "Control change in content"
  37.     CHECKBOX  22, 57, 140, 10, .MouseClick, "Control mouse click"
  38.     CHECKBOX  22, 67, 140, 10, .DoubleClick, "Listbox double-click"
  39.     CHECKBOX  22, 77, 140, 10, .GetFocus, "Control receive focus"
  40.     CHECKBOX  22, 87, 140, 10, .Timer, "Dialog timer up"
  41.     CHECKBOX  22, 97, 140, 10, .Resize, "Dialog resize"
  42. END DIALOG
  43.  
  44. REM ***************************************************************
  45. REM * Program                                                     *
  46. REM ***************************************************************
  47.  
  48. 'Initialize dialog
  49. MainDialog.SubName.SetText "DialogSub"
  50.  
  51. MainDialog.Initialize.SetThreeState FALSE
  52. MainDialog.ChangeContent.SetThreeState FALSE
  53. MainDialog.MouseClick.SetThreeState FALSE
  54. MainDialog.DoubleClick.SetThreeState FALSE
  55. MainDialog.GetFocus.SetThreeState FALSE
  56. MainDialog.Timer.SetThreeState FALSE
  57. MainDialog.Resize.SetThreeState FALSE
  58.  
  59. MainDialog.Initialize.SetValue 1
  60. MainDialog.MouseClick.SetValue 1
  61.  
  62. DIM Ret AS INTEGER
  63. Ret% = Dialog(MainDialog)
  64.  
  65. 'Quit on cancel
  66. IF Ret% = MSG_CANCEL THEN END
  67.  
  68. WITHOBJECT "CorelScript.Automation.9"
  69.     .AddLineAfter ("SUB " & MainDialog.SubName.GetText() & "(BYVAL ControlID%, BYVAL Event%)")
  70.     .AddLineAfter TAB1 & "SELECT CASE Event%"
  71.     IF (MainDialog.Initialize.GetValue() = 1) THEN
  72.         .AddLineAfter TAB2 & "CASE EVENT_INITIALIZATION"
  73.         .AddLineAfter TAB3 & "' Add Code here..."
  74.     ENDIF
  75.     IF (MainDialog.ChangeContent.GetValue() = 1) THEN
  76.         .AddLineAfter TAB2 & "CASE EVENT_CHANGE_IN_CONTENT"
  77.         .AddLineAfter TAB3 & "SELECT CASE ControlID%"
  78.         .AddLineAfter TAB4 & "' Add Code here..."
  79.         .AddLineAfter TAB3 & "END SELECT"
  80.     ENDIF
  81.     IF (MainDialog.MouseClick.GetValue() = 1) THEN
  82.         .AddLineAfter TAB2 & "CASE EVENT_MOUSE_CLICK"
  83.         .AddLineAfter TAB3 & "SELECT CASE ControlID%"
  84.         .AddLineAfter TAB4 & "' Add Code here..."
  85.         .AddLineAfter TAB3 & "END SELECT"
  86.     ENDIF
  87.     IF (MainDialog.DoubleClick.GetValue() = 1) THEN
  88.         .AddLineAfter TAB2 & "CASE EVENT_DBL_MOUSE_CLICK"
  89.         .AddLineAfter TAB3 & "SELECT CASE ControlID%"
  90.         .AddLineAfter TAB4 & "' Add Code here..."
  91.         .AddLineAfter TAB3 & "END SELECT"
  92.     ENDIF
  93.     IF (MainDialog.GetFocus.GetValue() = 1) THEN
  94.         .AddLineAfter TAB2 & "CASE EVENT_RECEIVE_FOCUS"
  95.         .AddLineAfter TAB3 & "SELECT CASE ControlID%"
  96.         .AddLineAfter TAB4 & "' Add Code here..."
  97.         .AddLineAfter TAB3 & "END SELECT"
  98.     ENDIF
  99.     IF (MainDialog.Timer.GetValue() = 1) THEN
  100.         .AddLineAfter TAB2 & "CASE EVENT_TIMER_EVENT"
  101.         .AddLineAfter TAB3 & "' Add Code here..."
  102.     ENDIF
  103.     IF (MainDialog.Timer.GetValue() = 1) THEN
  104.         .AddLineAfter TAB2 & "CASE EVENT_DIALOG_RESIZE"
  105.         .AddLineAfter TAB3 & "' Add Code here..."
  106.     ENDIF
  107.     .AddLineAfter TAB1 & "END SELECT"
  108.     .AddLineAfter "END SUB"
  109. END WITHOBJECT
  110.  
  111.  
  112.