object frMain: TfrMain Left = 0 Top = 0 Caption = 'HTTP server example' ClientHeight = 220 ClientWidth = 360 Position = DesktopCenter FormFactor.Width = 320 FormFactor.Height = 480 FormFactor.Devices = [Desktop] DesignerMasterStyle = 0 object pnTop: TPanel Align = Top Margins.Left = 6.000000000000000000 Margins.Top = 6.000000000000000000 Margins.Right = 6.000000000000000000 Margins.Bottom = 6.000000000000000000 Position.X = 6.000000000000000000 Position.Y = 6.000000000000000000 Size.Width = 348.000000000000000000 Size.Height = 51.000000000000000000 Size.PlatformDefault = False TabOrder = 0 object lbPort: TLabel Align = Left AutoSize = True StyledSettings = [Family, Size, FontColor] Margins.Top = 10.000000000000000000 Margins.Right = 4.000000000000000000 Margins.Bottom = 10.000000000000000000 Position.Y = 10.000000000000000000 Size.Width = 39.000000000000000000 Size.Height = 31.000000000000000000 Size.PlatformDefault = False TextSettings.Font.StyleExt = {00070000000000000004000000} TextSettings.HorzAlign = Trailing Text = '&Port:' TabOrder = 0 end object edPort: TNumberBox Touch.InteractiveGestures = [LongTap, DoubleTap] Align = Left TabOrder = 1 Cursor = crIBeam Max = 65535.000000000000000000 TextSettings.HorzAlign = Trailing Position.X = 43.000000000000000000 Position.Y = 14.000000000000000000 Margins.Top = 14.000000000000000000 Margins.Right = 10.000000000000000000 Margins.Bottom = 14.000000000000000000 Size.Width = 80.000000000000000000 Size.Height = 23.000000000000000000 Size.PlatformDefault = False OnChange = edPortChange OnChangeTracking = edPortChangeTracking end object btStart: TButton Action = acStart Align = Left Cursor = crHandPoint Enabled = True ImageIndex = -1 Margins.Left = 10.000000000000000000 Margins.Top = 10.000000000000000000 Margins.Bottom = 10.000000000000000000 Position.X = 143.000000000000000000 Position.Y = 10.000000000000000000 Size.Width = 80.000000000000000000 Size.Height = 31.000000000000000000 Size.PlatformDefault = False TabOrder = 2 end object btStop: TButton Action = acStop Align = Left Cursor = crHandPoint Enabled = False ImageIndex = -1 Margins.Left = 10.000000000000000000 Margins.Top = 10.000000000000000000 Margins.Right = 10.000000000000000000 Margins.Bottom = 10.000000000000000000 Position.X = 233.000000000000000000 Position.Y = 10.000000000000000000 Size.Width = 80.000000000000000000 Size.Height = 31.000000000000000000 Size.PlatformDefault = False TabOrder = 3 end end object lbLink: TLabel Align = Top AutoSize = True Cursor = crHandPoint Enabled = False StyledSettings = [Family, Size] HitTest = True Margins.Left = 6.000000000000000000 Margins.Top = 6.000000000000000000 Margins.Right = 6.000000000000000000 Margins.Bottom = 6.000000000000000000 Position.X = 6.000000000000000000 Position.Y = 69.000000000000000000 Size.Width = 348.000000000000000000 Size.Height = 16.000000000000000000 Size.PlatformDefault = False TextSettings.Font.StyleExt = {04040000000000000004000000} TextSettings.FontColor = claBlue TextSettings.WordWrap = False Text = 'http://localhost' TabOrder = 1 OnClick = lbLinkClick OnMouseEnter = lbLinkMouseEnter OnMouseLeave = lbLinkMouseLeave end object alMain: TActionList Left = 40 Top = 120 object acStart: TAction Category = 'HTTP server' Text = '&Start' ShortCut = 120 OnExecute = acStartExecute end object acStop: TAction Category = 'HTTP server' Text = 'S&top' Enabled = False ShortCut = 121 OnExecute = acStopExecute end end object BrookHTTPServer1: TBrookHTTPServer NoFavicon = True OnRequest = BrookHTTPServer1Request OnRequestError = BrookHTTPServer1RequestError OnStart = BrookHTTPServer1Start OnStop = BrookHTTPServer1Stop Left = 152 Top = 120 end end