187 lines
3.6 KiB
Plaintext
187 lines
3.6 KiB
Plaintext
object frmMain: TfrmMain
|
|
Left = 422
|
|
Top = 202
|
|
Caption = 'MQTT Client for NILM[Program by QSenTech. Co. Ltd]'
|
|
ClientHeight = 709
|
|
ClientWidth = 1302
|
|
Color = clBtnFace
|
|
Font.Charset = ANSI_CHARSET
|
|
Font.Color = clWindowText
|
|
Font.Height = -12
|
|
Font.Name = #44404#47548
|
|
Font.Style = []
|
|
Menu = MainMenu1
|
|
OldCreateOrder = False
|
|
Position = poScreenCenter
|
|
OnCreate = FormCreate
|
|
PixelsPerInch = 96
|
|
TextHeight = 12
|
|
object Splitter1: TSplitter
|
|
Left = 226
|
|
Top = 0
|
|
Height = 619
|
|
ExplicitHeight = 627
|
|
end
|
|
object StatusBar1: TStatusBar
|
|
Left = 0
|
|
Top = 690
|
|
Width = 1302
|
|
Height = 19
|
|
Panels = <
|
|
item
|
|
Width = 150
|
|
end
|
|
item
|
|
Width = 50
|
|
end
|
|
item
|
|
Width = 50
|
|
end
|
|
item
|
|
Width = 50
|
|
end>
|
|
end
|
|
object ListBox1: TListBox
|
|
Left = 0
|
|
Top = 619
|
|
Width = 1302
|
|
Height = 71
|
|
Align = alBottom
|
|
Color = clSilver
|
|
Font.Charset = ANSI_CHARSET
|
|
Font.Color = clBlack
|
|
Font.Height = -12
|
|
Font.Name = #44404#47548
|
|
Font.Style = []
|
|
ItemHeight = 12
|
|
ParentFont = False
|
|
TabOrder = 1
|
|
end
|
|
object Panel1: TPanel
|
|
Left = 229
|
|
Top = 0
|
|
Width = 1073
|
|
Height = 619
|
|
Align = alClient
|
|
BevelOuter = bvNone
|
|
TabOrder = 2
|
|
object Panel2: TPanel
|
|
Left = 0
|
|
Top = 0
|
|
Width = 1073
|
|
Height = 41
|
|
Align = alTop
|
|
BevelInner = bvLowered
|
|
TabOrder = 0
|
|
end
|
|
object Chart_main: TChart
|
|
Left = 0
|
|
Top = 41
|
|
Width = 1073
|
|
Height = 578
|
|
Title.Text.Strings = (
|
|
'TChart')
|
|
ClipPoints = False
|
|
View3D = False
|
|
Align = alClient
|
|
TabOrder = 1
|
|
DefaultCanvas = 'TGDIPlusCanvas'
|
|
PrintMargins = (
|
|
15
|
|
23
|
|
15
|
|
23)
|
|
ColorPaletteIndex = 13
|
|
end
|
|
end
|
|
object TreeView1: TTreeView
|
|
Left = 0
|
|
Top = 0
|
|
Width = 226
|
|
Height = 619
|
|
Align = alLeft
|
|
Indent = 19
|
|
TabOrder = 3
|
|
OnClick = TreeView1Click
|
|
end
|
|
object initTimer: TTimer
|
|
OnTimer = initTimerTimer
|
|
Left = 65
|
|
Top = 118
|
|
end
|
|
object MainMenu1: TMainMenu
|
|
Left = 115
|
|
Top = 170
|
|
object File2: TMenuItem
|
|
Caption = 'File'
|
|
object CONFIG1: TMenuItem
|
|
Caption = 'CONFIG'
|
|
OnClick = CONFIG1Click
|
|
end
|
|
object N1: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object NILM2: TMenuItem
|
|
Caption = 'NILM'
|
|
OnClick = NILM2Click
|
|
end
|
|
object Device1: TMenuItem
|
|
Caption = 'Device'
|
|
OnClick = Device1Click
|
|
end
|
|
object N3: TMenuItem
|
|
Caption = '-'
|
|
end
|
|
object ProgramExit1: TMenuItem
|
|
Caption = 'Program Exit'
|
|
OnClick = ProgramExit1Click
|
|
end
|
|
end
|
|
end
|
|
object ZConnection1: TZConnection
|
|
ControlsCodePage = cCP_UTF16
|
|
Catalog = ''
|
|
DisableSavepoints = False
|
|
HostName = ''
|
|
Port = 0
|
|
Database = 'nilm'
|
|
User = ''
|
|
Password = ''
|
|
Protocol = 'mysql'
|
|
Left = 175
|
|
Top = 255
|
|
end
|
|
object ZReadOnlyQuery1: TZReadOnlyQuery
|
|
Connection = ZConnection1
|
|
Params = <>
|
|
Left = 175
|
|
Top = 320
|
|
end
|
|
object ZQuery1: TZQuery
|
|
Connection = ZConnection1
|
|
Params = <>
|
|
Left = 175
|
|
Top = 395
|
|
end
|
|
object Timer1: TTimer
|
|
Enabled = False
|
|
OnTimer = Timer1Timer
|
|
Left = 75
|
|
Top = 305
|
|
end
|
|
object MQTTClient1: TMQTTClient
|
|
KeepAlive = 10
|
|
MaxRetries = 8
|
|
RetryTime = 60
|
|
Clean = False
|
|
Broker = False
|
|
AutoSubscribe = False
|
|
Username = 'qsentech'
|
|
Password = 'qsentech!1233'
|
|
Port = 1883
|
|
LocalBounce = False
|
|
Left = 160
|
|
Top = 40
|
|
end
|
|
end
|