object frmHCMQTTSender: TfrmHCMQTTSender Left = 0 Top = 0 ActiveControl = pc1 Caption = 'HCMQTTSender' ClientHeight = 338 ClientWidth = 610 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] OldCreateOrder = False OnActivate = FormActivate OnCreate = FormCreate OnDestroy = FormDestroy PixelsPerInch = 96 TextHeight = 13 object sb1: TTMSFNCStatusBar Left = 0 Top = 318 Width = 610 Height = 20 AdaptToStyle = True ParentDoubleBuffered = False DoubleBuffered = True TabOrder = 0 Panels = < item AutoSize = True Text = 'MQTT Not Connected' Style = spsText Width = 123 Progress.Level0Fill.Color = clLime Progress.Level1Fill.Color = clYellow Progress.Level2Fill.Color = 42495 Progress.Level3Fill.Color = clRed Progress.Position = 0 end> PanelAppearance.Font.Charset = DEFAULT_CHARSET PanelAppearance.Font.Color = clWindowText PanelAppearance.Font.Height = -11 PanelAppearance.Font.Name = 'Tahoma' PanelAppearance.Font.Style = [] end object pc1: TTMSFNCPageControl Left = 0 Top = 0 Width = 610 Height = 318 AdaptToStyle = True Align = alClient ParentDoubleBuffered = False DoubleBuffered = True ParentColor = True TabOrder = 1 Fill.Kind = gfkNone Stroke.Kind = gskNone TabAppearance.Font.Charset = DEFAULT_CHARSET TabAppearance.Font.Color = clWindowText TabAppearance.Font.Height = -11 TabAppearance.Font.Name = 'Tahoma' TabAppearance.Font.Style = [] TabAppearance.ProgressFill.Color = 16297243 TabAppearance.ProgressStroke.Color = 16297243 TabAppearance.Fill.Color = 16316397 TabAppearance.Stroke.Color = 11119017 TabAppearance.ActiveStroke.Color = 11119017 TabAppearance.DisabledFill.Color = 13882323 TabAppearance.DisabledStroke.Color = 11119017 TabAppearance.DownFill.Color = 15655897 TabAppearance.DownStroke.Color = 11119017 TabAppearance.HoverFill.Color = 16313827 TabAppearance.HoverStroke.Color = 11119017 TabAppearance.TextSpacing = 0.000000000000000000 TabAppearance.CloseFill.Kind = gfkNone TabAppearance.CloseFill.Color = 16316397 TabAppearance.CloseStroke.Color = 11119017 TabAppearance.CloseStroke.Width = 2.000000000000000000 TabAppearance.CloseDownFill.Color = 3937500 TabAppearance.CloseDownStroke.Color = clWhite TabAppearance.CloseDownStroke.Width = 2.000000000000000000 TabAppearance.CloseHoverFill.Color = clRed TabAppearance.CloseHoverStroke.Color = clWhite TabAppearance.CloseHoverStroke.Width = 2.000000000000000000 TabAppearance.BadgeFill.Color = 42495 TabAppearance.BadgeStroke.Color = 139 TabAppearance.BadgeFont.Charset = DEFAULT_CHARSET TabAppearance.BadgeFont.Color = 139 TabAppearance.BadgeFont.Height = -11 TabAppearance.BadgeFont.Name = 'Tahoma' TabAppearance.BadgeFont.Style = [fsBold] ButtonAppearance.Fill.Color = 16316397 ButtonAppearance.Stroke.Color = 11119017 ButtonAppearance.DownFill.Color = 15655897 ButtonAppearance.DownStroke.Color = 11119017 ButtonAppearance.DisabledFill.Color = 13882323 ButtonAppearance.DisabledStroke.Color = 11119017 ButtonAppearance.HoverFill.Color = 16313827 ButtonAppearance.HoverStroke.Color = 11119017 ButtonAppearance.CloseIcon.Data = { 0954506E67496D61676589504E470D0A1A0A0000000D49484452000000100000 001008060000001FF3FF61000000017352474200AECE1CE90000000467414D41 0000B18F0BFC6105000000097048597300000B1200000B1201D2DD7EFC000000 1874455874536F667477617265007061696E742E6E657420342E302E396C337E 4E0000005D4944415478DA6364A010300E3A034481F8151E83FF03B10810BFC5 65C07F3C866395C366133685380DC6E754A2C20C5F20FE27462DCD0CF80FC58C 84D43312D04C722062D3CC80CF107445C240FC8680D7406ADE11138844818137 0000FC581511806F20E40000000049454E44AE426082} ButtonAppearance.InsertIcon.Data = { 0954506E67496D61676589504E470D0A1A0A0000000D49484452000000100000 001008060000001FF3FF610000000467414D410000B18F0BFC61050000000970 48597300000B1000000B1001AD23BD750000001874455874536F667477617265 007061696E742E6E657420342E302E396C337E4E000000314944415478DA63FC FFFF3F03258071701BC0C8C8089604AA611C2906C0341002C80652D780810F83 C167003160E00D0000633957E151BFD3F70000000049454E44AE426082} ButtonAppearance.TabListIcon.Data = { 0954506E67496D61676589504E470D0A1A0A0000000D49484452000000070000 00090806000000FE5836A30000000467414D410000B18F0BFC61050000000970 48597300000EBF00000EBF01380553240000001874455874536F667477617265 007061696E742E6E657420342E302E338CE69750000000334944415478DA6364 C00318C3C2C2FEE394FCFFFF3F993AF14A82086C0A56AD5AC5C808E3202B0049 C075222B80496048A20300EB95150A8C506C330000000049454E44AE426082} ButtonAppearance.ScrollNextIcon.Data = { 0954506E67496D61676589504E470D0A1A0A0000000D49484452000000100000 001008060000001FF3FF610000000473424954080808087C0864880000000970 48597300000B1300000B1301009A9C18000000554944415478DA6364A010300E 5F03F880783510D701F149720C6003E2B5406C0BC4EEF80CC1E705A20C211406 2043D601B10D2E430819C00E7505590610D48CCF00A234E333809701128DF50C 644623D16018180000657C1011AA866E1B0000000049454E44AE426082} ButtonAppearance.ScrollPreviousIcon.Data = { 0954506E67496D61676589504E470D0A1A0A0000000D49484452000000100000 001008060000001FF3FF610000000473424954080808087C0864880000000970 48597300000B1300000B1301009A9C18000000684944415478DA6364A010300E 1903D881F827B90644037123109B02F17B520D00695E08C43D405C41AA0B609A 7B81B89CD4300806E295403C0D88F3C8094405203E00C41F80D81988DF926A00 D186100A446443EC81F823A906C00CC98606E43F720CC00B8681010057F41411 34D159570000000049454E44AE426082} TabSize.Margins.Left = 8.000000000000000000 TabSize.Margins.Top = 8.000000000000000000 TabSize.Margins.Right = 8.000000000000000000 TabSize.Margins.Bottom = 8.000000000000000000 Pages = < item Text = 'DLL Init' Bitmaps = <> DisabledBitmaps = <> UseDefaultAppearance = True end item Text = 'MQTT Log' Bitmaps = <> DisabledBitmaps = <> UseDefaultAppearance = True end item Text = 'Settings' Bitmaps = <> DisabledBitmaps = <> UseDefaultAppearance = True end> object pgSettings: TTMSFNCPageControlContainer AlignWithMargins = True Left = 0 Top = 29 Width = 610 Height = 289 Margins.Left = 0 Margins.Top = 29 Margins.Right = 0 Margins.Bottom = 0 AdaptToStyle = True Align = alClient ParentDoubleBuffered = False DoubleBuffered = True TabStop = False TabOrder = 2 Visible = False PageIndex = 2 IsActive = False object TMSFNCPanel3: TTMSFNCPanel Left = 0 Top = 0 Width = 610 Height = 289 Align = alClient ParentDoubleBuffered = False DoubleBuffered = True TabOrder = 0 Sections = <> SectionsAppearance.Font.Charset = DEFAULT_CHARSET SectionsAppearance.Font.Color = clWindowText SectionsAppearance.Font.Height = -11 SectionsAppearance.Font.Name = 'Tahoma' SectionsAppearance.Font.Style = [] SectionsAppearance.Fill.Color = 15790320 Header.Text = 'Settings' Header.Font.Charset = DEFAULT_CHARSET Header.Font.Color = clWindowText Header.Font.Height = -11 Header.Font.Name = 'Tahoma' Header.Font.Style = [] Header.Fill.Color = 15000804 Footer.Text = 'Footer' Footer.Font.Charset = DEFAULT_CHARSET Footer.Font.Color = clWindowText Footer.Font.Height = -11 Footer.Font.Name = 'Tahoma' Footer.Font.Style = [] Footer.Fill.Color = 15000804 object Label1: TLabel Left = 16 Top = 40 Width = 83 Height = 13 Caption = 'MQTT Username:' end object Label2: TLabel Left = 16 Top = 67 Width = 81 Height = 13 Caption = 'MQTT Password:' end object edMQTTUsername: TTMSFNCEdit Left = 105 Top = 37 Width = 121 Height = 19 AutoSize = False TabOrder = 0 Text = '' Lookup.Separator = ';' end object edMQTTPassword: TTMSFNCEdit Left = 105 Top = 64 Width = 121 Height = 19 AutoSize = False PasswordChar = '*' TabOrder = 1 Text = '' Lookup.Separator = ';' end object btMQTTCredSave: TTMSFNCButton Left = 105 Top = 89 Width = 121 Height = 25 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] Text = 'Save MQTT Credentials' TabOrder = 2 OnClick = btMQTTCredSaveClick end end end object pgLog: TTMSFNCPageControlContainer AlignWithMargins = True Left = 0 Top = 29 Width = 610 Height = 289 Margins.Left = 0 Margins.Top = 29 Margins.Right = 0 Margins.Bottom = 0 AdaptToStyle = True Align = alClient ParentDoubleBuffered = False DoubleBuffered = True TabStop = False TabOrder = 1 Visible = False PageIndex = 1 IsActive = False object TMSFNCPanel2: TTMSFNCPanel Left = 0 Top = 0 Width = 610 Height = 289 Align = alClient ParentDoubleBuffered = False DoubleBuffered = True TabOrder = 0 Sections = <> SectionsAppearance.Font.Charset = DEFAULT_CHARSET SectionsAppearance.Font.Color = clWindowText SectionsAppearance.Font.Height = -11 SectionsAppearance.Font.Name = 'Tahoma' SectionsAppearance.Font.Style = [] SectionsAppearance.Fill.Color = 15790320 Header.Text = 'MQTT Log' Header.Font.Charset = DEFAULT_CHARSET Header.Font.Color = clWindowText Header.Font.Height = -11 Header.Font.Name = 'Tahoma' Header.Font.Style = [] Header.Fill.Color = 15000804 Footer.Text = 'Footer' Footer.Font.Charset = DEFAULT_CHARSET Footer.Font.Color = clWindowText Footer.Font.Height = -11 Footer.Font.Name = 'Tahoma' Footer.Font.Style = [] Footer.Fill.Color = 15000804 object memMQTTLog: TMemo Left = 0 Top = 28 Width = 610 Height = 261 Align = alClient ScrollBars = ssBoth TabOrder = 0 end end end object pgDLLInit: TTMSFNCPageControlContainer AlignWithMargins = True Left = 0 Top = 29 Width = 610 Height = 289 Margins.Left = 0 Margins.Top = 29 Margins.Right = 0 Margins.Bottom = 0 AdaptToStyle = True Align = alClient ParentDoubleBuffered = False DoubleBuffered = True TabStop = False TabOrder = 0 PageIndex = 0 IsActive = True object pnlDLLInit: TTMSFNCPanel Left = 0 Top = 0 Width = 610 Height = 289 AdaptToStyle = True Align = alClient ParentDoubleBuffered = False Color = clBtnFace DoubleBuffered = True TabOrder = 0 Fill.Kind = gfkNone Sections = <> SectionsAppearance.Font.Charset = DEFAULT_CHARSET SectionsAppearance.Font.Color = clWindowText SectionsAppearance.Font.Height = -11 SectionsAppearance.Font.Name = 'Tahoma' SectionsAppearance.Font.Style = [] SectionsAppearance.Fill.Color = 15790320 Header.Text = 'Messages Sent' Header.Font.Charset = DEFAULT_CHARSET Header.Font.Color = clWindowText Header.Font.Height = -11 Header.Font.Name = 'Tahoma' Header.Font.Style = [] Header.Fill.Color = 15000804 Footer.Text = 'Footer' Footer.Font.Charset = DEFAULT_CHARSET Footer.Font.Color = clWindowText Footer.Font.Height = -11 Footer.Font.Name = 'Tahoma' Footer.Font.Style = [] Footer.Fill.Color = 15000804 object memMessages: TMemo Left = 0 Top = 28 Width = 610 Height = 261 Align = alClient ScrollBars = ssBoth TabOrder = 0 end object btnConnect: TButton Left = 40 Top = 6 Width = 75 Height = 16 Caption = 'MQTT Connect' TabOrder = 1 OnClick = btnConnectClick end object Button1: TButton Left = 121 Top = 6 Width = 96 Height = 16 Caption = 'MQTT Disconnect' TabOrder = 2 OnClick = Button1Click end end end end object MQTTClient: TTMSMQTTClient OnConnectedStatusChanged = MQTTClientConnectedStatusChanged Logger = MQTTLogger Version = '1.2.0.2' Left = 224 Top = 8 end object MQTTLogger: TTMSMQTTLogger Verbosity = vERROR OnLog = MQTTLoggerLog Left = 336 Top = 8 end object tmConnect: TTimer Enabled = False OnTimer = tmConnectTimer Left = 448 Top = 8 end end