object frmNILM: TfrmNILM Left = 313 Top = 202 Caption = #51204#47448#48516#49437#51109#52824' '#44288#47532 ClientHeight = 578 ClientWidth = 989 Color = clBtnFace Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = #44404#47548 Font.Style = [] OldCreateOrder = False Position = poMainFormCenter OnShow = FormShow PixelsPerInch = 96 TextHeight = 12 object AdvStringGrid1: TAdvStringGrid Left = 0 Top = 137 Width = 989 Height = 441 Cursor = crDefault Align = alClient Color = clWhite ColCount = 9 DefaultRowHeight = 21 DrawingStyle = gdsClassic RowCount = 5 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] Options = [goVertLine, goHorzLine, goRangeSelect, goDrawFocusSelected] ParentFont = False ScrollBars = ssBoth TabOrder = 0 GridLineColor = 15987699 GridFixedLineColor = 15987699 HoverRowCells = [hcNormal, hcSelected] OnClickCell = AdvStringGrid1ClickCell ActiveCellFont.Charset = DEFAULT_CHARSET ActiveCellFont.Color = clWindowText ActiveCellFont.Height = -11 ActiveCellFont.Name = 'Tahoma' ActiveCellFont.Style = [fsBold] CellNode.TreeColor = clSilver ColumnHeaders.Strings = ( 'No' 'NILM ID' #51060#47492 #49688#51665#51204#50517 'SERIAL' 'MAC' 'MQTT IP' 'MQTT PORT' 'TOPIC') ColumnSize.Stretch = True ColumnSize.StretchColumn = 8 ControlLook.FixedGradientHoverFrom = clGray ControlLook.FixedGradientHoverTo = clWhite ControlLook.FixedGradientDownFrom = clGray ControlLook.FixedGradientDownTo = clSilver ControlLook.ControlStyle = csWinXP ControlLook.DropDownHeader.Font.Charset = DEFAULT_CHARSET ControlLook.DropDownHeader.Font.Color = clWindowText ControlLook.DropDownHeader.Font.Height = -11 ControlLook.DropDownHeader.Font.Name = 'Tahoma' ControlLook.DropDownHeader.Font.Style = [] ControlLook.DropDownHeader.Visible = True ControlLook.DropDownHeader.Buttons = <> ControlLook.DropDownFooter.Font.Charset = DEFAULT_CHARSET ControlLook.DropDownFooter.Font.Color = clWindowText ControlLook.DropDownFooter.Font.Height = -11 ControlLook.DropDownFooter.Font.Name = 'Tahoma' ControlLook.DropDownFooter.Font.Style = [] ControlLook.DropDownFooter.Visible = True ControlLook.DropDownFooter.Buttons = <> Filter = <> FilterDropDown.Font.Charset = DEFAULT_CHARSET FilterDropDown.Font.Color = clWindowText FilterDropDown.Font.Height = -11 FilterDropDown.Font.Name = 'Tahoma' FilterDropDown.Font.Style = [] FilterDropDownClear = '(All)' FilterEdit.TypeNames.Strings = ( 'Starts with' 'Ends with' 'Contains' 'Not contains' 'Equal' 'Not equal' 'Larger than' 'Smaller than' 'Clear') FixedRowHeight = 22 FixedFont.Charset = DEFAULT_CHARSET FixedFont.Color = clBlack FixedFont.Height = -11 FixedFont.Name = 'Tahoma' FixedFont.Style = [fsBold] FloatFormat = '%.2f' HoverButtons.Buttons = <> HoverButtons.Position = hbLeftFromColumnLeft HTMLSettings.ImageFolder = 'images' HTMLSettings.ImageBaseName = 'img' PrintSettings.DateFormat = 'dd/mm/yyyy' PrintSettings.Font.Charset = DEFAULT_CHARSET PrintSettings.Font.Color = clWindowText PrintSettings.Font.Height = -11 PrintSettings.Font.Name = 'MS Sans Serif' PrintSettings.Font.Style = [] PrintSettings.FixedFont.Charset = DEFAULT_CHARSET PrintSettings.FixedFont.Color = clWindowText PrintSettings.FixedFont.Height = -11 PrintSettings.FixedFont.Name = 'MS Sans Serif' PrintSettings.FixedFont.Style = [] PrintSettings.HeaderFont.Charset = DEFAULT_CHARSET PrintSettings.HeaderFont.Color = clWindowText PrintSettings.HeaderFont.Height = -11 PrintSettings.HeaderFont.Name = 'MS Sans Serif' PrintSettings.HeaderFont.Style = [] PrintSettings.FooterFont.Charset = DEFAULT_CHARSET PrintSettings.FooterFont.Color = clWindowText PrintSettings.FooterFont.Height = -11 PrintSettings.FooterFont.Name = 'MS Sans Serif' PrintSettings.FooterFont.Style = [] PrintSettings.PageNumSep = '/' SearchFooter.ColorTo = clWhite SearchFooter.Font.Charset = DEFAULT_CHARSET SearchFooter.Font.Color = clWindowText SearchFooter.Font.Height = -11 SearchFooter.Font.Name = 'Tahoma' SearchFooter.Font.Style = [] SearchFooter.ResultFormat = '(%d of %d)' SortSettings.DefaultFormat = ssAutomatic SortSettings.Column = 0 Version = '8.5.11.0' ColWidths = ( 64 64 99 90 105 110 99 105 249) end object Panel1: TPanel Left = 0 Top = 0 Width = 989 Height = 137 Align = alTop BevelInner = bvLowered Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -15 Font.Name = #44404#47548 Font.Style = [fsBold] ParentFont = False TabOrder = 1 object Label1: TLabel Left = 19 Top = 22 Width = 57 Height = 15 Caption = 'NILM ID' end object Label2: TLabel Left = 268 Top = 22 Width = 64 Height = 15 Caption = #51109#48708#51060#47492 end object Label3: TLabel Left = 19 Top = 91 Width = 64 Height = 15 Caption = #49688#51665#51204#50517 end object Label4: TLabel Left = 268 Top = 57 Width = 93 Height = 15 Caption = #51109#48708' SERIAL' end object Label5: TLabel Left = 268 Top = 91 Width = 104 Height = 15 Caption = #51109#48708' MAC'#51452#49548 end object Label6: TLabel Left = 563 Top = 22 Width = 103 Height = 15 Caption = 'MQTT '#51217#49549' IP' end object Label7: TLabel Left = 563 Top = 57 Width = 119 Height = 15 Caption = 'MQTT '#51217#49549' Port' end object Label8: TLabel Left = 563 Top = 91 Width = 48 Height = 15 Caption = 'TOPIC' end object Edit1: TEdit Left = 378 Top = 19 Width = 150 Height = 23 TabOrder = 0 end object Edit3: TEdit Left = 378 Top = 54 Width = 150 Height = 23 TabOrder = 1 end object Edit4: TEdit Left = 378 Top = 88 Width = 150 Height = 23 TabOrder = 2 end object Edit5: TEdit Left = 696 Top = 19 Width = 169 Height = 23 TabOrder = 3 end object Edit6: TEdit Left = 632 Top = 88 Width = 233 Height = 23 TabOrder = 4 end object btnAdd: TButton Left = 890 Top = 17 Width = 80 Height = 30 Caption = 'Add' TabOrder = 6 OnClick = btnAddClick end object btnEdit: TButton Left = 890 Top = 51 Width = 80 Height = 30 Caption = 'Edit' TabOrder = 8 OnClick = btnEditClick end object btnDelete: TButton Left = 890 Top = 85 Width = 80 Height = 30 Caption = 'Delete' TabOrder = 5 OnClick = btnDeleteClick end object ComboBox1: TComboBox Left = 88 Top = 88 Width = 145 Height = 23 Style = csDropDownList ItemIndex = 0 TabOrder = 7 Text = '0:'#49444#51221#50630#51020 Items.Strings = ( '0:'#49444#51221#50630#51020 '1:DC'#51204#50517 '2:AC'#45800#49345#51204#50517 '3:AC3'#49345#51204#50517) end object Edit2: TEdit Left = 88 Top = 19 Width = 145 Height = 23 NumbersOnly = True TabOrder = 9 end object Edit7: TEdit Left = 696 Top = 54 Width = 169 Height = 23 NumbersOnly = True TabOrder = 10 end end object FDQuery1: TFDQuery Connection = frmMain.FDConnection1 Left = 168 Top = 409 end end