SungjuNewPrime/NILM_Agent/AgentNILM_MQTTClient(Delphi13 VCL)/uMain.dfm
2026-09-04 11:15:47 +09:00

1671 lines
48 KiB
Plaintext

object fMain: TfMain
Left = 0
Top = 0
Caption = 'AgentNILM'
ClientHeight = 649
ClientWidth = 1162
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Segoe UI'
Font.Style = []
Icon.Data = {
0000010001001010000001002000680400001600000028000000100000002000
0000010020000000000000000000000000000000000000000000000000007F7F
7F7F7F7F7FFF7F7F7FFF7F7F7FFF7F7F7FFF7F7F7FFF7F7F7FFF7F7F7FFF7F7F
7FFF7F7F7FFF7F7F7FFF7F7F7FFF7F7F7FFF7F7F7FFF7F7F7FFF7F7F7F7F7F7F
7FFF0000007F000000FF000000FF000000FF000000FF000000FF000000FF0000
00FF000000FF000000FF000000FF000000FF000000FF0000007F7F7F7FFF7F7F
7FFF000000FF00FF00FF00FF00FF00FF00FF00FF00FF00FF00FF000000FF0000
00FF00FF00FF000000FF000000FF000000FF00FF00FF000000FF7F7F7FFF7F7F
7FFF000000FF00FF00FF000000FF000000FF000000FF000000FF000000FF0000
00FF00FF00FF000000FF00FF00FF000000FF00FF00FF000000FF7F7F7FFF7F7F
7FFF000000FF00FF00FF000000FF000000FF000000FF000000FF000000FF0000
00FF00FF00FF000000FF00FF00FF000000FF00FF00FF000000FF7F7F7FFF7F7F
7FFF000000FF00FF00FF000000FF000000FF000000FF000000FF000000FF0000
00FF00FF00FF000000FF00FF00FF000000FF00FF00FF000000FF7F7F7FFF7F7F
7FFF000000FF00FF00FF000000FF000000FF000000FF000000FF000000FF0000
00FF00FF00FF00FF00FF000000FF00FF00FF00FF00FF000000FF7F7F7FFF7F7F
7FFF000000FF00FF00FF000000FF000000FF000000FF000000FF000000FF0000
00FF00FF00FF00FF00FF000000FF00FF00FF00FF00FF000000FF7F7F7FFF7F7F
7FFF000000FF00FF00FF000000FF000000FF000000FF000000FF000000FF0000
00FF00FF00FF000000FF000000FF000000FF00FF00FF000000FF7F7F7FFF7F7F
7FFF000000FF00FF00FF000000FF000000FF000000FF000000FF000000FF0000
00FF00FF00FF000000FF000000FF000000FF00FF00FF000000FF7F7F7FFF7F7F
7FFF0000007F000000FF000000FF000000FF000000FF000000FF000000FF0000
00FF000000FF000000FF000000FF000000FF000000FF0000007F7F7F7FFF7F7F
7F7F7F7F7FFF7F7F7FFF7F7F7FFF7F7F7FFF7F7F7FFF7F7F7FFF7F7F7FFF7F7F
7FFF7F7F7FFF7F7F7FFF7F7F7FFF7F7F7FFF7F7F7FFF7F7F7FFF7F7F7F7F0000
00000000000000000000FF7F007FFF7F00FFFF7F007F00000000000000000000
000000000000FF7F007FFF7F00FFFF7F007F000000000000000000000000FF7F
007FFF7F007FFF7F007FFF7F007FFF7F00FFFF7F007FFF7F007FFF7F007FFF7F
007FFF7F007FFF7F007FFF7F00FFFF7F007FFF7F007FFF7F007FFF7F007FFF7F
00FFFF7F00FFFF7F00FFFF7F00FFFF7F00FFFF7F00FFFF7F00FFFF7F00FFFF7F
00FFFF7F00FFFF7F00FFFF7F00FFFF7F00FFFF7F00FFFF7F00FFFF7F00FFFF7F
007FFF7F007FFF7F007FFF7F007FFF7F007FFF7F007FFF7F007FFF7F007FFF7F
007FFF7F007FFF7F007FFF7F007FFF7F007FFF7F007FFF7F007FFF7F007F0000
0000000000000000000000000000000000000000000000000000000000000000
0000000000000000000000000000E3C70000000000000000000000000000}
OnCreate = FormCreate
OnDestroy = FormDestroy
TextHeight = 15
object panMainTop: TPanel
Left = 0
Top = 0
Width = 1162
Height = 89
Align = alTop
TabOrder = 1
ExplicitWidth = 1054
DesignSize = (
1162
89)
object lbDateTime: TLabel
Left = 947
Top = 26
Width = 200
Height = 28
Alignment = taRightJustify
Anchors = [akTop, akRight]
Caption = '2026-05-13 17:00:00'
Font.Charset = DEFAULT_CHARSET
Font.Color = 12100500
Font.Height = -20
Font.Name = 'Segoe UI'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
ExplicitLeft = 839
end
object Label12: TLabel
Left = 708
Top = 37
Width = 36
Height = 15
Caption = #51312#54924#49688
end
object btnMainStart: TButton
Left = 27
Top = 18
Width = 153
Height = 50
Caption = #49884#51089
TabOrder = 0
OnClick = btnMainStartClick
end
object btnMainStop: TButton
Left = 194
Top = 18
Width = 153
Height = 50
Caption = #47688#52644
TabOrder = 1
OnClick = btnMainStopClick
end
object btPublish: TButton
Left = 979
Top = 4
Width = 71
Height = 20
Caption = 'Publish'
Enabled = False
TabOrder = 2
Visible = False
OnClick = btPublishClick
end
object cbAutoStart: TCheckBox
Left = 363
Top = 30
Width = 113
Height = 21
Caption = #51088#46041#49884#51089
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -20
Font.Name = 'Segoe UI'
Font.Style = [fsBold]
ParentFont = False
TabOrder = 3
end
object edtHistMaxRows: TEdit
Left = 752
Top = 33
Width = 51
Height = 23
Alignment = taCenter
TabOrder = 4
Text = '500'
end
object cbLogView: TCheckBox
Left = 483
Top = 34
Width = 89
Height = 17
Caption = #47196#44536' '#54364#49884
Checked = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = 'Segoe UI'
Font.Style = []
ParentFont = False
State = cbChecked
TabOrder = 5
end
object cbLogSave: TCheckBox
Left = 591
Top = 35
Width = 90
Height = 17
Caption = #47196#44536' '#51200#51109
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -15
Font.Name = 'Segoe UI'
Font.Style = []
ParentFont = False
TabOrder = 6
end
end
object pcMain: TPageControl
Left = 0
Top = 89
Width = 1162
Height = 560
ActivePage = tsSetting
Align = alClient
TabHeight = 40
TabOrder = 0
TabWidth = 200
ExplicitWidth = 1054
object tsMonitoring: TTabSheet
Caption = #47784#45768#53552#47553
object grdMQTTMonitor: TStringGrid
Left = 0
Top = 0
Width = 1154
Height = 510
Align = alClient
ColCount = 21
RowCount = 2
TabOrder = 0
ExplicitWidth = 1046
ColWidths = (
64
130
64
64
105
64
64
64
64
64
64
64
64
64
64
64
64
64
64
62
114)
end
end
object tsSetting: TTabSheet
Caption = #49444#51221' (MQTT / DB / OPC / NILM)'
object pcSetting: TPageControl
Left = 0
Top = 0
Width = 1154
Height = 510
ActivePage = tsSettingMQTT
Align = alClient
TabHeight = 40
TabOrder = 0
TabWidth = 150
ExplicitWidth = 1046
object tsSettingMQTT: TTabSheet
Caption = 'MQTT '#49444#51221
object edtMQTTHost: TLabeledEdit
Left = 205
Top = 40
Width = 100
Height = 23
EditLabel.Width = 25
EditLabel.Height = 15
EditLabel.Caption = 'Host'
TabOrder = 0
Text = '183.111.125.203'
end
object edtMQTTPort: TLabeledEdit
Left = 325
Top = 40
Width = 100
Height = 23
EditLabel.Width = 22
EditLabel.Height = 15
EditLabel.Caption = 'Port'
TabOrder = 1
Text = '1883'
end
object edtMQTTId: TLabeledEdit
Left = 445
Top = 40
Width = 100
Height = 23
EditLabel.Width = 10
EditLabel.Height = 15
EditLabel.Caption = 'Id'
TabOrder = 2
Text = 'AgentNILM'
end
object edtMQTTUId: TLabeledEdit
Left = 565
Top = 40
Width = 100
Height = 23
EditLabel.Width = 18
EditLabel.Height = 15
EditLabel.Caption = 'UId'
TabOrder = 3
Text = 'qsentech'
end
object edtMQTTUPass: TLabeledEdit
Left = 685
Top = 40
Width = 100
Height = 23
EditLabel.Width = 31
EditLabel.Height = 15
EditLabel.Caption = 'UPass'
PasswordChar = '#'
TabOrder = 4
Text = 'qsentech!1233'
end
object btnMqttConnect: TButton
Left = 811
Top = 13
Width = 100
Height = 50
Caption = 'Connect'
TabOrder = 5
OnClick = btnMqttConnectClick
end
object btnMqttDisConnect: TButton
Left = 925
Top = 13
Width = 100
Height = 50
Caption = 'DisConnect'
TabOrder = 6
OnClick = btnMqttDisConnectClick
end
object pnlMqttStatusBox: TPanel
Left = 10
Top = 13
Width = 182
Height = 50
Margins.Left = 10
Margins.Top = 10
Margins.Right = 10
Margins.Bottom = 10
BevelKind = bkFlat
BevelOuter = bvNone
Color = 12100500
ParentBackground = False
TabOrder = 7
object lblMQTTConnectionStatus: TLabel
Left = 4
Top = 8
Width = 169
Height = 28
Alignment = taCenter
AutoSize = False
Caption = #50672#44208' '#45824#44592'...'
Font.Charset = DEFAULT_CHARSET
Font.Color = 12100500
Font.Height = -20
Font.Name = 'Segoe UI'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
end
object reMQTTLog: TRichEdit
Left = 0
Top = 136
Width = 1146
Height = 324
Align = alBottom
Anchors = [akLeft, akTop, akRight, akBottom]
Font.Charset = HANGEUL_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Segoe UI'
Font.Style = []
ParentFont = False
ScrollBars = ssBoth
TabOrder = 8
ExplicitWidth = 1038
end
object btnSubscribe: TButton
Left = 811
Top = 77
Width = 214
Height = 49
Caption = 'Subscribe'
Enabled = False
TabOrder = 9
OnClick = btnSubscribeClick
end
object cbMqttLogVIew: TCheckBox
Left = 10
Top = 113
Width = 79
Height = 17
Caption = 'LogVIew'
TabOrder = 10
end
end
object tsSettingDB: TTabSheet
Caption = 'DB '#49444#51221
ImageIndex = 1
object Label1: TLabel
Left = 19
Top = 13
Width = 55
Height = 15
Caption = 'DB (NILM)'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Segoe UI'
Font.Style = []
ParentFont = False
end
object Label2: TLabel
Left = 16
Top = 77
Width = 46
Height = 15
Caption = 'DB (ETC)'
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Segoe UI'
Font.Style = []
ParentFont = False
end
object edtDBHost: TLabeledEdit
Left = 205
Top = 48
Width = 100
Height = 23
EditLabel.Width = 25
EditLabel.Height = 15
EditLabel.Caption = 'Host'
TabOrder = 0
Text = 'qst-s.iptime.org'
end
object edtDBPort: TLabeledEdit
Left = 325
Top = 48
Width = 100
Height = 23
EditLabel.Width = 22
EditLabel.Height = 15
EditLabel.Caption = 'Port'
TabOrder = 1
Text = '54323'
end
object edtDBId: TLabeledEdit
Left = 565
Top = 48
Width = 100
Height = 23
EditLabel.Width = 10
EditLabel.Height = 15
EditLabel.Caption = 'Id'
TabOrder = 2
Text = 'qsentech'
end
object edtDBPass: TLabeledEdit
Left = 685
Top = 48
Width = 100
Height = 23
EditLabel.Width = 23
EditLabel.Height = 15
EditLabel.Caption = 'Pass'
PasswordChar = '#'
TabOrder = 3
Text = 'qsentech!1233'
end
object edtDBName: TLabeledEdit
Left = 445
Top = 48
Width = 100
Height = 23
EditLabel.Width = 15
EditLabel.Height = 15
EditLabel.Caption = 'DB'
TabOrder = 4
Text = 'aiaegis'
end
object BtnDBConnect: TButton
Left = 805
Top = 32
Width = 100
Height = 48
Caption = 'Connect'
TabOrder = 5
OnClick = BtnDBConnectClick
end
object BtnDBDisConnect: TButton
Left = 917
Top = 32
Width = 100
Height = 48
Caption = 'DisConnect'
TabOrder = 6
OnClick = BtnDBDisConnectClick
end
object pnlDBStatusBox: TPanel
Left = 19
Top = 32
Width = 174
Height = 39
Margins.Left = 10
Margins.Top = 10
Margins.Right = 10
Margins.Bottom = 10
BevelKind = bkFlat
BevelOuter = bvNone
Color = 12100500
ParentBackground = False
TabOrder = 7
object lblDBConnectionStatus: TLabel
Left = 7
Top = 4
Width = 156
Height = 28
Alignment = taCenter
AutoSize = False
Caption = #50672#44208' '#45824#44592'...'
Font.Charset = DEFAULT_CHARSET
Font.Color = 12100500
Font.Height = -16
Font.Name = 'Segoe UI'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
end
object reDBLog: TRichEdit
Left = 0
Top = 212
Width = 1146
Height = 248
Align = alBottom
Anchors = [akLeft, akTop, akRight, akBottom]
Font.Charset = HANGEUL_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Segoe UI'
Font.Style = []
ParentFont = False
ScrollBars = ssBoth
TabOrder = 8
ExplicitWidth = 1038
end
object edtDBHostEtc: TLabeledEdit
Left = 205
Top = 113
Width = 100
Height = 23
EditLabel.Width = 25
EditLabel.Height = 15
EditLabel.Caption = 'Host'
TabOrder = 9
Text = 'qst-s.iptime.org'
end
object edtDBPortEtc: TLabeledEdit
Left = 325
Top = 113
Width = 100
Height = 23
EditLabel.Width = 22
EditLabel.Height = 15
EditLabel.Caption = 'Port'
TabOrder = 10
Text = '54323'
end
object edtDBIdEtc: TLabeledEdit
Left = 565
Top = 113
Width = 100
Height = 23
EditLabel.Width = 10
EditLabel.Height = 15
EditLabel.Caption = 'Id'
TabOrder = 11
Text = 'qsentech'
end
object edtDBPassEtc: TLabeledEdit
Left = 685
Top = 113
Width = 100
Height = 23
EditLabel.Width = 23
EditLabel.Height = 15
EditLabel.Caption = 'Pass'
PasswordChar = '#'
TabOrder = 12
Text = 'qsentech!1233'
end
object edtDBNameEtc: TLabeledEdit
Left = 445
Top = 113
Width = 100
Height = 23
EditLabel.Width = 15
EditLabel.Height = 15
EditLabel.Caption = 'DB'
TabOrder = 13
Text = 'aiaegis'
end
object pnlDBStatusBoxEtc: TPanel
Left = 19
Top = 97
Width = 174
Height = 39
Margins.Left = 10
Margins.Top = 10
Margins.Right = 10
Margins.Bottom = 10
BevelKind = bkFlat
BevelOuter = bvNone
Color = 12100500
ParentBackground = False
TabOrder = 14
object lblDBConnectionStatusEtc: TLabel
Left = 7
Top = 4
Width = 156
Height = 28
Alignment = taCenter
AutoSize = False
Caption = #50672#44208' '#45824#44592'...'
Font.Charset = DEFAULT_CHARSET
Font.Color = 12100500
Font.Height = -16
Font.Name = 'Segoe UI'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
end
object BtnDBConnectEtc: TButton
Left = 805
Top = 97
Width = 100
Height = 48
Caption = 'Connect'
TabOrder = 15
OnClick = BtnDBConnectEtcClick
end
object BtnDBDisConnectEtc: TButton
Left = 917
Top = 97
Width = 100
Height = 48
Caption = 'DisConnect'
TabOrder = 16
OnClick = BtnDBDisConnectEtcClick
end
object btnNILMInitDB: TButton
Left = 805
Top = 158
Width = 212
Height = 43
Caption = 'DB '#53580#51060#48660' '#49373#49457
Enabled = False
TabOrder = 17
OnClick = btnNILMInitDBClick
end
object cbDbLogVIew: TCheckBox
Left = 16
Top = 189
Width = 97
Height = 17
Caption = 'LogVIew'
TabOrder = 18
end
end
object tsSettingOPC: TTabSheet
Caption = 'OPC '#49444#51221
ImageIndex = 2
object Panel1: TPanel
Left = 0
Top = 96
Width = 1146
Height = 364
Align = alBottom
Anchors = [akLeft, akTop, akRight, akBottom]
TabOrder = 8
ExplicitWidth = 1038
DesignSize = (
1146
364)
object sbOPCMainEtc: TScrollBox
Left = 592
Top = 1
Width = 553
Height = 362
VertScrollBar.Tracking = True
Align = alRight
TabOrder = 0
Visible = False
ExplicitLeft = 484
object Label5: TLabel
Left = 24
Top = 12
Width = 59
Height = 15
Caption = 'Item Name'
end
object Label7: TLabel
Left = 232
Top = 12
Width = 28
Height = 15
Caption = 'Value'
end
object Label8: TLabel
Left = 288
Top = 12
Width = 56
Height = 15
Caption = 'Date/Time'
end
object Label9: TLabel
Left = 416
Top = 12
Width = 38
Height = 15
Caption = 'Quality'
end
object Label10: TLabel
Left = 470
Top = 12
Width = 25
Height = 15
Caption = 'Type'
end
end
object reOPCLog: TRichEdit
Left = 1
Top = 1
Width = 591
Height = 362
Align = alClient
Font.Charset = HANGEUL_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Segoe UI'
Font.Style = []
ParentFont = False
ScrollBars = ssBoth
TabOrder = 1
ExplicitWidth = 483
end
object Panel4: TPanel
Left = 305
Top = 260
Width = 269
Height = 89
Anchors = [akRight, akBottom]
TabOrder = 2
ExplicitLeft = 197
object btnOPCWriteONE: TButton
Left = 137
Top = 45
Width = 112
Height = 28
Caption = 'Write TEST'
TabOrder = 0
OnClick = btnOPCWriteONEClick
end
object Edit1: TEdit
Left = 16
Top = 16
Width = 233
Height = 23
TabOrder = 1
Text = 'QST/SHAREDEV/GWTP/AMC/1/pfA'
end
object Edit2: TEdit
Left = 16
Top = 45
Width = 101
Height = 23
Alignment = taCenter
TabOrder = 2
Text = '0'
end
end
end
object edtOPCHost: TLabeledEdit
Left = 205
Top = 40
Width = 100
Height = 23
EditLabel.Width = 25
EditLabel.Height = 15
EditLabel.Caption = 'Host'
Enabled = False
TabOrder = 0
Text = 'LocalHost'
end
object edtOPCServerName: TLabeledEdit
Left = 318
Top = 40
Width = 148
Height = 23
EditLabel.Width = 67
EditLabel.Height = 15
EditLabel.Caption = 'Server Name'
TabOrder = 1
Text = 'Takebishi.Dxp.7'
end
object edtOPCUpdateRate: TLabeledEdit
Left = 479
Top = 40
Width = 76
Height = 23
EditLabel.Width = 61
EditLabel.Height = 15
EditLabel.Caption = 'UpdateRate'
NumbersOnly = True
TabOrder = 2
Text = '1000'
end
object btnOPCConnect: TButton
Left = 581
Top = 14
Width = 100
Height = 50
Caption = 'Connect'
TabOrder = 3
OnClick = btnOPCConnectClick
end
object btnOPCRead: TButton
Left = 811
Top = 13
Width = 100
Height = 50
Caption = 'Read'
Enabled = False
TabOrder = 4
OnClick = btnOPCReadClick
end
object pnlOPCStatusBox: TPanel
Left = 10
Top = 13
Width = 182
Height = 50
Margins.Left = 10
Margins.Top = 10
Margins.Right = 10
Margins.Bottom = 10
BevelKind = bkFlat
BevelOuter = bvNone
Color = 12100500
ParentBackground = False
TabOrder = 5
object lblOPCConnectionStatus: TLabel
Left = 4
Top = 8
Width = 169
Height = 28
Alignment = taCenter
AutoSize = False
Caption = #50672#44208' '#45824#44592'...'
Font.Charset = DEFAULT_CHARSET
Font.Color = 12100500
Font.Height = -20
Font.Name = 'Segoe UI'
Font.Style = [fsBold]
ParentFont = False
Transparent = True
end
end
object btnOPCWrite: TButton
Left = 925
Top = 13
Width = 100
Height = 50
Caption = 'Write'
Enabled = False
TabOrder = 6
OnClick = btnOPCWriteClick
end
object btnOPCDisConnect: TButton
Left = 696
Top = 13
Width = 100
Height = 50
Caption = 'DisConnect'
TabOrder = 7
OnClick = btnOPCDisConnectClick
end
object cbOPCLogVIew: TCheckBox
Left = 10
Top = 73
Width = 97
Height = 17
Caption = 'LogVIew'
TabOrder = 9
end
end
object tsSettingNILM: TTabSheet
Caption = 'NILM '#49444#51221
ImageIndex = 3
object pnlNILMTop: TPanel
Left = 0
Top = 0
Width = 1146
Height = 57
Align = alTop
BevelOuter = bvNone
Color = 1644825
ParentBackground = False
TabOrder = 0
ExplicitWidth = 1038
DesignSize = (
1146
57)
object btnNILMRefresh: TButton
Left = 19
Top = 10
Width = 90
Height = 38
Caption = #49352#47196#44256#52840' (F5)'
TabOrder = 0
OnClick = btnNILMRefreshClick
end
object btnNILMAdd: TButton
Left = 133
Top = 10
Width = 80
Height = 38
Caption = #51109#48708' '#52628#44032
TabOrder = 1
OnClick = btnNILMAddClick
end
object btnNILMEdit: TButton
Left = 221
Top = 10
Width = 80
Height = 38
Caption = #49688#51221' ('#44368#52404')'
TabOrder = 2
OnClick = btnNILMEditClick
end
object btnNILMDelete: TButton
Left = 309
Top = 10
Width = 80
Height = 38
Caption = #49325#51228
TabOrder = 3
OnClick = btnNILMDeleteClick
end
object btnNILMExportJSON: TButton
Left = 911
Top = 13
Width = 110
Height = 38
Anchors = [akTop, akRight]
Caption = 'JSON '#45236#48372#45236#44592
TabOrder = 4
Visible = False
OnClick = btnNILMExportJSONClick
ExplicitLeft = 803
end
object btnNILMImportJSON: TButton
Left = 1029
Top = 13
Width = 110
Height = 38
Anchors = [akTop, akRight]
Caption = 'JSON '#44032#51201#50724#44592
TabOrder = 5
Visible = False
OnClick = btnNILMImportJSONClick
ExplicitLeft = 921
end
object chkAutoSaveDB: TCheckBox
Left = 445
Top = 20
Width = 200
Height = 17
Caption = 'MQTT '#49688#49888' '#45936#51060#53552' DB '#51200#51109
Checked = True
State = cbChecked
TabOrder = 6
end
end
object grdNILMDevice: TStringGrid
Left = 0
Top = 57
Width = 1146
Height = 403
Align = alClient
ColCount = 7
DefaultColWidth = 100
FixedCols = 0
RowCount = 2
Font.Charset = HANGEUL_CHARSET
Font.Color = 15921906
Font.Height = -12
Font.Name = 'Segoe UI'
Font.Style = []
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goRowSelect]
ParentFont = False
TabOrder = 1
ExplicitWidth = 1038
end
end
end
end
object tsLog: TTabSheet
Caption = #45936#51060#53440' '#47196#44536
ImageIndex = 3
object Panel2: TPanel
Left = 0
Top = 0
Width = 1154
Height = 49
Align = alTop
TabOrder = 0
ExplicitWidth = 1046
object etdMaxRow: TLabeledEdit
Left = 233
Top = 14
Width = 54
Height = 23
Alignment = taCenter
EditLabel.Width = 60
EditLabel.Height = 23
EditLabel.Caption = 'Max Row : '
LabelPosition = lpLeft
NumbersOnly = True
TabOrder = 0
Text = '100'
end
object etdMaxLength: TLabeledEdit
Left = 381
Top = 14
Width = 54
Height = 23
Alignment = taCenter
EditLabel.Width = 74
EditLabel.Height = 23
EditLabel.Caption = 'Max Length : '
LabelPosition = lpLeft
NumbersOnly = True
TabOrder = 1
Text = '100'
end
object cbFullLengthSet: TCheckBox
Left = 469
Top = 17
Width = 123
Height = 17
Caption = 'Full Length View'
TabOrder = 2
end
object cbDataLogVIew: TCheckBox
Left = 23
Top = 16
Width = 97
Height = 17
Caption = 'LogVIew'
TabOrder = 3
end
end
object reMainLog: TRichEdit
Left = 0
Top = 49
Width = 1154
Height = 461
Align = alClient
Font.Charset = HANGEUL_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Segoe UI'
Font.Style = []
ParentFont = False
ScrollBars = ssBoth
TabOrder = 1
ExplicitWidth = 1046
end
end
object tsAnalyze: TTabSheet
Caption = #48516#49437' (NILM)'
ImageIndex = 2
object pcHistory: TPageControl
Left = 0
Top = 0
Width = 1154
Height = 510
ActivePage = tsHistData
Align = alClient
Font.Charset = HANGEUL_CHARSET
Font.Color = 15921906
Font.Height = -12
Font.Name = 'Segoe UI'
Font.Style = []
ParentFont = False
TabHeight = 40
TabOrder = 0
TabWidth = 150
ExplicitWidth = 1046
object tsHistData: TTabSheet
Caption = #45936#51060#53552' '#51312#54924
object pnlHistFilter: TPanel
Left = 0
Top = 0
Width = 1146
Height = 66
Align = alTop
BevelOuter = bvNone
Color = 1644825
ParentBackground = False
TabOrder = 0
ExplicitWidth = 1038
object Label3: TLabel
Left = 8
Top = 14
Width = 24
Height = 15
Caption = #51109#48708
end
object Label4: TLabel
Left = 327
Top = 14
Width = 36
Height = 15
Caption = #49884#51089#51068
end
object Label6: TLabel
Left = 493
Top = 14
Width = 36
Height = 15
Caption = #51333#47308#51068
end
object Label11: TLabel
Left = 179
Top = 14
Width = 39
Height = 15
Caption = 'COMM'
end
object lblHistCount: TLabel
Left = 8
Top = 44
Width = 79
Height = 15
Caption = #51312#54924' '#44208#44284': 0 '#44148
Font.Charset = HANGEUL_CHARSET
Font.Color = clNavy
Font.Height = -12
Font.Name = 'Segoe UI'
Font.Style = [fsBold]
ParentFont = False
end
object cmbHistDevice: TComboBox
Left = 32
Top = 10
Width = 130
Height = 23
Style = csDropDownList
TabOrder = 0
end
object dtpHistFrom: TDateTimePicker
Left = 365
Top = 10
Width = 120
Height = 23
Date = 46163.000000000000000000
Time = 46163.000000000000000000
TabOrder = 1
end
object dtpHistTo: TDateTimePicker
Left = 531
Top = 10
Width = 120
Height = 23
Date = 46163.000000000000000000
Time = 46163.000000000000000000
TabOrder = 2
end
object cmbHistStatus: TComboBox
Left = 217
Top = 10
Width = 80
Height = 23
Style = csDropDownList
ItemIndex = 0
TabOrder = 3
Text = #51204#52404
Items.Strings = (
#51204#52404
#51221#49345' (0)'
#50724#47448' (255)')
end
object btnHistSearch: TButton
Left = 748
Top = 8
Width = 80
Height = 28
Caption = #51312#54924' (F5)'
TabOrder = 4
OnClick = btnHistSearchClick
end
object btnHistExportCSV: TButton
Left = 838
Top = 8
Width = 90
Height = 28
Caption = 'CSV '#45236#48372#45236#44592
TabOrder = 5
OnClick = btnHistExportCSVClick
end
end
object grdHistory: TStringGrid
Left = 0
Top = 66
Width = 1146
Height = 394
Align = alClient
ColCount = 27
DefaultColWidth = 65
DefaultRowHeight = 22
FixedCols = 0
RowCount = 2
Font.Charset = HANGEUL_CHARSET
Font.Color = 15921906
Font.Height = -12
Font.Name = 'Segoe UI'
Font.Style = []
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goRowSelect]
ParentFont = False
TabOrder = 1
ExplicitWidth = 1038
end
end
object tsEventLog: TTabSheet
Caption = #51060#48292#53944' '#47196#44536
ImageIndex = 1
object pnlEvtFilter: TPanel
Left = 0
Top = 0
Width = 1146
Height = 44
Align = alTop
BevelOuter = bvNone
Color = 1644825
ParentBackground = False
TabOrder = 0
ExplicitWidth = 1038
object Label13: TLabel
Left = 8
Top = 14
Width = 24
Height = 15
Caption = #51109#48708
end
object Label14: TLabel
Left = 172
Top = 14
Width = 36
Height = 15
Caption = #49884#51089#51068
end
object Label15: TLabel
Left = 338
Top = 14
Width = 36
Height = 15
Caption = #51333#47308#51068
end
object Label16: TLabel
Left = 506
Top = 14
Width = 24
Height = 15
Caption = #50976#54805
end
object lblEvtCount: TLabel
Left = 754
Top = 14
Width = 90
Height = 15
Caption = #51060#48292#53944' '#47196#44536': 0 '#44148
end
object cmbEvtDevice: TComboBox
Left = 32
Top = 10
Width = 130
Height = 23
Style = csDropDownList
TabOrder = 0
end
object dtpEvtFrom: TDateTimePicker
Left = 210
Top = 10
Width = 120
Height = 23
Date = 46163.000000000000000000
Time = 46163.000000000000000000
TabOrder = 1
end
object dtpEvtTo: TDateTimePicker
Left = 376
Top = 10
Width = 120
Height = 23
Date = 46163.000000000000000000
Time = 46163.000000000000000000
TabOrder = 2
end
object cmbEvtType: TComboBox
Left = 544
Top = 10
Width = 100
Height = 23
Style = csDropDownList
ItemIndex = 0
TabOrder = 3
Text = #51204#52404
Items.Strings = (
#51204#52404
'DATA'
'CONNECT'
'DISCONNECT'
'ALARM'
'ERROR')
end
object btnEvtSearch: TButton
Left = 660
Top = 8
Width = 80
Height = 28
Caption = #51312#54924' (F5)'
TabOrder = 4
OnClick = btnEvtSearchClick
end
end
object grdEventLog: TStringGrid
Left = 0
Top = 44
Width = 1146
Height = 416
Align = alClient
DefaultColWidth = 120
DefaultRowHeight = 22
FixedCols = 0
RowCount = 2
Font.Charset = HANGEUL_CHARSET
Font.Color = 15921906
Font.Height = -12
Font.Name = 'Segoe UI'
Font.Style = []
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goRowSelect]
ParentFont = False
TabOrder = 1
ExplicitWidth = 1038
end
end
object tsTrendView: TTabSheet
Caption = #53944#47004#46300' '#48516#49437
ImageIndex = 2
object Splitter1: TSplitter
Left = 299
Top = 91
Width = 8
Height = 369
ExplicitLeft = 417
ExplicitTop = 81
ExplicitHeight = 379
end
object Panel3: TPanel
Left = 0
Top = 0
Width = 1146
Height = 91
Align = alTop
TabOrder = 0
ExplicitWidth = 1038
object Label17: TLabel
Left = 505
Top = 25
Width = 24
Height = 15
Caption = #51109#48708
end
object Label18: TLabel
Left = 709
Top = 25
Width = 36
Height = 15
Caption = #49884#51089#51068
end
object Label19: TLabel
Left = 709
Top = 55
Width = 36
Height = 15
Caption = #51333#47308#51068
end
object lblTrendCount: TLabel
Left = 505
Top = 55
Width = 90
Height = 15
Caption = #53944#47116#46300' '#47196#44536': 0 '#44148
end
object btnNILMLoad: TButton
Left = 888
Top = 21
Width = 97
Height = 60
Caption = #51312#54924
TabOrder = 0
OnClick = btnNILMLoadClick
end
object GroupBox2: TGroupBox
Left = 14
Top = 6
Width = 285
Height = 75
Caption = 'Select View'
TabOrder = 1
object cbpf: TCheckBox
Left = 11
Top = 21
Width = 50
Height = 17
Caption = 'pf'
Checked = True
Font.Charset = DEFAULT_CHARSET
Font.Color = 33023
Font.Height = -15
Font.Name = 'Segoe UI'
Font.Style = [fsBold]
ParentFont = False
State = cbChecked
TabOrder = 0
StyleElements = [seClient, seBorder]
end
object cbvoltage: TCheckBox
Left = 84
Top = 21
Width = 74
Height = 17
Caption = 'voltage'
Checked = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clRed
Font.Height = -15
Font.Name = 'Segoe UI'
Font.Style = [fsBold]
ParentFont = False
State = cbChecked
TabOrder = 1
StyleElements = [seClient, seBorder]
end
object cbcurrent: TCheckBox
Left = 179
Top = 21
Width = 75
Height = 17
Caption = 'current'
Checked = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clGreen
Font.Height = -15
Font.Name = 'Segoe UI'
Font.Style = [fsBold]
ParentFont = False
State = cbChecked
TabOrder = 2
StyleElements = [seClient, seBorder]
end
object cbVar: TCheckBox
Left = 11
Top = 48
Width = 50
Height = 17
Caption = 'Var'
Checked = True
Font.Charset = DEFAULT_CHARSET
Font.Color = 16711808
Font.Height = -15
Font.Name = 'Segoe UI'
Font.Style = [fsBold]
ParentFont = False
State = cbChecked
TabOrder = 3
StyleElements = [seClient, seBorder]
end
object cbVa: TCheckBox
Left = 84
Top = 48
Width = 42
Height = 17
Caption = 'Va'
Checked = True
Font.Charset = DEFAULT_CHARSET
Font.Color = 16744448
Font.Height = -15
Font.Name = 'Segoe UI'
Font.Style = [fsBold]
ParentFont = False
State = cbChecked
TabOrder = 4
StyleElements = [seClient, seBorder]
end
object cbw: TCheckBox
Left = 179
Top = 48
Width = 42
Height = 17
Caption = 'W'
Checked = True
Font.Charset = DEFAULT_CHARSET
Font.Color = clBlue
Font.Height = -15
Font.Name = 'Segoe UI'
Font.Style = [fsBold]
ParentFont = False
State = cbChecked
TabOrder = 5
StyleElements = [seClient, seBorder]
end
end
object cmbTrendDevice: TComboBox
Left = 529
Top = 21
Width = 160
Height = 23
Style = csDropDownList
TabOrder = 2
end
object dtpTrendFrom: TDateTimePicker
Left = 747
Top = 21
Width = 120
Height = 23
Date = 46163.000000000000000000
Time = 46163.000000000000000000
TabOrder = 3
end
object dtpTrendTo: TDateTimePicker
Left = 747
Top = 51
Width = 120
Height = 23
Date = 46163.000000000000000000
Time = 46163.000000000000000000
TabOrder = 4
end
object rgCHSelect: TRadioGroup
Left = 305
Top = 6
Width = 184
Height = 75
Caption = 'Select CH'
Columns = 3
ItemIndex = 0
Items.Strings = (
'CH1'
'CH2'
'CH3')
TabOrder = 5
end
end
object Chart_Main: TChart
Left = 307
Top = 91
Width = 839
Height = 369
BackWall.Dark3D = False
BackWall.Pen.Color = 15579307
BackWall.Pen.Width = 3
BottomWall.Dark3D = False
BottomWall.Visible = False
Legend.BevelWidth = 1
Legend.Frame.Visible = False
Legend.ResizeChart = False
Legend.Visible = False
PrintProportional = False
RightWall.Dark3D = False
Title.Text.Strings = (
#51068#51088#48324' '#53084#49688)
Title.Visible = False
OnClickSeries = Chart_MainClickSeries
AxisBehind = False
BottomAxis.Axis.Visible = False
BottomAxis.Grid.Visible = False
Frame.Color = 15579307
Frame.Width = 3
View3D = False
Align = alClient
BevelOuter = bvNone
Color = 16054265
TabOrder = 1
Locked = True
ExplicitWidth = 731
DefaultCanvas = 'TGDIPlusCanvas'
PrintMargins = (
3
1
3
2)
ColorPaletteIndex = 15
object Series1: TLineSeries
Brush.BackColor = clDefault
Pointer.InflateMargins = True
Pointer.Style = psRectangle
XValues.Name = 'X'
XValues.Order = loAscending
YValues.Name = 'Y'
YValues.Order = loNone
end
object Series2: TLineSeries
Brush.BackColor = clDefault
Pointer.InflateMargins = True
Pointer.Style = psRectangle
XValues.Name = 'X'
XValues.Order = loAscending
YValues.Name = 'Y'
YValues.Order = loNone
end
object Series3: TLineSeries
Brush.BackColor = clDefault
Pointer.InflateMargins = True
Pointer.Style = psRectangle
XValues.Name = 'X'
XValues.Order = loAscending
YValues.Name = 'Y'
YValues.Order = loNone
end
object Series4: TLineSeries
Brush.BackColor = clDefault
Pointer.InflateMargins = True
Pointer.Style = psRectangle
XValues.Name = 'X'
XValues.Order = loAscending
YValues.Name = 'Y'
YValues.Order = loNone
end
object Series5: TLineSeries
Brush.BackColor = clDefault
Pointer.InflateMargins = True
Pointer.Style = psRectangle
XValues.Name = 'X'
XValues.Order = loAscending
YValues.Name = 'Y'
YValues.Order = loNone
end
object Series6: TLineSeries
Brush.BackColor = clDefault
Pointer.InflateMargins = True
Pointer.Style = psRectangle
XValues.Name = 'X'
XValues.Order = loAscending
YValues.Name = 'Y'
YValues.Order = loNone
end
end
object reTrendCheckLog: TRichEdit
Left = 0
Top = 91
Width = 299
Height = 369
Align = alLeft
Font.Charset = HANGEUL_CHARSET
Font.Color = clWindowText
Font.Height = -12
Font.Name = 'Segoe UI'
Font.Style = []
ParentFont = False
ScrollBars = ssBoth
TabOrder = 2
end
end
end
end
end
object tmrTime: TTimer
OnTimer = tmrTimeTimer
Left = 936
Top = 8
end
object tmrdelaystop: TTimer
Enabled = False
Interval = 3000
OnTimer = tmrdelaystopTimer
Left = 944
Top = 80
end
end