demo_mid.ctx

文本处理软件

        (GmmiGroupObject
          (GmmiContainerObject
            (GmmiObject "Group_CWL_1" 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 9335 8528 8975)
                        (Rect 8178 9335 8528 8975))
                      (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 9155) 0 0 0)
                    (GmmiGroupObject
                      (GmmiContainerObject
                        (GmmiObject "Group41" 0
                          (Help "" "" "")
                          (Empty)
                          (GmmiTabOrder -1))
                        (GmmiObjectPtrList
                          (GmmiEllipseShapeObject
                            (GmmiObject "Shape5" 0
                              (Help "" "" "")
                              (Empty)
                              (GmmiTabOrder -1))
                            (Extents
                              (Rect 8158 9345 8530 8965)
                              (Rect 8168 9335 8520 8975))
                            (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 9155) 0 0 0)
                          (GmmiLineObject
                            (GmmiObject "Line6" 0
                              (Help "" "" "")
                              (Empty)
                              (GmmiTabOrder -1))
                            (Extents
                              (Rect 8307 9147 8453 9036)
                              (Rect 8307 9147 8453 9036))
                            (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 9147)
                              (Point 8449 9127)
                              (Point 8437 9089)
                              (Point 8406 9055)
                              (Point 8371 9037)
                              (Point 8331 9036)
                              (Point 8307 9049)
                              (Point 8329 9046)
                              (Point 8368 9057)
                              (Point 8415 9089)
                              (Point 8433 9114)
                              (Point 8444 9131)) 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 9320 11090 9000)
                  (Rect 8690 9320 11090 9000))
                (Font "Arialt.BrowseEntity(entity){&h0D}{&h0A}"
                  & "{&h09}{&h09}" 0 -280 1 0)
                (Interior (Color 1 &h0) (Color 1 &hffffff) 1)
                (Border (Color 1 &h0) 0 11 0) 18
                (Point 8690 9320) "TEXT_NAME_CWL")) 0) 0
          (Interior (Color 1 &h0) (Color 1 &h0) 1))