object frmMain: TfrmMain Left = 180 Height = 240 Top = 142 Width = 807 Caption = 'lazHarpoonEventsMQTT' ClientHeight = 240 ClientWidth = 807 Position = poDefaultPosOnly LCLVersion = '2.0.8.0' object PageControl1: TPageControl Left = 0 Height = 240 Top = 0 Width = 807 ActivePage = tshDLLInit Anchors = [akTop, akLeft, akRight, akBottom] MultiLine = True TabIndex = 0 TabOrder = 0 Options = [nboMultiLine] object tshDLLInit: TTabSheet Caption = 'DLLInit' ClientHeight = 212 ClientWidth = 799 object pnlRight: TPanel Left = 399 Height = 212 Top = 0 Width = 400 Align = alRight ClientHeight = 212 ClientWidth = 400 TabOrder = 0 object pnlDLLInit: TPanel Left = 1 Height = 195 Top = 16 Width = 398 Align = alClient Caption = 'pnlDLLInit' ClientHeight = 195 ClientWidth = 398 TabOrder = 0 object memDLLInit: TMemo Left = 1 Height = 193 Top = 1 Width = 396 Align = alClient ScrollBars = ssAutoBoth TabOrder = 0 end end object Label1: TLabel Left = 1 Height = 15 Top = 1 Width = 398 Align = alTop Caption = 'DLL Initialization Log' ParentColor = False end end object pnlLeft: TPanel Left = 0 Height = 212 Top = 0 Width = 394 Align = alClient ClientHeight = 212 ClientWidth = 394 TabOrder = 1 object lblMQTTConnectionStatus: TLabel Left = 1 Height = 15 Top = 1 Width = 392 Align = alTop Caption = 'MQTT Connection: ' ParentColor = False end object pnlCredentials: TPanel Left = 1 Height = 58 Top = 16 Width = 392 Align = alTop ClientHeight = 58 ClientWidth = 392 TabOrder = 0 object lblUser: TLabel Left = 8 Height = 15 Top = 5 Width = 59 Caption = 'Username: ' ParentColor = False end object lblPassword: TLabel Left = 8 Height = 15 Top = 32 Width = 53 Caption = 'Password:' ParentColor = False end object edtUsername: TEdit Left = 72 Height = 23 Top = 5 Width = 112 TabOrder = 0 end object edtPassword: TEdit Left = 72 Height = 23 Top = 32 Width = 112 EchoMode = emPassword PasswordChar = '*' TabOrder = 1 end object ckbCredentials: TCheckBox Left = 200 Height = 19 Top = 16 Width = 176 Caption = 'Use Username and Password?' OnChange = ckbCredentialsChange TabOrder = 2 end end object memMQTT: TMemo Left = 1 Height = 137 Top = 74 Width = 392 Align = alClient Lines.Strings = ( '' ) ScrollBars = ssAutoBoth TabOrder = 1 end end object Splitter1: TSplitter Left = 394 Height = 212 Top = 0 Width = 5 Align = alRight ResizeAnchor = akRight end end end object MQTTClient: TTMSMQTTClient ClientID = 'Alliance' BrokerHostName = 'mqtt.harpgamer.com' BrokerPort = 8883 UseSSL = True KeepAliveSettings.AutoReconnect = True OnConnectedStatusChanged = MQTTClientConnectedStatusChanged Version = '0.258.0.2' left = 584 top = 72 end object tmrMQTTConnect: TTimer Enabled = False Interval = 2500 OnTimer = tmrMQTTConnectTimer left = 40 top = 40 end end