object frmMain: TfrmMain Left = 451 Top = 223 Width = 862 Height = 609 Caption = 'MQTT Client for NILM[Program by QSenTech. Co. Ltd]' Color = clBtnFace Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #44404#47548 Font.Style = [] Menu = MainMenu1 OldCreateOrder = False Position = poScreenCenter OnClose = FormClose OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 12 object StatusBar1: TStatusBar Left = 0 Top = 531 Width = 846 Height = 19 Panels = < item Width = 50 end item Width = 50 end item Width = 50 end item Width = 50 end> end object ListBox1: TListBox Left = 0 Top = 0 Width = 846 Height = 455 Align = alClient Color = clSilver Font.Charset = ANSI_CHARSET Font.Color = clBlack Font.Height = -12 Font.Name = #44404#47548 Font.Style = [] ItemHeight = 12 ParentFont = False TabOrder = 1 OnDblClick = ListBox1DblClick end object Panel1: TPanel Left = 0 Top = 455 Width = 846 Height = 76 Align = alBottom BevelOuter = bvNone Color = clBlack TabOrder = 2 object Label1: TLabel Left = 10 Top = 5 Width = 37 Height = 12 Caption = 'Label1' Font.Charset = ANSI_CHARSET Font.Color = clYellow Font.Height = -12 Font.Name = #44404#47548 Font.Style = [] ParentFont = False end object Label2: TLabel Left = 10 Top = 25 Width = 37 Height = 12 Caption = 'Label1' Font.Charset = ANSI_CHARSET Font.Color = clYellow Font.Height = -12 Font.Name = #44404#47548 Font.Style = [] ParentFont = False end object Label3: TLabel Left = 10 Top = 40 Width = 37 Height = 12 Caption = 'Label1' Font.Charset = ANSI_CHARSET Font.Color = clYellow Font.Height = -12 Font.Name = #44404#47548 Font.Style = [] ParentFont = False end object Label4: TLabel Left = 10 Top = 55 Width = 37 Height = 12 Caption = 'Label1' Font.Charset = ANSI_CHARSET Font.Color = clYellow Font.Height = -12 Font.Name = #44404#47548 Font.Style = [] ParentFont = False end end object MQTTClient1: TMQTTClient ClientID = 'DATA_HUB_PRY' KeepAlive = 10 MaxRetries = 8 RetryTime = 60 Clean = True Broker = False AutoSubscribe = False Username = 'qsentech' Password = 'qsentech!1233' Host = '192.168.200.200' Port = 1883 LocalBounce = False OnClientID = MQTTClient1ClientID OnMon = MQTTClient1Mon OnOnline = MQTTClient1Online OnOffline = MQTTClient1Offline OnEnableChange = MQTTClient1EnableChange OnFailure = MQTTClient1Failure OnMsg = MQTTClient1Msg Left = 216 Top = 144 end object initTimer: TTimer OnTimer = initTimerTimer Left = 65 Top = 118 end object MainMenu1: TMainMenu Left = 115 Top = 170 object File2: TMenuItem Caption = 'File' object DebugMode1: TMenuItem Caption = 'Debug Mode' OnClick = DebugMode1Click end object N8: TMenuItem Caption = '-' end object ProgramExit1: TMenuItem Caption = 'Program Exit' OnClick = ProgramExit1Click end end object File1: TMenuItem Caption = 'MQTT' object Config1: TMenuItem Caption = 'MQTT '#50672#44208#49444#51221 OnClick = Config1Click end object N2: TMenuItem Caption = '-' end object Connect1: TMenuItem Caption = 'Broker '#50672#44208 OnClick = Connect1Click end object Disconnect1: TMenuItem Caption = 'Broker '#45130#44592 OnClick = Disconnect1Click end end object NILM1: TMenuItem Caption = 'NILM' object Edit1: TMenuItem Caption = #51109#52824#44288#47532 OnClick = Edit1Click end object N1: TMenuItem Caption = #49444#48708#50672#44208 OnClick = N1Click end end end object JsonConvertor1: TJsonConvertor Left = 345 Top = 230 end object insertTimer: TTimer Enabled = False OnTimer = insertTimerTimer Left = 350 Top = 142 end object ZConnection1: TZConnection Protocol = 'mysql' Database = 'nilm' 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 end