demo_end.ctx

文本处理软件

        (GmmiGroupObject
          (GmmiContainerObject
            (GmmiObject "Group_CWL_2" 0
              (Help "" "" "")
              (Empty)
              (GmmiTabOrder -1))
            (GmmiObjectPtrList
              (GmmiGroupObject
                (GmmiContainerObject
                  (GmmiObject "light_CWL_1" 0
                    (Help "" "" "")
                    (GmmiOptionTable
                      (GmmiVariables
                        (GmmiVariables "Point_To_Toggle" "POINT_NAME_CWL" 1))
                      (GmmiScript "Function DlgProc(ControlName$,Action%,SuppValue%){&h0D}{&h0A}"
                        & "Dim browseObject As Object{&h0D}{&h0A}"
                        & "Dim entity As String{&h0D}{&h0A}"
                        & " {&h09}If Action% = 2 And ControlName$ = {&h22}ToggleBrowse{&h22} Then{&h0D}{&h0A}"
                        & "    {&h09}Set browseObject = CreateObject({&h22}CimBrowse{&h22}){&h0D}{&h0A}"
                        & "{&h09}{&h09}browseObject.SetBrowserProperty 2{&h0D}{&h0A}"
                        & "{&h09}{&h09}browseObject.SetBrowserProperty 16{&h0D}{&h0A}"
                        & "{&h09}{&h09}browseObject.SetBrowseEntity  {&h22}POINT{&h22}{&h0D}{&h0A}"
                        & "    {&h09}res = browseObject.BrowseEntity(entity){&h0D}{&h0A}"
                        & "{&h09}{&h09}DlgText {&h22}TogglePoint{&h22},entity{&h0D}{&h0A}"
                        & "    {&h09}Set browseObject = Nothing{&h0D}{&h0A}"
                        & "{&h09}{&h09}DlgProc = 1{&h0D}{&h0A}"
                        & "{&h09}End If{&h0D}{&h0A}"
                        & "{&h0D}{&h0A}"
                        & "{&h0D}{&h0A}"
                        & "End Function{&h0D}{&h0A}"
                        & "{&h0D}{&h0A}"
                        & "Begin Dialog UserDialog ,,171,44,{&h22}SmartObject Configuration{&h22},.DlgProc{&h0D}{&h0A}"
                        & "{&h09}OKButton 80,24,40,14{&h0D}{&h0A}"
                        & "{&h09}CancelButton 128,24,40,14{&h0D}{&h0A}"
                        & "{&h09}PushButton 152,8,16,14,{&h22}...{&h22},.ToggleBrowse{&h0D}{&h0A}"
                        & "{&h09}TextBox 36,9,111,12,.TogglePoint{&h0D}{&h0A}"
                        & "{&h09}Text 5,7,24,8,{&h22}Toggle{&h22},.Text3{&h0D}{&h0A}"
                        & "{&h09}Text 8,16,22,9,{&h22}Point{&h22},.Text4{&h0D}{&h0A}"
                        & "End Dialog{&h0D}{&h0A}"
                        & "{&h0D}{&h0A}"
                        & "{&h0D}{&h0A}"
                        & "Sub OnEditWizardProperties(){&h0D}{&h0A}"
                        & " Dim obj As CimObject{&h0D}{&h0A}"
                        & " Dim configDlg As  UserDialog{&h0D}{&h0A}"
                        & " Dim ToggleVariable As CimObjectVariable{&h0D}{&h0A}"
                        & "{&h0D}{&h0A}"
                        & " Set obj = cimOwnerObj.Container{&h0D}{&h0A}"
                        & "{&h0D}{&h0A}"
                        & " If IsNull(obj.GetVariable({&h22}Auto_Point{&h22})) Then{&h0D}{&h0A}"
                        & "   Set obj = cimOwnerObj{&h0D}{&h0A}"
                        & " End If{&h0D}{&h0A}"
                        & "{&h0D}{&h0A}"
                        & " Set ToggleVariable = cimOwnerObj.GetVariable({&h22}Point_To_Toggle{&h22}){&h0D}{&h0A}"
                        & "{&h0D}{&h0A}"
                        & " {&h0D}{&h0A}"
                        & " configDlg.TogglePoint = ToggleVariable{&h0D}{&h0A}"
                        & " {&h0D}{&h0A}"
                        & " If Dialog(configDlg) = -1 Then{&h0D}{&h0A}"
                        & " {&h09}{&h0D}{&h0A}"
                        & " ToggleVariable = configDlg.TogglePoint{&h0D}{&h0A}"
                        & " End If{&h0D}{&h0A}"
                        & "{&h0D}{&h0A}"
                        & "End Sub")
                      (GmmiOptionTable
                        (GmmiEditInsertEvent
                          (GmmiEvent 2
                            (GmmiInvokeScriptAction 0 "" "OnEditWizardProperties"
                              (GmmiParameterBlock 0)) ""))
                        (GmmiEditPropertiesEvent
                          (GmmiEvent 2
                            (GmmiInvokeScriptAction 0 "" "OnEditWizardProperties"
                              (GmmiParameterBlock 0)) ""))))
                    (GmmiTabOrder -1))
                  (GmmiObjectPtrList
                    (GmmiEllipseShapeObject
                      (GmmiObject "Green_Light1" 0
                        (Help "" "" "")
                        (GmmiOptionTable
                          (GmmiVariables
                            (GmmiVariables "Point_To_Change_Color" "" 0))
                          (GmmiOptionTable
                            (GmmiExprAnnun 1
                              (GmmiExprAnnunElement
                                (GmmiExprAnim 3
                                  (GmmiExpr "{&h7B}POINT_TO_TOGGLE}"))
                                (GmmiOptionTable
                                  (GmmiInteriorAnnunAttr 0
                                    (Interior (Color 1 &hff00) (Color 1 &hffffff) 1)))))))
                        (GmmiTabOrder -1))
                      (Extents
                        (Rect 8178 8315 8528 7955)
                        (Rect 8178 8315 8528 7955))
                      (Border (Color 1 &h0) 23 11 0)
                      (Interior (Color 1 &h4100) (Color 1 &hffffff) 1)
                      (Interior (Color 1 &h0) (Color 1 &h0) 1) 0 0
                      (Size 175 180)
                      (Point 8353 8135) 0 0 0)
                    (GmmiGroupObject
                      (GmmiContainerObject
                        (GmmiObject "Group41" 0
                          (Help "" "" "")
                          (Empty)
                          (GmmiTabOrder -1))
                        (GmmiObjectPtrList
                          (GmmiEllipseShapeObject
                            (GmmiObject "Shape5" 0
                              (Help "" "" "")
                              (Empty)
                              (GmmiTabOrder -1))
                            (Extents
                              (Rect 8158 8325 8530 7945)
                              (Rect 8168 8315 8520 7955))
                            (Border (Color 1 &h0) 16 1 0)
                            (Interior (Color 1 &h0) (Color 1 &hffffff) 0)
                            (Interior (Color 1 &h0) (Color 1 &h0) 1) 0 0
                            (Size 176 180)
                            (Point 8344 8135) 0 0 0)
                          (GmmiLineObject
                            (GmmiObject "Line6" 0
                              (Help "" "" "")
                              (Empty)
                              (GmmiTabOrder -1))
                            (Extents
                              (Rect 8307 8127 8453 8016)
                              (Rect 8307 8127 8453 8016))
                            (Border (Color 1 &h0) 23 11 0)
                            (Interior (Color 1 &hffffff) (Color 1 &hffffff) 1)
                            (Interior (Color 1 &h0) (Color 1 &h0) 1) 0 0
                            (PointArray
                              (Point 8453 8127)
                              (Point 8449 8107)
                              (Point 8437 8069)
                              (Point 8406 8035)
                              (Point 8371 8017)
                              (Point 8331 8016)
                              (Point 8307 8029)
                              (Point 8329 8026)
                              (Point 8368 8037)
                              (Point 8415 8069)
                              (Point 8433 8094)
                              (Point 8444 8111)) 2
                            (Arrow 0 0 0)
                            (Arrow 0 0 0))) 0) 0
                      (Interior (Color 1 &h0) (Color 1 &h0) 1))) 0) 0
                (Interior (Color 1 &h0) (Color 1 &h0) 1))
              (GmmiTextObject
                (GmmiObject "" 0
                  (Help "" "" "")
                  (Empty)
                  (GmmiTabOrder -1))
                (Extents
                  (Rect 8690 8280 11090 7960)
                  (Rect 8710 8280 11110 7960))
                (Font "Arial" 0 -280 1 0)
                (Interior (Color 1 &h0) (Color 1 &hffffff) 1)
                (Border (Color 1 &h0) 0 11 0) 18
                (Point 8690 8280) "TEXT_NAME_CWL")) 0) 0
          (Interior (Color 1 &h0) (Color 1 &h0) 1))) 0
      (GmmiBackdrop
        (Border (Color 1 &h0) 0 11 0)
        (Interior (Color 1 &hbead5a) (Color 1 &hd0cfb3) 128 1 64))))
  (Point 100 100)
  (Size 20480 15360) 100 "")
(OleItems)