jhw/MMCL
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
d1e1ad0630
MMCL/agents/delphi_nilm_agent/uNILMDeviceForm.dfm
jhw d1e1ad0630 first upload
2026-09-04 11:24:42 +09:00

439 lines
9.8 KiB
Plaintext
Raw Blame History

object fNILMDevice: TfNILMDevice
Left = 0
Top = 0
BorderStyle = bsDialog
Caption = 'NILM '#51109#48708' '#49444#51221
ClientHeight = 820
ClientWidth = 836
Color = 2763306
Font.Charset = HANGEUL_CHARSET
Font.Color = 15921906
Font.Height = -13
Font.Name = 'Segoe UI'
Font.Style = []
Position = poMainFormCenter
OnCreate = FormCreate
TextHeight = 17
object pnlTop: TPanel
Left = 0
Top = 0
Width = 836
Height = 48
Align = alTop
BevelOuter = bvNone
Color = 1644825
ParentBackground = False
TabOrder = 0
object lblTitle: TLabel
Left = 16
Top = 10
Width = 143
Height = 28
Caption = 'NILM '#51109#48708' '#49444#51221
Font.Charset = HANGEUL_CHARSET
Font.Color = 15921906
Font.Height = -20
Font.Name = 'Segoe UI'
Font.Style = [fsBold]
ParentFont = False
end
end
object pnlBottom: TPanel
Left = 0
Top = 774
Width = 836
Height = 46
Align = alBottom
BevelOuter = bvNone
Color = 1644825
ParentBackground = False
TabOrder = 1
object btnSave: TButton
Left = 636
Top = 11
Width = 90
Height = 30
Caption = #51200#51109' (F2)'
Default = True
TabOrder = 0
OnClick = btnSaveClick
end
object btnCancel: TButton
Left = 736
Top = 11
Width = 90
Height = 30
Cancel = True
Caption = #52712#49548' (Esc)'
ModalResult = 2
TabOrder = 1
OnClick = btnCancelClick
end
end
object pnlBasic: TPanel
Left = 0
Top = 48
Width = 300
Height = 726
Align = alLeft
BevelOuter = bvNone
Color = 2763306
ParentBackground = False
TabOrder = 2
object lblBasicInfo: TLabel
Left = 12
Top = 10
Width = 64
Height = 20
Caption = #44592#48376' '#51221#48372
Font.Charset = HANGEUL_CHARSET
Font.Color = 16760832
Font.Height = -15
Font.Name = 'Segoe UI'
Font.Style = [fsBold]
ParentFont = False
end
object lblDeviceID: TLabel
Left = 12
Top = 42
Width = 56
Height = 17
Caption = #51109#48708' '#48264#54840
Font.Charset = HANGEUL_CHARSET
Font.Color = 11184810
Font.Height = -13
Font.Name = 'Segoe UI'
Font.Style = []
ParentFont = False
end
object lblDeviceName: TLabel
Left = 12
Top = 100
Width = 56
Height = 17
Caption = #51109#48708' '#47749#52845
Font.Charset = HANGEUL_CHARSET
Font.Color = 11184810
Font.Height = -13
Font.Name = 'Segoe UI'
Font.Style = []
ParentFont = False
end
object lblLocation: TLabel
Left = 12
Top = 158
Width = 56
Height = 17
Caption = #49444#52824' '#50948#52824
Font.Charset = HANGEUL_CHARSET
Font.Color = 11184810
Font.Height = -13
Font.Name = 'Segoe UI'
Font.Style = []
ParentFont = False
end
object lblPhaseType: TLabel
Left = 12
Top = 216
Width = 56
Height = 17
Caption = #49345#49688' '#53440#51077
Font.Charset = HANGEUL_CHARSET
Font.Color = 11184810
Font.Height = -13
Font.Name = 'Segoe UI'
Font.Style = []
ParentFont = False
end
object lblMqttTopic: TLabel
Left = 12
Top = 332
Width = 70
Height = 17
Caption = 'MQTT Topic'
Font.Charset = HANGEUL_CHARSET
Font.Color = 11184810
Font.Height = -13
Font.Name = 'Segoe UI'
Font.Style = []
ParentFont = False
end
object lblMemo: TLabel
Left = 12
Top = 630
Width = 26
Height = 17
Caption = #48708#44256
Font.Charset = HANGEUL_CHARSET
Font.Color = 11184810
Font.Height = -13
Font.Name = 'Segoe UI'
Font.Style = []
ParentFont = False
end
object lblOpTargetPhase: TLabel
Left = 12
Top = 390
Width = 73
Height = 17
Caption = #45824#49345' '#49345' '#49440#53469
Font.Charset = HANGEUL_CHARSET
Font.Color = 11184810
Font.Height = -13
Font.Name = 'Segoe UI'
Font.Style = []
ParentFont = False
end
object lblOpThresholdOffCurrent: TLabel
Left = 12
Top = 450
Width = 128
Height = 17
Caption = #51204#50896#44732#51664' '#44592#51456' '#51204#47448'(A)'
Font.Charset = HANGEUL_CHARSET
Font.Color = 11184810
Font.Height = -13
Font.Name = 'Segoe UI'
Font.Style = []
ParentFont = False
end
object lblOpThresholdRunCurrent: TLabel
Left = 12
Top = 510
Width = 102
Height = 17
Caption = #44032#46041' '#44592#51456' '#51204#47448'(A)'
Font.Charset = HANGEUL_CHARSET
Font.Color = 11184810
Font.Height = -13
Font.Name = 'Segoe UI'
Font.Style = []
ParentFont = False
end
object lblOpThresholdPF: TLabel
Left = 12
Top = 570
Width = 73
Height = 17
Caption = #44032#46041' '#44592#51456' PF'
Font.Charset = HANGEUL_CHARSET
Font.Color = 11184810
Font.Height = -13
Font.Name = 'Segoe UI'
Font.Style = []
ParentFont = False
end
object edtDeviceID: TEdit
Left = 12
Top = 60
Width = 100
Height = 25
Color = 3289650
Font.Charset = HANGEUL_CHARSET
Font.Color = 15921906
Font.Height = -13
Font.Name = 'Segoe UI'
Font.Style = []
ParentFont = False
TabOrder = 0
end
object edtDeviceName: TEdit
Left = 12
Top = 118
Width = 270
Height = 25
Color = 3289650
Font.Charset = HANGEUL_CHARSET
Font.Color = 15921906
Font.Height = -13
Font.Name = 'Segoe UI'
Font.Style = []
ParentFont = False
TabOrder = 1
end
object edtLocation: TEdit
Left = 12
Top = 176
Width = 270
Height = 25
Color = 3289650
Font.Charset = HANGEUL_CHARSET
Font.Color = 15921906
Font.Height = -13
Font.Name = 'Segoe UI'
Font.Style = []
ParentFont = False
TabOrder = 2
end
object rgPhaseType: TRadioGroup
Left = 12
Top = 234
Width = 270
Height = 50
Columns = 2
Font.Charset = HANGEUL_CHARSET
Font.Color = 15921906
Font.Height = -13
Font.Name = 'Segoe UI'
Font.Style = []
ItemIndex = 0
Items.Strings = (
'3'#49345' (3Phase)'
#45800#49345' (Single)')
ParentBackground = False
ParentFont = False
TabOrder = 3
OnClick = rgPhaseTypeClick
end
object chkIsActive: TCheckBox
Left = 12
Top = 296
Width = 150
Height = 24
Caption = #54876#49457#54868
Checked = True
Font.Charset = HANGEUL_CHARSET
Font.Color = 15921906
Font.Height = -13
Font.Name = 'Segoe UI'
Font.Style = []
ParentFont = False
State = cbChecked
TabOrder = 4
end
object edtMqttTopic: TEdit
Left = 12
Top = 350
Width = 270
Height = 25
Color = 1644825
Font.Charset = HANGEUL_CHARSET
Font.Color = clGray
Font.Height = -13
Font.Name = 'Segoe UI'
Font.Style = []
ParentFont = False
ReadOnly = True
TabOrder = 5
end
object memMemo: TMemo
Left = 12
Top = 650
Width = 270
Height = 100
Color = 3289650
Font.Charset = HANGEUL_CHARSET
Font.Color = 15921906
Font.Height = -13
Font.Name = 'Segoe UI'
Font.Style = []
ParentFont = False
ScrollBars = ssVertical
TabOrder = 6
end
object cmbOpTargetPhase: TComboBox
Left = 12
Top = 410
Width = 270
Height = 25
Color = 3289650
Font.Charset = HANGEUL_CHARSET
Font.Color = 15921906
Font.Height = -13
Font.Name = 'Segoe UI'
Font.Style = []
ParentFont = False
TabOrder = 7
Items.Strings = (
'AVG'
'L1'
'L2'
'L3')
end
object edtOpThresholdOffCurrent: TEdit
Left = 12
Top = 470
Width = 270
Height = 25
Color = 3289650
Font.Charset = HANGEUL_CHARSET
Font.Color = 15921906
Font.Height = -13
Font.Name = 'Segoe UI'
Font.Style = []
ParentFont = False
TabOrder = 8
end
object edtOpThresholdRunCurrent: TEdit
Left = 12
Top = 530
Width = 270
Height = 25
Color = 3289650
Font.Charset = HANGEUL_CHARSET
Font.Color = 15921906
Font.Height = -13
Font.Name = 'Segoe UI'
Font.Style = []
ParentFont = False
TabOrder = 9
end
object edtOpThresholdPF: TEdit
Left = 12
Top = 590
Width = 270
Height = 25
Color = 3289650
Font.Charset = HANGEUL_CHARSET
Font.Color = 15921906
Font.Height = -13
Font.Name = 'Segoe UI'
Font.Style = []
ParentFont = False
TabOrder = 10
end
end
object pnlSensor: TPanel
Left = 300
Top = 48
Width = 536
Height = 726
Align = alClient
BevelOuter = bvNone
Color = 2763306
ParentBackground = False
TabOrder = 3
object lblSensorCfg: TLabel
Left = 12
Top = 10
Width = 64
Height = 20
Caption = #49468#49436' '#49444#51221
Font.Charset = HANGEUL_CHARSET
Font.Color = 16760832
Font.Height = -15
Font.Name = 'Segoe UI'
Font.Style = [fsBold]
ParentFont = False
end
object grdSensor: TStringGrid
Left = 0
Top = 0
Width = 536
Height = 726
Align = alClient
DefaultColWidth = 100
FixedCols = 0
RowCount = 2
Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing, goEditing]
TabOrder = 0
ColWidths = (
105
100
100
100
100)
end
end
end
Reference in New Issue View Git Blame Copy Permalink