object ReportForm: TReportForm Left = 321 Top = 309 Width = 686 Height = 460 HelpContext = 1040 HorzScrollBar.Visible = False VertScrollBar.Visible = False BorderIcons = [biSystemMenu, biMaximize] Caption = 'Net Buddy report for user : ' Color = clBtnFace Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} Menu = MainMenu1 OldCreateOrder = True Position = poScreenCenter OnConstrainedResize = FormConstrainedResize OnCreate = FormCreate OnResize = FormResize OnShow = FormShow PixelsPerInch = 96 TextHeight = 13 object Label1: TLabel Left = 8 Top = 266 Width = 73 Height = 13 Caption = 'Account Period' end object Label2: TLabel Left = 8 Top = 316 Width = 30 Height = 13 Caption = 'Month' end object Label3: TLabel Left = 115 Top = 318 Width = 22 Height = 13 Caption = 'Year' end object BackGroundImage: TImage Left = -1 Top = -1 Width = 154 Height = 102 Stretch = True Visible = False end object StatusBar1: TStatusBar Left = 0 Top = 395 Width = 681 Height = 19 Align = alNone Anchors = [akLeft, akRight] Constraints.MinHeight = 19 Constraints.MinWidth = 600 Panels = < item Text = 'Total Connections : ' Width = 200 end item Text = 'Total Time Online : ' Width = 200 end item Text = 'Total cost :' Width = 50 end> SimplePanel = False end object MonthComboBox: TComboBox Left = 7 Top = 334 Width = 82 Height = 21 Style = csDropDownList ItemHeight = 13 Items.Strings = ( 'January' 'Febuary' 'March' 'April' 'May' 'June' 'July' 'August' 'September' 'October' 'November' 'December') TabOrder = 1 OnChange = MonthComboBoxChange end object YearComboBox: TComboBox Left = 115 Top = 334 Width = 78 Height = 21 Style = csDropDownList ItemHeight = 13 Items.Strings = ( '1998' '1999' '2000' '2001' '2002' '2003' '2004' '2005' '2006' '2007' '2008' '2009') TabOrder = 2 OnChange = YearComboBoxChange end object AccountComboBox: TComboBox Left = 7 Top = 288 Width = 186 Height = 21 Style = csDropDownList ItemHeight = 13 Items.Strings = ( 'January' 'Febuary' 'March' 'April' 'May' 'June' 'July' 'August' 'September' 'October' 'November' 'December') TabOrder = 3 OnChange = MonthComboBoxChange end object Button2: TButton Left = 501 Top = 363 Width = 75 Height = 25 Caption = 'Zoom &out' TabOrder = 4 OnClick = Button2Click end object Button1: TButton Left = 592 Top = 363 Width = 73 Height = 25 Cancel = True Caption = '&Close' Default = True Font.Charset = ANSI_CHARSET Font.Color = clWindowText Font.Height = -11 Font.Name = 'Arial' Font.Style = [] ParentFont = False TabOrder = 5 OnClick = Button1Click end object GroupBox1: TGroupBox Left = -4 Top = -5 Width = 685 Height = 7 TabOrder = 6 end object GraphTreeView: TTreeView Left = 6 Top = 12 Width = 188 Height = 80 HideSelection = False Indent = 19 Items.Data = { 01000000250000000000000000000000FFFFFFFFFFFFFFFF0000000002000000 0C477261706820666F726D6174240000000000000000000000FFFFFFFFFFFFFF FF00000000000000000B54696D65206F6E6C696E652400000000000000000000 00FFFFFFFFFFFFFFFF00000000000000000B4F6E6C696E6520636F7374} ReadOnly = True ShowButtons = False TabOrder = 7 OnChange = GraphTreeViewChange end object TreeView1: TTreeView Left = 6 Top = 100 Width = 188 Height = 157 HideSelection = False Indent = 19 Items.Data = { 02000000250000000000000000000000FFFFFFFFFFFFFFFF0000000003000000 0C477261706820546F74616C73330000000000000000000000FFFFFFFFFFFFFF FF00000000000000001A546F74616C20666F722073656C656374656420616363 6F756E74310000000000000000000000FFFFFFFFFFFFFFFF0000000000000000 18546F74616C20666F722073656C6563746564206D6F6E746830000000000000 0000000000FFFFFFFFFFFFFFFF000000000000000017546F74616C20666F7220 73656C65637465642079656172270000000000000000000000FFFFFFFFFFFFFF FF00000000010000000E47726170682041766572616765733300000000000000 00000000FFFFFFFFFFFFFFFF00000000000000001A4176657261676520757361 6765207468726F756768207765656B} ReadOnly = True ShowButtons = False TabOrder = 8 OnChange = TreeView1Change end object Chart1: TChart Left = 200 Top = 12 Width = 465 Height = 345 Cursor = crCross AnimatedZoom = True BackWall.Brush.Style = bsClear BottomWall.Color = clSilver Gradient.Visible = True LeftWall.Color = clSilver Title.Font.Charset = DEFAULT_CHARSET Title.Font.Color = clBlack Title.Font.Height = -16 Title.Font.Name = 'Arial' Title.Font.Style = [fsBold] Title.Text.Strings = ( 'TChart') OnZoom = Chart1Zoom BottomAxis.Grid.Visible = False Chart3DPercent = 20 DepthAxis.Title.Caption = 'Monthly Online Time' DepthAxis.TitleSize = 4 Legend.Visible = False RightAxis.Visible = False TopAxis.Visible = False BevelOuter = bvLowered BevelWidth = 2 Color = 14671839 TabOrder = 9 OnClick = Chart1Click object Series1: TBarSeries Marks.ArrowLength = 20 Marks.Visible = False ShowInLegend = False BarWidthPercent = 85 SideMargins = False SeriesColor = clRed XValues.DateTime = False XValues.Name = 'X' XValues.Multiplier = 1.000000000000000000 XValues.Order = loAscending YValues.DateTime = False YValues.Name = 'Bar' YValues.Multiplier = 1.000000000000000000 YValues.Order = loNone end end object MainMenu1: TMainMenu Left = 4 Top = 492 object file1: TMenuItem Caption = '&File' object Exportas1: TMenuItem Caption = '&Export as...' object Bitmap1: TMenuItem Caption = '&Bitmap' OnClick = Bitmap1Click end object WindowsMetaFileWMF1: TMenuItem Caption = '&Windows Meta File (WMF)' OnClick = WindowsMetaFileWMF1Click end object EnhancedMetaFileEMF1: TMenuItem Caption = 'Enhanced Meta File (EMF)' OnClick = EnhancedMetaFileEMF1Click end end object N2: TMenuItem Caption = '-' end object Close1: TMenuItem Caption = '&Close' OnClick = Close1Click end end object Edit1: TMenuItem Caption = '&Edit' object GraphSetup1: TMenuItem Caption = '&Graph Setup' OnClick = GraphSetup1Click end end object Help1: TMenuItem Caption = '&Help' object NetBuddyreportshelp1: TMenuItem Caption = 'Net Buddy reports &help' OnClick = NetBuddyreportshelp1Click end end end object SaveDialog1: TSaveDialog DefaultExt = 'BMP' Filter = 'Graphic (*.BMP, *.WMF, *.EMF)|*.BMP;*.WMF;*.EMF' Options = [ofOverwritePrompt, ofHideReadOnly] Title = 'Save report graph as' Left = 7 Top = 524 end end