object form1: Tform1 Left = 114 Top = 120 BorderIcons = [biSystemMenu] BorderStyle = bsSingle Caption = 'iCal 2.0' ClientHeight = 277 ClientWidth = 252 Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} OnClose = FormClose OnCloseQuery = FormCloseQuery OnResize = FormResize PixelsPerInch = 96 TextHeight = 13 object Label14: TLabel Left = 61 Top = 144 Width = 93 Height = 13 Caption = 'of entries per month' end object Label16: TLabel Left = 11 Top = 131 Width = 220 Height = 13 Caption = 'Personal-- Limit 2 calendars, unlimited number ' end object PageControl1: TPageControl Left = 0 Top = 0 Width = 252 Height = 277 ActivePage = tsStatus Align = alClient TabOrder = 0 TabPosition = tpBottom TabWidth = 80 object tsStatus: TTabSheet Caption = 'Status' object Label5: TLabel Left = 9 Top = 10 Width = 67 Height = 13 Caption = 'Server Status:' end object Label7: TLabel Left = 27 Top = 69 Width = 48 Height = 13 Caption = 'Total Hits:' end object Label1: TLabel Left = 6 Top = 97 Width = 37 Height = 13 Caption = 'Hit Log:' end object cbStartStop: TBitBtn Left = 81 Top = 32 Width = 75 Height = 25 Caption = 'Start Server' TabOrder = 0 OnClick = cbStartStopClick end object edHits: TEdit Left = 79 Top = 66 Width = 158 Height = 21 Color = clBtnFace Enabled = False TabOrder = 1 Text = '0' end object edStatus: TEdit Left = 80 Top = 7 Width = 160 Height = 21 Color = clBtnFace Enabled = False TabOrder = 2 Text = 'Not Serving' end object Chart1: TChart Left = 7 Top = 115 Width = 233 Height = 79 AllowPanning = pmHorizontal AllowZoom = False BottomWall.Color = clWhite Foot.Font.Charset = DEFAULT_CHARSET Foot.Font.Color = clRed Foot.Font.Height = -11 Foot.Font.Name = 'Arial' Foot.Font.Style = [fsItalic] LeftWall.Color = clWhite MarginBottom = 0 MarginRight = 0 MarginTop = 0 Title.Text.Strings = ( 'TChart') Title.Visible = False BottomAxis.Automatic = False BottomAxis.AutomaticMaximum = False BottomAxis.AutomaticMinimum = False BottomAxis.Labels = False BottomAxis.Maximum = 120.000000000000000000 BottomAxis.MinorTickCount = 10 BottomAxis.TickInnerLength = 15 BottomAxis.TickLength = 7 BottomAxis.TickOnLabelsOnly = False LeftAxis.Automatic = False LeftAxis.AutomaticMaximum = False LeftAxis.AutomaticMinimum = False LeftAxis.Increment = 10.000000000000000000 LeftAxis.LabelsSeparation = 40 LeftAxis.LabelsSize = 10 LeftAxis.LabelStyle = talValue LeftAxis.Maximum = 25.000000000000000000 LeftAxis.MinorTickCount = 1 LeftAxis.ExactDateTime = False Legend.Visible = False View3D = False View3DWalls = False BevelInner = bvLowered BevelOuter = bvNone TabOrder = 3 object Series1: TFastLineSeries Marks.ArrowLength = 8 Marks.Style = smsXValue Marks.Visible = False Title = 'Hits' LinePen.Color = clRed SeriesColor = clRed XValues.DateTime = False XValues.Name = 'X' XValues.Multiplier = 1.000000000000000000 XValues.Order = loAscending YValues.DateTime = False YValues.Name = 'Y' YValues.Multiplier = 1.000000000000000000 YValues.Order = loNone end end object cbClose: TButton Left = 166 Top = 32 Width = 72 Height = 25 Caption = 'Shutdown' TabOrder = 4 OnClick = cbCloseClick end end object tsListener: TTabSheet Caption = 'Listener' object stPort: TLabel Left = 59 Top = 35 Width = 22 Height = 13 Alignment = taRightJustify Caption = 'Port:' end object Label2: TLabel Left = 28 Top = 16 Width = 54 Height = 13 Alignment = taRightJustify Caption = 'IP Address:' end object Label3: TLabel Left = 1 Top = 62 Width = 82 Height = 13 Alignment = taRightJustify Caption = 'Startup Directory:' end object stInfo1: TLabel Left = 42 Top = 195 Width = 167 Height = 13 Caption = 'To change settings, click the' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Visible = False end object stInfo2: TLabel Left = 18 Top = 210 Width = 214 Height = 13 Caption = 'Stop Server button on the Status tab.' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Visible = False end object edIP: TEdit Left = 86 Top = 11 Width = 121 Height = 21 TabOrder = 0 end object edPort: TEdit Left = 86 Top = 33 Width = 121 Height = 21 TabOrder = 1 end object edDirectory: TEdit Left = 86 Top = 59 Width = 153 Height = 21 Color = clBtnFace Enabled = False TabOrder = 2 end object cbAutoStart: TCheckBox Left = 7 Top = 110 Width = 109 Height = 17 Alignment = taLeftJustify Caption = 'Auto Start Listener:' State = cbChecked TabOrder = 3 end object cbTutorial: TCheckBox Left = 27 Top = 160 Width = 88 Height = 17 Alignment = taLeftJustify Caption = 'Show Tutorial:' State = cbChecked TabOrder = 4 end object cbBrowserStart: TCheckBox Left = 4 Top = 145 Width = 111 Height = 17 Alignment = taLeftJustify Caption = 'Auto Start Browser:' State = cbChecked TabOrder = 5 end object cbStartMinimized: TCheckBox Left = 23 Top = 125 Width = 93 Height = 17 Alignment = taLeftJustify Caption = 'Start Minimized:' TabOrder = 6 end object cbChange: TButton Left = 87 Top = 82 Width = 73 Height = 22 Caption = 'Change' TabOrder = 7 OnClick = cbChangeClick end end object pAbout: TTabSheet Caption = 'About' object regBanner2: TLabel Left = 38 Top = 1 Width = 171 Height = 16 Caption = 'iCal Professional Edition' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Visible = False end object imageBrownBear: TImage Left = -2 Top = 19 Width = 248 Height = 91 Picture.Data = {} Stretch = True Visible = False end object Label6: TLabel Left = 67 Top = 118 Width = 120 Height = 13 Caption = 'Brown Bear Software' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Label8: TLabel Left = 67 Top = 131 Width = 92 Height = 13 Caption = '1231 Redwood Ct.,' end object Label9: TLabel Left = 67 Top = 143 Width = 105 Height = 13 Caption = 'Anchorage, AK 99508' end object Label10: TLabel Left = 67 Top = 156 Width = 72 Height = 13 Caption = '(907) 278-1231' end object Label11: TLabel Left = 68 Top = 169 Width = 171 Height = 13 Caption = 'http://www.brownbearsw.com' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object banner4: TLabel Left = 1 Top = 54 Width = 235 Height = 13 Caption = 'Personal-- Limit 1 calendars, unlimited number ' end object banner5: TLabel Left = 66 Top = 66 Width = 93 Height = 13 Caption = 'of entries per month' end object banner6: TLabel Left = 1 Top = 83 Width = 205 Height = 13 Caption = 'Professional-- Unlimited calendars, unlimited' end object banner7: TLabel Left = 66 Top = 95 Width = 131 Height = 13 Caption = 'number of entries per month' end object Label19: TLabel Left = 1 Top = 190 Width = 69 Height = 13 Caption = 'Registration' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object Bevel2: TBevel Left = -1 Top = 186 Width = 252 Height = 2 end object stName: TLabel Left = 84 Top = 197 Width = 31 Height = 13 Alignment = taRightJustify Caption = 'Name:' end object stRegNumber: TLabel Left = 16 Top = 217 Width = 99 Height = 13 Alignment = taRightJustify Caption = 'Registration Number:' end object Bevel3: TBevel Left = -5 Top = 113 Width = 251 Height = 2 end object banner2: TLabel Left = 9 Top = 19 Width = 214 Height = 13 Caption = 'Please register iCal. In addition to that warm, ' end object banner3: TLabel Left = 12 Top = 32 Width = 207 Height = 13 Caption = 'fuzzy feeling, you will get these advantages:' end object Label4: TLabel Left = 1 Top = 117 Width = 49 Height = 13 Caption = 'Contact:' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False end object regbanner1: TLabel Left = 52 Top = 1 Width = 146 Height = 16 Caption = 'iCal Personal Edition' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Visible = False end object banner1: TLabel Left = 0 Top = 2 Width = 230 Height = 13 Caption = 'iCal registration: $35 personal, $185 professional' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object edName: TEdit Left = 120 Top = 191 Width = 121 Height = 21 TabOrder = 0 OnKeyUp = edNameKeyUp end object edRegNumber: TEdit Left = 120 Top = 214 Width = 121 Height = 21 TabOrder = 1 OnKeyUp = edRegNumberKeyUp end end end object Timer1: TTimer Enabled = False OnTimer = Timer1Timer Left = 225 Top = 248 end end