home *** CD-ROM | disk | FTP | other *** search
/ Mundo do CD-ROM 23 / CDROM23.iso / corel / Scripts / dlgsub.csc < prev    next >
Encoding:
Text File  |  1997-08-11  |  3.7 KB  |  100 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 ***************************************************************
  6. REM * Global Data                                                 *
  7. REM ***************************************************************
  8.  
  9. #include "ScpConst.csi"
  10. #define TAB1 (CHR(9))
  11. #define TAB2 (TAB1 & TAB1)
  12. #define TAB3 (TAB2 & TAB1)
  13. #define TAB4 (TAB2 & TAB2)
  14.  
  15. REM ***************************************************************
  16. REM * Main Dialog                                                 *
  17. REM ***************************************************************
  18. BEGIN DIALOG OBJECT MainDialog 208, 131, "Select Events to Handle"
  19.     OKBUTTON  118, 114, 40, 14, .OK1
  20.     CANCELBUTTON  162, 114, 40, 14, .Cancel1
  21.     TEXT  27, 15, 37, 8, .Text1, "Sub Name:"
  22.     TEXTBOX  66, 13, 109, 13, .SubName
  23.     CHECKBOX  22, 37, 140, 10, .Initialize, "Dialog initialization"
  24.     CHECKBOX  22, 47, 140, 10, .ChangeContent, "Control change in content"
  25.     CHECKBOX  22, 57, 140, 10, .MouseClick, "Control mouse click"
  26.     CHECKBOX  22, 67, 140, 10, .DoubleClick, "Listbox double-click"
  27.     CHECKBOX  22, 77, 140, 10, .GetFocus, "Control receive focus"
  28.     CHECKBOX  22, 87, 140, 10, .Timer, "Dialog timer up"
  29.     CHECKBOX  22, 97, 140, 10, .Resize, "Dialog resize"
  30. END DIALOG
  31.  
  32. REM ***************************************************************
  33. REM * Program                                                     *
  34. REM ***************************************************************
  35.  
  36. 'Initialize dialog
  37. MainDialog.SubName.SetText "DialogSub"
  38.  
  39. MainDialog.Initialize.SetThreeState FALSE
  40. MainDialog.ChangeContent.SetThreeState FALSE
  41. MainDialog.MouseClick.SetThreeState FALSE
  42. MainDialog.DoubleClick.SetThreeState FALSE
  43. MainDialog.GetFocus.SetThreeState FALSE
  44. MainDialog.Timer.SetThreeState FALSE
  45. MainDialog.Resize.SetThreeState FALSE
  46.  
  47. MainDialog.Initialize.SetValue 1
  48. MainDialog.MouseClick.SetValue 1
  49.  
  50. DIM Ret AS INTEGER
  51. Ret% = Dialog(MainDialog)
  52.  
  53. 'Quit on cancel
  54. IF Ret% = MSG_CANCEL THEN END
  55.  
  56. WITHOBJECT "CorelScript.Automation.7"
  57.     .AddLineAfter ("SUB " & MainDialog.SubName.GetText() & "(BYVAL ControlID%, BYVAL Event%)")
  58.     .AddLineAfter TAB1 & "SELECT CASE Event%"
  59.     IF (MainDialog.Initialize.GetValue() = 1) THEN
  60.         .AddLineAfter TAB2 & "CASE EVENT_INITIALIZATION"
  61.         .AddLineAfter TAB3 & "' Add Code here..."
  62.     ENDIF
  63.     IF (MainDialog.ChangeContent.GetValue() = 1) THEN
  64.         .AddLineAfter TAB2 & "CASE EVENT_CHANGE_IN_CONTENT"
  65.         .AddLineAfter TAB3 & "SELECT CASE ControlID%"
  66.         .AddLineAfter TAB4 & "' Add Code here..."
  67.         .AddLineAfter TAB3 & "END SELECT"
  68.     ENDIF
  69.     IF (MainDialog.MouseClick.GetValue() = 1) THEN
  70.         .AddLineAfter TAB2 & "CASE EVENT_MOUSE_CLICK"
  71.         .AddLineAfter TAB3 & "SELECT CASE ControlID%"
  72.         .AddLineAfter TAB4 & "' Add Code here..."
  73.         .AddLineAfter TAB3 & "END SELECT"
  74.     ENDIF
  75.     IF (MainDialog.DoubleClick.GetValue() = 1) THEN
  76.         .AddLineAfter TAB2 & "CASE EVENT_DBL_MOUSE_CLICK"
  77.         .AddLineAfter TAB3 & "SELECT CASE ControlID%"
  78.         .AddLineAfter TAB4 & "' Add Code here..."
  79.         .AddLineAfter TAB3 & "END SELECT"
  80.     ENDIF
  81.     IF (MainDialog.GetFocus.GetValue() = 1) THEN
  82.         .AddLineAfter TAB2 & "CASE EVENT_RECEIVE_FOCUS"
  83.         .AddLineAfter TAB3 & "SELECT CASE ControlID%"
  84.         .AddLineAfter TAB4 & "' Add Code here..."
  85.         .AddLineAfter TAB3 & "END SELECT"
  86.     ENDIF
  87.     IF (MainDialog.Timer.GetValue() = 1) THEN
  88.         .AddLineAfter TAB2 & "CASE EVENT_TIMER_EVENT"
  89.         .AddLineAfter TAB3 & "' Add Code here..."
  90.     ENDIF
  91.     IF (MainDialog.Timer.GetValue() = 1) THEN
  92.         .AddLineAfter TAB2 & "CASE EVENT_DIALOG_RESIZE"
  93.         .AddLineAfter TAB3 & "' Add Code here..."
  94.     ENDIF
  95.     .AddLineAfter TAB1 & "END SELECT"
  96.     .AddLineAfter "END SUB"
  97. END WITHOBJECT
  98.  
  99.  
  100.