object frmStatCust: TfrmStatCust Left = 595 Top = 156 BorderStyle = bsToolWindow Caption = 'Customize status bar' ClientHeight = 322 ClientWidth = 205 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] FormStyle = fsStayOnTop KeyPreview = True OldCreateOrder = False OnKeyPress = FormKeyPress OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 8 Top = 8 Width = 143 Height = 13 Caption = 'Show these on the statusbar:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsUnderline] ParentFont = False end object chkMain: TCheckBox Left = 24 Top = 32 Width = 175 Height = 17 Caption = 'Main &status text' Enabled = False TabOrder = 0 end object chkIP: TCheckBox Left = 24 Top = 64 Width = 175 Height = 17 Caption = 'Your computer'#39's I&P address' TabOrder = 1 end object chkHostname: TCheckBox Left = 24 Top = 96 Width = 175 Height = 17 Caption = 'Your computer'#39's &name' TabOrder = 2 end object chkPing: TCheckBox Left = 24 Top = 128 Width = 175 Height = 17 Caption = '&ICMP stats' TabOrder = 3 end object chkLights: TCheckBox Left = 24 Top = 160 Width = 175 Height = 17 Caption = '&Transmission lights' TabOrder = 4 end object chkDNS: TCheckBox Left = 24 Top = 224 Width = 175 Height = 17 Caption = '&DNS status' TabOrder = 6 end object chkServer: TCheckBox Left = 24 Top = 256 Width = 175 Height = 17 Caption = '&WebServer status' TabOrder = 7 end object Button1: TButton Left = 16 Top = 288 Width = 75 Height = 25 Caption = '&OK' Default = True TabOrder = 8 OnClick = Button1Click end object Button2: TButton Left = 104 Top = 288 Width = 75 Height = 25 Caption = '&Cancel' TabOrder = 9 OnClick = Button2Click end object chkRates: TCheckBox Left = 24 Top = 194 Width = 175 Height = 17 Caption = 'Transmission &rates' TabOrder = 5 end end