object frmWebServ: TfrmWebServ Left = 296 Top = 253 BorderStyle = bsSingle Caption = 'XNS Webserver' ClientHeight = 192 ClientWidth = 412 Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [] KeyPreview = True Menu = MainMenu1 OldCreateOrder = False OnClose = FormClose OnCreate = FormCreate OnKeyPress = FormKeyPress PixelsPerInch = 96 TextHeight = 13 object Memo1: TMemo Left = 0 Top = 0 Width = 412 Height = 149 Align = alClient Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -12 Font.Name = 'Courier New' Font.Style = [] ParentFont = False ReadOnly = True ScrollBars = ssVertical TabOrder = 0 OnChange = Memo1Change end object stat: TStatusBar Left = 0 Top = 173 Width = 412 Height = 19 Panels = <> SimplePanel = True end object Panel1: TPanel Left = 0 Top = 149 Width = 412 Height = 24 Align = alBottom BevelOuter = bvNone TabOrder = 2 object Label1: TLabel Left = 8 Top = 6 Width = 121 Height = 13 Caption = 'Server is not running.' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end object Label2: TLabel Left = 248 Top = 6 Width = 60 Height = 13 Caption = '0 requests' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Tahoma' Font.Style = [fsBold] ParentFont = False end end object wserve: TIdHTTPServer OnStatus = wserveStatus Bindings = <> CommandHandlers = <> DefaultPort = 11131 Greeting.NumericCode = 0 MaxConnectionReply.NumericCode = 0 ReplyExceptionCode = 0 ReplyTexts = <> ReplyUnknownCommand.NumericCode = 0 AutoStartSession = True ServerSoftware = 'X-NetStat 5.0 Professional' SessionTimeOut = 1200000 OnCommandGet = wserveCommandGet Left = 328 Top = 136 end object MainMenu1: TMainMenu Left = 88 Top = 8 object StopServer1: TMenuItem Caption = 'Stop Server' OnClick = StopServer1Click end object ShowReport1: TMenuItem Caption = 'Show Report' OnClick = ShowReport1Click end object HideThisWindow1: TMenuItem Caption = 'Hide This Window' OnClick = HideThisWindow1Click end end end