object WbServe: TWbServe Left = 297 Top = 200 BorderIcons = [biSystemMenu] BorderStyle = bsSingle Caption = 'Wapapi 1.5' ClientHeight = 183 ClientWidth = 317 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} OnCreate = FormCreate OnDestroy = FormDestroy PixelsPerInch = 96 TextHeight = 13 object Label6: TLabel Left = 45 Top = 342 Width = 77 Height = 13 Caption = 'This IP Address:' Visible = False end object st_error: TLabel Left = 76 Top = 108 Width = 3 Height = 13 end object sleIP: TEdit Left = 127 Top = 340 Width = 89 Height = 21 TabOrder = 0 Text = '127.0.0.1' Visible = False end object PageControl1: TPageControl Left = 0 Top = 0 Width = 317 Height = 179 ActivePage = TabSheet1 Align = alTop TabOrder = 1 TabPosition = tpBottom TabWidth = 80 object TabSheet1: TTabSheet Caption = 'Server' object Label8: TLabel Left = 21 Top = 24 Width = 48 Height = 13 Caption = 'Total Hits:' end object Label9: TLabel Left = 7 Top = 49 Width = 62 Height = 13 Caption = 'Connections:' end object Label10: TLabel Left = 76 Top = 65 Width = 6 Height = 13 Caption = '0' end object Label11: TLabel Left = 131 Top = 65 Width = 12 Height = 13 Caption = '10' end object Label12: TLabel Left = 188 Top = 65 Width = 12 Height = 13 Caption = '20' end object Bevel1: TBevel Left = -1 Top = 81 Width = 311 Height = 2 end object Label1: TLabel Left = 15 Top = 87 Width = 54 Height = 13 Caption = 'IP Address:' end object Label2: TLabel Left = 47 Top = 105 Width = 22 Height = 13 Caption = 'Port:' end object Label4: TLabel Left = 24 Top = 122 Width = 45 Height = 13 Caption = 'Directory:' end object Label5: TLabel Left = 36 Top = 0 Width = 33 Height = 13 Caption = 'Status:' end object stIP: TLabel Left = 75 Top = 90 Width = 3 Height = 13 end object stPort: TLabel Left = 75 Top = 106 Width = 3 Height = 13 end object stDirectory: TLabel Left = 75 Top = 125 Width = 3 Height = 13 end object stHits: TEdit Left = 75 Top = 23 Width = 121 Height = 21 Color = clBtnFace Enabled = False TabOrder = 0 end object ProgressBar1: TProgressBar Left = 76 Top = 48 Width = 121 Height = 15 Min = 0 Max = 100 TabOrder = 1 end object edStatus: TEdit Left = 75 Top = 0 Width = 121 Height = 21 Color = clBtnFace Enabled = False TabOrder = 2 Text = 'Not Serving' end end object TabSheet2: TTabSheet Caption = 'About' object Label3: TLabel Left = 7 Top = 0 Width = 158 Height = 13 Caption = 'Wapapi Web Server toolkit:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object stEdition: TLabel Left = 169 Top = 1 Width = 104 Height = 13 Caption = 'Shareware Edition' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object stnotice: TLabel Left = 2 Top = 49 Width = 210 Height = 13 Caption = 'To register Wapapi, please see our web site:' end object Label14: TLabel Left = 23 Top = 100 Width = 100 Height = 13 Caption = 'Brown Bear Software' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label15: TLabel Left = 23 Top = 113 Width = 89 Height = 13 Caption = '1231 Redwood Ct.' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label16: TLabel Left = 23 Top = 126 Width = 108 Height = 13 Caption = 'Anchorage, AK 99508' Font.Charset = DEFAULT_CHARSET Font.Color = clNavy Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label17: TLabel Left = 148 Top = 100 Width = 112 Height = 13 Caption = 'Phone: (907) 278-1231' end object Label18: TLabel Left = 148 Top = 113 Width = 155 Height = 13 Caption = 'EMail: info@brownbearsw.com' end object Label21: TLabel Left = 24 Top = 66 Width = 137 Height = 13 Caption = 'http://www.wapapi.com' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label20: TLabel Left = 16 Top = 18 Width = 70 Height = 13 Alignment = taRightJustify Caption = 'Registered To:' end object Bevel2: TBevel Left = -2 Top = 39 Width = 310 Height = 2 end object Label23: TLabel Left = 4 Top = 84 Width = 157 Height = 13 Caption = 'or contact Brown Bear Software::' end object stRegTo: TLabel Left = 93 Top = 19 Width = 81 Height = 13 Caption = '{unregistered}' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end end end object Timer1: TTimer OnTimer = Timer1Timer Left = 232 Top = 44 end end