jhw/SungjuNewPrime
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
6516e4a8f0
SungjuNewPrime/NILM_Agent/AgentNILM_MQTTClient(Delphi13 VCL)/uNILMDeviceForm.dfm
jhw 8e1c8a01ce first upload
2026-09-04 11:15:47 +09:00

558 lines
13 KiB
Plaintext
Raw Blame History

object fNILMDevice: TfNILMDevice
Left = 0
Top = 0
BorderStyle = bsDialog
Caption = 'NILM '#51109#48708' '#49444#51221
ClientHeight = 880
ClientWidth = 1000
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 = 1000
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 = 834
Width = 1000
Height = 46
Align = alBottom
BevelOuter = bvNone
Color = 1644825
ParentBackground = False
TabOrder = 1
object btnSave: TButton
Left = 790
Top = 8
Width = 90
Height = 30
Caption = #51200#51109' (F2)'
Default = True
TabOrder = 0
OnClick = btnSaveClick
end
object btnCancel: TButton
Left = 890
Top = 8
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 = 320
Height = 786
Align = alLeft
BevelOuter = bvNone
Color = 2763306
ParentBackground = False
TabOrder = 2
object lblBasicInfo: TLabel
Left = 12
Top = 8
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 = 32
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 = 80
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 = 128
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 = 176
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 = 276
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 lblOpTargetPhase: TLabel
Left = 12
Top = 326
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 = 374
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 = 422
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 = 470
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 lblMemo: TLabel
Left = 12
Top = 702
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 edtDeviceID: TEdit
Left = 12
Top = 50
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 = 98
Width = 295
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 = 146
Width = 295
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 = 194
Width = 295
Height = 46
Columns = 3
Font.Charset = HANGEUL_CHARSET
Font.Color = 15921906
Font.Height = -13
Font.Name = 'Segoe UI'
Font.Style = []
ItemIndex = 1
Items.Strings = (
'3'#49345'3'#49440
'3'#49345'4'#49440
#45800#49345)
ParentBackground = False
ParentFont = False
TabOrder = 3
OnClick = rgPhaseTypeClick
end
object chkIsActive: TCheckBox
Left = 12
Top = 248
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 = 294
Width = 295
Height = 25
Color = 1644825
Font.Charset = HANGEUL_CHARSET
Font.Color = clGray
Font.Height = -13
Font.Name = 'Segoe UI'
Font.Style = []
ParentFont = False
TabOrder = 5
end
object cmbOpTargetPhase: TComboBox
Left = 12
Top = 344
Width = 295
Height = 25
Color = 3289650
Font.Charset = HANGEUL_CHARSET
Font.Color = 15921906
Font.Height = -13
Font.Name = 'Segoe UI'
Font.Style = []
ParentFont = False
TabOrder = 6
Items.Strings = (
'AVG'
'L1'
'L2'
'L3')
end
object edtOpThresholdOffCurrent: TEdit
Left = 12
Top = 392
Width = 295
Height = 25
Color = 3289650
Font.Charset = HANGEUL_CHARSET
Font.Color = 15921906
Font.Height = -13
Font.Name = 'Segoe UI'
Font.Style = []
ParentFont = False
TabOrder = 7
end
object edtOpThresholdRunCurrent: TEdit
Left = 12
Top = 440
Width = 295
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 edtOpThresholdPF: TEdit
Left = 12
Top = 488
Width = 295
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 grpEstimate: TGroupBox
Left = 10
Top = 520
Width = 295
Height = 175
Caption = ' '#51204#47448' '#52628#51221' '#49444#51221' (1-CT/'#51204#50517#48120#50672#44208') '
Font.Charset = HANGEUL_CHARSET
Font.Color = 16760832
Font.Height = -13
Font.Name = 'Segoe UI'
Font.Style = [fsBold]
ParentBackground = False
ParentFont = False
TabOrder = 10
object lblNominalVoltage: TLabel
Left = 10
Top = 52
Width = 72
Height = 17
Caption = #44277#52845' '#51204#50517'(V)'
Font.Charset = HANGEUL_CHARSET
Font.Color = 11184810
Font.Height = -13
Font.Name = 'Segoe UI'
Font.Style = []
ParentFont = False
end
object lblAssumedPF: TLabel
Left = 152
Top = 52
Width = 77
Height = 17
Caption = #44032#51221' '#50669#47456'(PF)'
Font.Charset = HANGEUL_CHARSET
Font.Color = 11184810
Font.Height = -13
Font.Name = 'Segoe UI'
Font.Style = []
ParentFont = False
end
object lblEstimateWiring: TLabel
Left = 10
Top = 106
Width = 86
Height = 17
Caption = #52628#51221' '#44208#49440' '#48169#49885
Font.Charset = HANGEUL_CHARSET
Font.Color = 11184810
Font.Height = -13
Font.Name = 'Segoe UI'
Font.Style = []
ParentFont = False
end
object chkIsEstimatePower: TCheckBox
Left = 10
Top = 24
Width = 270
Height = 22
Caption = #44032#49345' '#51204#47448' '#44228#49328' '#49324#50857
Checked = True
Font.Charset = HANGEUL_CHARSET
Font.Color = 15921906
Font.Height = -13
Font.Name = 'Segoe UI'
Font.Style = []
ParentFont = False
State = cbChecked
TabOrder = 0
end
object edtNominalVoltage: TEdit
Left = 10
Top = 72
Width = 130
Height = 25
Color = 3289650
Font.Charset = HANGEUL_CHARSET
Font.Color = 15921906
Font.Height = -13
Font.Name = 'Segoe UI'
Font.Style = []
ParentFont = False
TabOrder = 1
Text = '220.0'
end
object edtAssumedPF: TEdit
Left = 152
Top = 72
Width = 130
Height = 25
Color = 3289650
Font.Charset = HANGEUL_CHARSET
Font.Color = 15921906
Font.Height = -13
Font.Name = 'Segoe UI'
Font.Style = []
ParentFont = False
TabOrder = 2
Text = '0.90'
end
object cmbEstimateWiring: TComboBox
Left = 10
Top = 126
Width = 272
Height = 25
Color = 3289650
Font.Charset = HANGEUL_CHARSET
Font.Color = 15921906
Font.Height = -13
Font.Name = 'Segoe UI'
Font.Style = []
ItemIndex = 0
ParentFont = False
TabOrder = 3
Text = #45800#49345' (P = V * I * PF)'
Items.Strings = (
#45800#49345' (P = V * I * PF)'
'3'#49345' '#54217#54805' (P = '#8730'3 * V * I * PF)')
end
end
object memMemo: TMemo
Left = 12
Top = 722
Width = 295
Height = 58
Color = 3289650
Font.Charset = HANGEUL_CHARSET
Font.Color = 15921906
Font.Height = -13
Font.Name = 'Segoe UI'
Font.Style = []
ParentFont = False
ScrollBars = ssVertical
TabOrder = 11
end
end
object pnlSensor: TPanel
Left = 320
Top = 48
Width = 680
Height = 786
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 = 680
Height = 786
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