object PieGraphDlg: TPieGraphDlg Left = 44 Top = 113 Width = 578 Height = 413 Caption = 'Summary Graph' Font.Charset = DEFAULT_CHARSET Font.Color = clWindowText Font.Height = -13 Font.Name = 'System' Font.Style = [] Position = poScreenCenter ShowHint = True OnCreate = FormCreate OnShow = FormShow PixelsPerInch = 96 TextHeight = 16 object Chart1: TChart Left = 0 Top = 60 Width = 570 Height = 326 BottomWall.Color = clWhite Foot.Font.Charset = DEFAULT_CHARSET Foot.Font.Color = clRed Foot.Font.Height = -12 Foot.Font.Name = 'Arial' Foot.Font.Style = [fsItalic] Foot.Text.Strings = ( '') LeftWall.Color = 8454143 MarginBottom = 0 MarginLeft = 4 MarginRight = 4 Title.Font.Charset = DEFAULT_CHARSET Title.Font.Color = clBlue Title.Font.Height = -13 Title.Font.Name = 'Arial' Title.Font.Style = [fsBold, fsItalic] Title.Text.Strings = ( 'TChart Component') BottomAxis.Grid.Color = clScrollBar BottomAxis.LabelsAngle = 90 BottomAxis.LabelsSeparation = 0 BottomAxis.LabelsSize = 40 LeftAxis.Grid.Color = clScrollBar Legend.Alignment = laLeft Legend.TextStyle = ltsLeftPercent Legend.TopPos = 0 MaxPointsPerPage = 10 RightAxis.Grid.Color = clScrollBar TopAxis.Grid.Color = clScrollBar OnPageChange = Chart1PageChange Align = alClient TabOrder = 0 object PieSeries1: TPieSeries Active = False Marks.ArrowLength = 8 Marks.Style = smsValue Marks.Visible = True PieValues.DateTime = False PieValues.Name = 'Y' PieValues.Multiplier = 1.000000000000000000 PieValues.Order = loNone Left = 504 Top = 352 end object BarSeries1: TBarSeries Active = False ColorEachPoint = True Marks.ArrowLength = 20 Marks.Visible = False 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 Left = 536 Top = 352 end object LineSeries1: TLineSeries Active = False ColorEachPoint = True Marks.ArrowLength = 8 Marks.Style = smsValue Marks.Visible = False SeriesColor = clGreen Pointer.InflateMargins = True Pointer.Style = psRectangle Pointer.Visible = False XValues.DateTime = True XValues.Name = 'X' XValues.Multiplier = 1.000000000000000000 XValues.Order = loAscending YValues.DateTime = False YValues.Name = 'Y' YValues.Multiplier = 1.000000000000000000 YValues.Order = loNone Left = 472 Top = 352 end end object Panel1: TPanel Left = 0 Top = 0 Width = 570 Height = 60 Align = alTop BevelOuter = bvNone TabOrder = 1 object Label1: TLabel Left = 192 Top = 4 Width = 47 Height = 26 Caption = 'Items Per Page:' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False WordWrap = True end object SpeedButton1: TSpeedButton Left = 228 Top = 28 Width = 25 Height = 25 Hint = 'Update Graph' Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00555555555555 555555555555555555555555555555555555555555FF55555555555559055555 55555555577FF5555555555599905555555555557777F5555555555599905555 555555557777FF5555555559999905555555555777777F555555559999990555 5555557777777FF5555557990599905555555777757777F55555790555599055 55557775555777FF5555555555599905555555555557777F5555555555559905 555555555555777FF5555555555559905555555555555777FF55555555555579 05555555555555777FF5555555555557905555555555555777FF555555555555 5990555555555555577755555555555555555555555555555555} NumGlyphs = 2 OnClick = SpeedButton1Click end object CheckBox1: TCheckBox Left = 4 Top = 6 Width = 37 Height = 17 Caption = '3D' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False State = cbChecked TabOrder = 0 OnClick = CheckBox1Click end object GraphType: TRadioGroup Left = 44 Top = 0 Width = 61 Height = 56 Caption = 'Chart' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemIndex = 0 Items.Strings = ( 'Bars' 'Pie' 'Lines') ParentFont = False TabOrder = 1 OnClick = GraphTypeClick end object XLabels: TRadioGroup Left = 108 Top = 0 Width = 77 Height = 56 Caption = 'X Axis Labels' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ItemIndex = 0 Items.Strings = ( 'Horizontal' 'Vertical' 'No Labels') ParentFont = False TabOrder = 2 OnClick = XLabelsClick end object Panel2: TPanel Left = 382 Top = 0 Width = 188 Height = 60 Align = alRight BevelOuter = bvNone TabOrder = 3 object BitBtn1: TBitBtn Left = 4 Top = 30 Width = 89 Height = 25 Hint = 'Previous Page' Caption = '&Previous' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 2 OnClick = BitBtn1Click Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 33333333333333333333333333333333333333333333333333FF333333333333 3000333333FFFFF3F77733333000003000B033333777773777F733330BFBFB00 E00033337FFF3377F7773333000FBFB0E000333377733337F7773330FBFBFBF0 E00033F7FFFF3337F7773000000FBFB0E000377777733337F7770BFBFBFBFBF0 E00073FFFFFFFF37F777300000000FB0E000377777777337F7773333330BFB00 000033333373FF77777733333330003333333333333777333333333333333333 3333333333333333333333333333333333333333333333333333333333333333 3333333333333333333333333333333333333333333333333333} NumGlyphs = 2 end object BitBtn2: TBitBtn Left = 95 Top = 30 Width = 89 Height = 25 Hint = 'Next Page' Caption = '&Next' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 3 OnClick = BitBtn2Click Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000120B0000120B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333 3333333333333333333333333333333333333FFF333333333333000333333333 3333777FFF3FFFFF33330B000300000333337F777F777773F333000E00BFBFB0 3333777F773333F7F333000E0BFBF0003333777F7F3337773F33000E0FBFBFBF 0333777F7F3333FF7FFF000E0BFBF0000003777F7F3337777773000E0FBFBFBF BFB0777F7F33FFFFFFF7000E0BF000000003777F7FF777777773000000BFB033 33337777773FF733333333333300033333333333337773333333333333333333 3333333333333333333333333333333333333333333333333333333333333333 3333333333333333333333333333333333333333333333333333} Layout = blGlyphRight NumGlyphs = 2 end object BitBtn3: TBitBtn Left = 4 Top = 3 Width = 89 Height = 25 Hint = 'Print Graph' Caption = 'P&rint' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 0 OnClick = BitBtn3Click Glyph.Data = { 76010000424D7601000000000000760000002800000020000000100000000100 04000000000000010000130B0000130B00001000000000000000000000000000 800000800000008080008000000080008000808000007F7F7F00BFBFBF000000 FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000 00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888 8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F 8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F 8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF 03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF 03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0 33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033 33333337FFFF7733333333300000033333333337777773333333} Layout = blGlyphRight NumGlyphs = 2 end object BitBtn4: TBitBtn Left = 95 Top = 3 Width = 89 Height = 25 Hint = 'Close Graph Window' Caption = '&Close' Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False TabOrder = 1 Kind = bkOK end end object Edit1: TEdit Left = 192 Top = 32 Width = 33 Height = 21 Font.Charset = DEFAULT_CHARSET Font.Color = clBlack Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] MaxLength = 2 ParentFont = False TabOrder = 4 OnKeyPress = Edit1KeyPress end end end