object Screen_zoForm: TScreen_zoForm
  Left = 401
  Top = 108
  Width = 1371
  Height = 847
  Caption = 'zo'
  Color = 4605510
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object SimpleLine5: TSimpleLine
    Left = 1060
    Top = 348
    Width = 21
    Height = 269
    LineColor = clWhite
    LineStyle = [slsLeft]
    HorLine = 0
    VerLine = 0
    PenStyle = psSolid
    PenWidth = 1
    Corner = []
    CornerSize = 2
  end
  object SimpleLine16: TSimpleLine
    Left = 1020
    Top = 644
    Width = 65
    Height = 17
    LineColor = clWhite
    LineStyle = [slsTop]
    HorLine = 0
    VerLine = 0
    PenStyle = psSolid
    PenWidth = 1
    Corner = []
    CornerSize = 2
  end
  object SimpleLine17: TSimpleLine
    Left = 996
    Top = 616
    Width = 65
    Height = 17
    LineColor = clWhite
    LineStyle = [slsTop]
    HorLine = 0
    VerLine = 0
    PenStyle = psSolid
    PenWidth = 1
    Corner = []
    CornerSize = 2
  end
  object SimpleLine18: TSimpleLine
    Left = 996
    Top = 348
    Width = 65
    Height = 17
    LineColor = clWhite
    LineStyle = [slsTop]
    HorLine = 0
    VerLine = 0
    PenStyle = psSolid
    PenWidth = 1
    Corner = []
    CornerSize = 2
  end
  object SimpleLine19: TSimpleLine
    Left = 1020
    Top = 132
    Width = 65
    Height = 17
    LineColor = clWhite
    LineStyle = [slsTop]
    HorLine = 0
    VerLine = 0
    PenStyle = psSolid
    PenWidth = 1
    Corner = []
    CornerSize = 2
  end
  object SimpleLine20: TSimpleLine
    Left = 220
    Top = 424
    Width = 233
    Height = 17
    LineColor = clWhite
    LineStyle = [slsTop]
    HorLine = 0
    VerLine = 0
    PenStyle = psSolid
    PenWidth = 1
    Corner = []
    CornerSize = 2
  end
  object SimpleLine21: TSimpleLine
    Left = 392
    Top = 208
    Width = 65
    Height = 17
    LineColor = clWhite
    LineStyle = [slsTop]
    HorLine = 0
    VerLine = 0
    PenStyle = psSolid
    PenWidth = 1
    Corner = []
    CornerSize = 2
  end
  object SimpleLine27: TSimpleLine
    Left = 648
    Top = 608
    Width = 21
    Height = 109
    LineColor = clWhite
    LineStyle = [slsLeft]
    HorLine = 0
    VerLine = 0
    PenStyle = psSolid
    PenWidth = 1
    Corner = []
    CornerSize = 2
  end
  object SimpleLine28: TSimpleLine
    Left = 220
    Top = 320
    Width = 21
    Height = 105
    LineColor = clWhite
    LineStyle = [slsLeft]
    HorLine = 0
    VerLine = 0
    PenStyle = psSolid
    PenWidth = 1
    Corner = []
    CornerSize = 2
  end
  object SimpleLine30: TSimpleLine
    Left = 1084
    Top = 132
    Width = 21
    Height = 513
    LineColor = clWhite
    LineStyle = [slsLeft]
    HorLine = 0
    VerLine = 0
    PenStyle = psSolid
    PenWidth = 1
    Corner = []
    CornerSize = 2
  end
  object SimpleLine1: TSimpleLine
    Left = 708
    Top = 736
    Width = 65
    Height = 17
    LineColor = clWhite
    LineStyle = [slsTop]
    HorLine = 0
    VerLine = 0
    PenStyle = psSolid
    PenWidth = 1
    Corner = []
    CornerSize = 2
  end
  object GroupBox1: TGroupBox
    Left = 32
    Top = 28
    Width = 377
    Height = 353
    Caption = 'JROBO #0'
    Color = 3684408
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clYellow
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 0
    object Label6: TLabel
      Left = 16
      Top = 20
      Width = 94
      Height = 160
      Alignment = taRightJustify
      Caption = 
        'scr.Counter'#13#10'scr.Error'#13#10'scr.State'#13#10'scr.Text'#13#10'scr.Value'#13#10'scr.Weig' +
        'ht'#13#10#13#10
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label7: TLabel
      Left = 44
      Top = 192
      Width = 66
      Height = 140
      Alignment = taRightJustify
      Caption = 'scr.inp0'#13#10'scr.inp1'#13#10'scr.inp2'#13#10#13#10'scr.out0'#13#10'scr.out1'#13#10'scr.out2'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object VisDataboard5: TVisDataboard
      Left = 116
      Top = 20
      Width = 237
      Height = 157
      Cursor = crHandPoint
      Hint = #1056#1077#1078#1080#1084' '#1088#1072#1073#1086#1090#1099' '#1074#1077#1089#1086#1074
      TagPath = 'scr'
      TagIdRoot = '^'
      ExecuteOnTagChange = False
      TagNames.Strings = (
        'Counter'
        'Error'
        'State'
        'Text'
        'Value'
        'Weight')
      Script.Strings = (
        'begin'
        '  self.objLabel.caption := '#39#39
        '    + self.gettagvalstring(0) + #13#10'
        '    + self.gettagvalstring(1) + #13#10'
        '    + self.gettagvalstring(2) + #13#10'
        '    + self.gettagvalstring(3) + #13#10'
        '    + self.gettagvalstring(4) + #13#10'
        '    + self.gettagvalstring(5) + #13#10'
        '    ;'
        'end.')
      objLabel.Left = 0
      objLabel.Top = 0
      objLabel.Width = 237
      objLabel.Height = 157
      objLabel.Align = alClient
      objLabel.AutoSize = False
      objLabel.Color = clSilver
      objLabel.Font.Charset = DEFAULT_CHARSET
      objLabel.Font.Color = clLime
      objLabel.Font.Height = -16
      objLabel.Font.Name = 'MS Sans Serif'
      objLabel.Font.Style = [fsBold]
      objLabel.ParentColor = False
      objLabel.ParentFont = False
      objLabel.Transparent = True
      objShape.Left = 0
      objShape.Top = 0
      objShape.Width = 237
      objShape.Height = 157
      objShape.Align = alClient
      objShape.Brush.Style = bsClear
      objShape.Pen.Color = clYellow
      objShape.Pen.Style = psClear
      objShape.Visible = False
      Caption = '11.2 '#1042#1077#1089#1099
      HideMessages = True
      HideParameters = False
      DataPar.Strings = (
        'scr.Counter;Counter;;;0;0'
        'scr.Error  ;Error;;;0;0'
        'scr.State  ;State;;;0;0'
        'scr.Text   ;Text;;;0;0'
        'scr.Value  ;Value;;;0;0'
        'scr.Weight ;Weight;;;0;0')
      DataMes.Strings = (
        #1053#1077#1090' '#1089#1074#1103#1079#1080';$^.SYSTEM.ErrorFlag;1;0'
        #1053#1077#1090' '#1072#1088#1093#1080#1074#1072#1094#1080#1080';$^.WesSvrState;0;0'
        #1057#1090#1086#1087';$^.State;0;0'
        #1056#1072#1073#1086#1090#1072#1077#1090';$^.State;1;0'
        #1040#1074#1072#1088#1080#1103';$^.State;2;0')
    end
    object VisDataboard6: TVisDataboard
      Left = 116
      Top = 192
      Width = 21
      Height = 153
      Cursor = crHandPoint
      Hint = #1056#1077#1078#1080#1084' '#1088#1072#1073#1086#1090#1099' '#1074#1077#1089#1086#1074
      TagPath = 'scr'
      TagIdRoot = '^'
      ExecuteOnTagChange = False
      TagNames.Strings = (
        'inp0'
        'inp1'
        'inp2'
        'out0'
        'out1'
        'out2')
      Script.Strings = (
        'begin'
        '  self.objLabel.caption := '#39#39
        '    + self.gettagvalstring(0) + #13#10'
        '    + self.gettagvalstring(1) + #13#10'
        '    + self.gettagvalstring(2) + #13#10'
        '    + #13#10'
        '    + self.gettagvalstring(3) + #13#10'
        '    + self.gettagvalstring(4) + #13#10'
        '    + self.gettagvalstring(5) + #13#10'
        '    ;'
        'end.')
      objLabel.Left = 0
      objLabel.Top = 0
      objLabel.Width = 21
      objLabel.Height = 153
      objLabel.Align = alClient
      objLabel.AutoSize = False
      objLabel.Color = clSilver
      objLabel.Font.Charset = DEFAULT_CHARSET
      objLabel.Font.Color = clLime
      objLabel.Font.Height = -16
      objLabel.Font.Name = 'MS Sans Serif'
      objLabel.Font.Style = [fsBold]
      objLabel.ParentColor = False
      objLabel.ParentFont = False
      objLabel.Transparent = True
      objShape.Left = 0
      objShape.Top = 0
      objShape.Width = 21
      objShape.Height = 153
      objShape.Align = alClient
      objShape.Brush.Style = bsClear
      objShape.Pen.Color = clYellow
      objShape.Pen.Style = psClear
      objShape.Visible = False
      Caption = '11.2 '#1042#1077#1089#1099
      HideMessages = False
      HideParameters = False
      DataPar.Strings = (
        'scr.inp0   ;inp0;;;0;0'
        'scr.inp1   ;inp1;;;0;0'
        'scr.inp2   ;inp2;;;0;0'
        'scr.out0   ;out0;;;0;0'
        'scr.out1   ;out1;;;0;0'
        'scr.out2   ;out2;;;0;0')
      DataMes.Strings = (
        #1053#1077#1090' '#1089#1074#1103#1079#1080';$^.SYSTEM.ErrorFlag;1;0'
        #1053#1077#1090' '#1072#1088#1093#1080#1074#1072#1094#1080#1080';$^.WesSvrState;0;0'
        #1057#1090#1086#1087';$^.State;0;0'
        #1056#1072#1073#1086#1090#1072#1077#1090';$^.State;1;0'
        #1040#1074#1072#1088#1080#1103';$^.State;2;0')
    end
    object VisCheckBox4: TVisCheckBox
      Left = 140
      Top = 194
      Width = 33
      Height = 17
      TagPath = 'scr'
      TagRoot = '0'
      TagIdRoot = '^'
      ExecuteOnTagChange = False
      AutoUpdateApply = True
      ScriptEnabled = True
      ScriptDefEnabled = True
      TagNames.Strings = (
        'inp^')
      Script.Strings = (
        'begin'
        'end.')
      objCheckBox.Left = 0
      objCheckBox.Top = 0
      objCheckBox.Width = 33
      objCheckBox.Height = 17
      objCheckBox.Anchors = [akLeft, akTop, akRight, akBottom]
      objCheckBox.TabOrder = 0
      DesignSize = (
        33
        17)
    end
    object VisCheckBox5: TVisCheckBox
      Left = 140
      Top = 214
      Width = 33
      Height = 17
      TagPath = 'scr'
      TagRoot = '1'
      TagIdRoot = '^'
      ExecuteOnTagChange = False
      AutoUpdateApply = True
      ScriptEnabled = True
      ScriptDefEnabled = True
      TagNames.Strings = (
        'inp^')
      Script.Strings = (
        'begin'
        'end.')
      objCheckBox.Left = 0
      objCheckBox.Top = 0
      objCheckBox.Width = 33
      objCheckBox.Height = 17
      objCheckBox.Anchors = [akLeft, akTop, akRight, akBottom]
      objCheckBox.TabOrder = 0
      DesignSize = (
        33
        17)
    end
    object VisCheckBox6: TVisCheckBox
      Left = 140
      Top = 234
      Width = 33
      Height = 17
      TagPath = 'scr'
      TagRoot = '2'
      TagIdRoot = '^'
      ExecuteOnTagChange = False
      AutoUpdateApply = True
      ScriptEnabled = True
      ScriptDefEnabled = True
      TagNames.Strings = (
        'inp^')
      Script.Strings = (
        'begin'
        'end.')
      objCheckBox.Left = 0
      objCheckBox.Top = 0
      objCheckBox.Width = 33
      objCheckBox.Height = 17
      objCheckBox.Anchors = [akLeft, akTop, akRight, akBottom]
      objCheckBox.TabOrder = 0
      DesignSize = (
        33
        17)
    end
  end
  object GroupBox2: TGroupBox
    Left = 444
    Top = 28
    Width = 597
    Height = 201
    Caption = 'JROBO #1'
    Color = 3684408
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clYellow
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 1
    object Label3: TLabel
      Left = 17
      Top = 20
      Width = 65
      Height = 100
      Alignment = taRightJustify
      Caption = 'var_001'#13#10'var_002'#13#10'var_003'#13#10'var_004'#13#10'var_005'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object VisMchb28: TVisMchb
      Left = 171
      Top = 147
      Width = 74
      Height = 42
      Hint = '101 '#1064#1085#1077#1082
      TagPath = 'demo1'
      TagRoot = '101'
      TagIdRoot = '^'
      Data.Strings = (
        'demo1.^;101 '#1064#1085#1077#1082
        '0,7,73,10,png\shnek\ShnkA_1.png'
        '6,23,101'
        '1,0'
        '64,0,8,6,0,0,_Pdp,'#1055#1086#1076#1087#1086#1088)
      HideControl = False
      DevTypeMCTL = 'MCTL'
      BckgFlicker = False
      OnScadaObjectClick = ScadaObjectClick
      UseScadaObjectClick = True
    end
    object VisDataboard2: TVisDataboard
      Left = 88
      Top = 20
      Width = 493
      Height = 109
      Cursor = crHandPoint
      Hint = #1056#1077#1078#1080#1084' '#1088#1072#1073#1086#1090#1099' '#1074#1077#1089#1086#1074
      TagPath = 'demo1'
      TagIdRoot = '^'
      ExecuteOnTagChange = False
      TagNames.Strings = (
        'WORD_var_001'
        'WORD_var_002'
        'WORD_var_003'
        'WORD_var_004'
        'WORD_var_005')
      Script.Strings = (
        'begin'
        '  self.objLabel.caption := '#39#39
        '    + self.gettagvalstring(0) + #13#10'
        '    + self.gettagvalstring(1) + #13#10'
        '    + self.gettagvalstring(2) + #13#10'
        '    + self.gettagvalstring(3) + #13#10'
        '    + self.gettagvalstring(4) + #13#10'
        '    ;'
        'end.')
      objLabel.Left = 0
      objLabel.Top = 0
      objLabel.Width = 493
      objLabel.Height = 109
      objLabel.Align = alClient
      objLabel.AutoSize = False
      objLabel.Color = clSilver
      objLabel.Font.Charset = DEFAULT_CHARSET
      objLabel.Font.Color = clLime
      objLabel.Font.Height = -16
      objLabel.Font.Name = 'MS Sans Serif'
      objLabel.Font.Style = [fsBold]
      objLabel.ParentColor = False
      objLabel.ParentFont = False
      objLabel.Transparent = True
      objShape.Left = 0
      objShape.Top = 0
      objShape.Width = 493
      objShape.Height = 109
      objShape.Align = alClient
      objShape.Brush.Style = bsClear
      objShape.Pen.Color = clYellow
      objShape.Pen.Style = psClear
      objShape.Visible = False
      Caption = '11.2 '#1042#1077#1089#1099
      HideMessages = True
      HideParameters = False
      DataPar.Strings = (
        'var_001;WORD_var_001;;;0;0'
        'var_002;WORD_var_002;;;0;0'
        'var_003;WORD_var_003;;;0;0'
        'var_004;WORD_var_004;;;0;0'
        'var_005;WORD_var_005;;;0;0')
      DataMes.Strings = (
        #1053#1077#1090' '#1089#1074#1103#1079#1080';$^.SYSTEM.ErrorFlag;1;0'
        #1053#1077#1090' '#1072#1088#1093#1080#1074#1072#1094#1080#1080';$^.WesSvrState;0;0'
        #1057#1090#1086#1087';$^.State;0;0'
        #1056#1072#1073#1086#1090#1072#1077#1090';$^.State;1;0'
        #1040#1074#1072#1088#1080#1103';$^.State;2;0')
    end
  end
  object GroupBox3: TGroupBox
    Left = 444
    Top = 248
    Width = 597
    Height = 201
    Caption = 'JROBO #2'
    Color = 3684408
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clYellow
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 2
    object Label8: TLabel
      Left = 17
      Top = 20
      Width = 65
      Height = 100
      Alignment = taRightJustify
      Caption = 'var_001'#13#10'var_002'#13#10'var_003'#13#10'var_004'#13#10'var_005'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object VisDataboard7: TVisDataboard
      Left = 88
      Top = 20
      Width = 493
      Height = 109
      Cursor = crHandPoint
      Hint = #1056#1077#1078#1080#1084' '#1088#1072#1073#1086#1090#1099' '#1074#1077#1089#1086#1074
      TagPath = 'demo2'
      TagIdRoot = '^'
      ExecuteOnTagChange = False
      TagNames.Strings = (
        'WORD_var_001'
        'WORD_var_002'
        'WORD_var_003'
        'WORD_var_004'
        'WORD_var_005')
      Script.Strings = (
        'begin'
        '  self.objLabel.caption := '#39#39
        '    + self.gettagvalstring(0) + #13#10'
        '    + self.gettagvalstring(1) + #13#10'
        '    + self.gettagvalstring(2) + #13#10'
        '    + self.gettagvalstring(3) + #13#10'
        '    + self.gettagvalstring(4) + #13#10'
        '    ;'
        'end.')
      objLabel.Left = 0
      objLabel.Top = 0
      objLabel.Width = 493
      objLabel.Height = 109
      objLabel.Align = alClient
      objLabel.AutoSize = False
      objLabel.Color = clSilver
      objLabel.Font.Charset = DEFAULT_CHARSET
      objLabel.Font.Color = clLime
      objLabel.Font.Height = -16
      objLabel.Font.Name = 'MS Sans Serif'
      objLabel.Font.Style = [fsBold]
      objLabel.ParentColor = False
      objLabel.ParentFont = False
      objLabel.Transparent = True
      objShape.Left = 0
      objShape.Top = 0
      objShape.Width = 493
      objShape.Height = 109
      objShape.Align = alClient
      objShape.Brush.Style = bsClear
      objShape.Pen.Color = clYellow
      objShape.Pen.Style = psClear
      objShape.Visible = False
      Caption = '11.2 '#1042#1077#1089#1099
      HideMessages = True
      HideParameters = False
      DataPar.Strings = (
        'var_001;WORD_var_001;;;0;0'
        'var_002;WORD_var_002;;;0;0'
        'var_003;WORD_var_003;;;0;0'
        'var_004;WORD_var_004;;;0;0'
        'var_005;WORD_var_005;;;0;0')
      DataMes.Strings = (
        #1053#1077#1090' '#1089#1074#1103#1079#1080';$^.SYSTEM.ErrorFlag;1;0'
        #1053#1077#1090' '#1072#1088#1093#1080#1074#1072#1094#1080#1080';$^.WesSvrState;0;0'
        #1057#1090#1086#1087';$^.State;0;0'
        #1056#1072#1073#1086#1090#1072#1077#1090';$^.State;1;0'
        #1040#1074#1072#1088#1080#1103';$^.State;2;0')
    end
    object VisMchb1: TVisMchb
      Left = 171
      Top = 147
      Width = 74
      Height = 42
      Hint = '102 '#1064#1085#1077#1082
      TagPath = 'demo2'
      TagRoot = '102'
      TagIdRoot = '^'
      Data.Strings = (
        'demo2.^;102 '#1064#1085#1077#1082
        '0,7,73,10,png\shnek\ShnkA_1.png'
        '6,23,102'
        '1,0'
        '64,0,8,6,0,0,_Pdp,'#1055#1086#1076#1087#1086#1088)
      HideControl = False
      DevTypeMCTL = 'MCTL'
      BckgFlicker = False
      OnScadaObjectClick = ScadaObjectClick
      UseScadaObjectClick = True
    end
  end
  object GroupBox4: TGroupBox
    Left = 444
    Top = 468
    Width = 597
    Height = 201
    Caption = 'JROBO #3'
    Color = 3684408
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clYellow
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 3
    object Label9: TLabel
      Left = 17
      Top = 20
      Width = 65
      Height = 100
      Alignment = taRightJustify
      Caption = 'var_001'#13#10'var_002'#13#10'var_003'#13#10'var_004'#13#10'var_005'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object VisDataboard8: TVisDataboard
      Left = 88
      Top = 20
      Width = 493
      Height = 109
      Cursor = crHandPoint
      Hint = #1056#1077#1078#1080#1084' '#1088#1072#1073#1086#1090#1099' '#1074#1077#1089#1086#1074
      TagPath = 'demo3'
      TagIdRoot = '^'
      ExecuteOnTagChange = False
      TagNames.Strings = (
        'WORD_var_001'
        'WORD_var_002'
        'WORD_var_003'
        'WORD_var_004'
        'WORD_var_005')
      Script.Strings = (
        'begin'
        '  self.objLabel.caption := '#39#39
        '    + self.gettagvalstring(0) + #13#10'
        '    + self.gettagvalstring(1) + #13#10'
        '    + self.gettagvalstring(2) + #13#10'
        '    + self.gettagvalstring(3) + #13#10'
        '    + self.gettagvalstring(4) + #13#10'
        '    ;'
        'end.')
      objLabel.Left = 0
      objLabel.Top = 0
      objLabel.Width = 493
      objLabel.Height = 109
      objLabel.Align = alClient
      objLabel.AutoSize = False
      objLabel.Color = clSilver
      objLabel.Font.Charset = DEFAULT_CHARSET
      objLabel.Font.Color = clLime
      objLabel.Font.Height = -16
      objLabel.Font.Name = 'MS Sans Serif'
      objLabel.Font.Style = [fsBold]
      objLabel.ParentColor = False
      objLabel.ParentFont = False
      objLabel.Transparent = True
      objShape.Left = 0
      objShape.Top = 0
      objShape.Width = 493
      objShape.Height = 109
      objShape.Align = alClient
      objShape.Brush.Style = bsClear
      objShape.Pen.Color = clYellow
      objShape.Pen.Style = psClear
      objShape.Visible = False
      Caption = '11.2 '#1042#1077#1089#1099
      HideMessages = True
      HideParameters = False
      DataPar.Strings = (
        'var_001;WORD_var_001;;;0;0'
        'var_002;WORD_var_002;;;0;0'
        'var_003;WORD_var_003;;;0;0'
        'var_004;WORD_var_004;;;0;0'
        'var_005;WORD_var_005;;;0;0')
      DataMes.Strings = (
        #1053#1077#1090' '#1089#1074#1103#1079#1080';$^.SYSTEM.ErrorFlag;1;0'
        #1053#1077#1090' '#1072#1088#1093#1080#1074#1072#1094#1080#1080';$^.WesSvrState;0;0'
        #1057#1090#1086#1087';$^.State;0;0'
        #1056#1072#1073#1086#1090#1072#1077#1090';$^.State;1;0'
        #1040#1074#1072#1088#1080#1103';$^.State;2;0')
    end
    object VisMchb2: TVisMchb
      Left = 171
      Top = 147
      Width = 74
      Height = 42
      Hint = '103 '#1064#1085#1077#1082
      TagPath = 'demo3'
      TagRoot = '103'
      TagIdRoot = '^'
      Data.Strings = (
        'demo3.^;103 '#1064#1085#1077#1082
        '0,7,73,10,png\shnek\ShnkA_1.png'
        '6,23,103'
        '1,0'
        '64,0,8,6,0,0,_Pdp,'#1055#1086#1076#1087#1086#1088)
      HideControl = False
      DevTypeMCTL = 'MCTL'
      BckgFlicker = False
      OnScadaObjectClick = ScadaObjectClick
      UseScadaObjectClick = True
    end
  end
  object VisLabel1: TVisLabel
    Left = 455
    Top = 200
    Width = 146
    Height = 19
    TagPath = 'jrcl1'
    TagIdRoot = '^'
    ExecuteOnTagChange = False
    TagNames.Strings = (
      'client.connected')
    Script.Strings = (
      'begin'
      '  if self.gettagvalbool(0) then'
      '    self.objShape.brush.color := clLime'
      '  else'
      '    self.objShape.brush.color := clGray;'
      ''
      'end.')
    objLabel.Left = 0
    objLabel.Top = 0
    objLabel.Width = 146
    objLabel.Height = 19
    objLabel.Align = alClient
    objLabel.Alignment = taCenter
    objLabel.AutoSize = False
    objLabel.Caption = 'jrcl1.client.connected'
    objLabel.Font.Charset = DEFAULT_CHARSET
    objLabel.Font.Color = clWindowText
    objLabel.Font.Height = -13
    objLabel.Font.Name = 'MS Sans Serif'
    objLabel.Font.Style = []
    objLabel.ParentFont = False
    objLabel.Transparent = True
    objShape.Left = 0
    objShape.Top = 0
    objShape.Width = 146
    objShape.Height = 19
    objShape.Align = alClient
    objShape.Brush.Color = clGray
  end
  object VisLabel2: TVisLabel
    Left = 455
    Top = 416
    Width = 146
    Height = 19
    TagPath = 'jrcl2'
    TagIdRoot = '^'
    ExecuteOnTagChange = False
    TagNames.Strings = (
      'client.connected')
    Script.Strings = (
      'begin'
      '  if self.gettagvalbool(0) then'
      '    self.objShape.brush.color := clLime'
      '  else'
      '    self.objShape.brush.color := clGray;'
      ''
      'end.')
    objLabel.Left = 0
    objLabel.Top = 0
    objLabel.Width = 146
    objLabel.Height = 19
    objLabel.Align = alClient
    objLabel.Alignment = taCenter
    objLabel.AutoSize = False
    objLabel.Caption = 'jrcl2.client.connected'
    objLabel.Font.Charset = DEFAULT_CHARSET
    objLabel.Font.Color = clWindowText
    objLabel.Font.Height = -13
    objLabel.Font.Name = 'MS Sans Serif'
    objLabel.Font.Style = []
    objLabel.ParentFont = False
    objLabel.Transparent = True
    objShape.Left = 0
    objShape.Top = 0
    objShape.Width = 146
    objShape.Height = 19
    objShape.Align = alClient
    objShape.Brush.Color = clGray
  end
  object VisLabel3: TVisLabel
    Left = 887
    Top = 636
    Width = 146
    Height = 19
    TagPath = 'jrcl3_1'
    TagIdRoot = '^'
    ExecuteOnTagChange = False
    TagNames.Strings = (
      'client.connected')
    Script.Strings = (
      'begin'
      '  if self.gettagvalbool(0) then'
      '    self.objShape.brush.color := clLime'
      '  else'
      '    self.objShape.brush.color := clGray;'
      ''
      'end.')
    objLabel.Left = 0
    objLabel.Top = 0
    objLabel.Width = 146
    objLabel.Height = 19
    objLabel.Align = alClient
    objLabel.Alignment = taCenter
    objLabel.AutoSize = False
    objLabel.Caption = 'jrcl3_1.client.connected'
    objLabel.Font.Charset = DEFAULT_CHARSET
    objLabel.Font.Color = clWindowText
    objLabel.Font.Height = -13
    objLabel.Font.Name = 'MS Sans Serif'
    objLabel.Font.Style = []
    objLabel.ParentFont = False
    objLabel.Transparent = True
    objShape.Left = 0
    objShape.Top = 0
    objShape.Width = 146
    objShape.Height = 19
    objShape.Align = alClient
    objShape.Brush.Color = clGray
  end
  object VisLabel4: TVisLabel
    Left = 887
    Top = 608
    Width = 146
    Height = 19
    TagPath = 'jrcl3_2'
    TagIdRoot = '^'
    ExecuteOnTagChange = False
    TagNames.Strings = (
      'client.connected')
    Script.Strings = (
      'begin'
      '  if self.gettagvalbool(0) then'
      '    self.objShape.brush.color := clLime'
      '  else'
      '    self.objShape.brush.color := clGray;'
      ''
      'end.')
    objLabel.Left = 0
    objLabel.Top = 0
    objLabel.Width = 146
    objLabel.Height = 19
    objLabel.Align = alClient
    objLabel.Alignment = taCenter
    objLabel.AutoSize = False
    objLabel.Caption = 'jrcl3_2.client.connected'
    objLabel.Font.Charset = DEFAULT_CHARSET
    objLabel.Font.Color = clWindowText
    objLabel.Font.Height = -13
    objLabel.Font.Name = 'MS Sans Serif'
    objLabel.Font.Style = []
    objLabel.ParentFont = False
    objLabel.Transparent = True
    objShape.Left = 0
    objShape.Top = 0
    objShape.Width = 146
    objShape.Height = 19
    objShape.Align = alClient
    objShape.Brush.Color = clGray
  end
  object GroupBox5: TGroupBox
    Left = 444
    Top = 688
    Width = 285
    Height = 93
    Caption = 'JROBO #4'
    Color = 3684408
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clYellow
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 8
    object VisLabel5: TVisLabel
      Left = 131
      Top = 14
      Width = 146
      Height = 19
      TagPath = 'jrcl4'
      TagIdRoot = '^'
      ExecuteOnTagChange = False
      TagNames.Strings = (
        'client.connected')
      Script.Strings = (
        'begin'
        '  if self.gettagvalbool(0) then'
        '    self.objShape.brush.color := clLime'
        '  else'
        '    self.objShape.brush.color := clGray;'
        ''
        'end.')
      objLabel.Left = 0
      objLabel.Top = 0
      objLabel.Width = 146
      objLabel.Height = 19
      objLabel.Align = alClient
      objLabel.Alignment = taCenter
      objLabel.AutoSize = False
      objLabel.Caption = 'jrcl4.client.connected'
      objLabel.Font.Charset = DEFAULT_CHARSET
      objLabel.Font.Color = clWindowText
      objLabel.Font.Height = -13
      objLabel.Font.Name = 'MS Sans Serif'
      objLabel.Font.Style = []
      objLabel.ParentFont = False
      objLabel.Transparent = True
      objShape.Left = 0
      objShape.Top = 0
      objShape.Width = 146
      objShape.Height = 19
      objShape.Align = alClient
      objShape.Brush.Color = clGray
    end
  end
  object GroupBox6: TGroupBox
    Left = 760
    Top = 688
    Width = 281
    Height = 93
    Caption = 'RPVSISUAL'
    Color = 3684408
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clYellow
    Font.Height = -11
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentColor = False
    ParentFont = False
    TabOrder = 9
    object Label1: TLabel
      Left = 123
      Top = 37
      Width = 34
      Height = 20
      Alignment = taRightJustify
      Caption = 'HMI'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWhite
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
  end
end
