1object Form1: TForm1 2 Left = 429 3 Height = 331 4 Top = 216 5 Width = 528 6 Caption = 'Form1' 7 ClientHeight = 331 8 ClientWidth = 528 9 OnCreate = FormCreate 10 LCLVersion = '1.7' 11 object Chart1: TChart 12 Left = 0 13 Height = 296 14 Top = 0 15 Width = 528 16 AxisList = < 17 item 18 Minors = <> 19 Title.LabelFont.Orientation = 900 20 end 21 item 22 Alignment = calBottom 23 Marks.Format = '%4:.9g' 24 Marks.Source = ListChartSource1 25 Marks.Style = smsXValue 26 Minors = <> 27 end> 28 Foot.Brush.Color = clBtnFace 29 Foot.Font.Color = clBlue 30 Title.Brush.Color = clBtnFace 31 Title.Font.Color = clBlue 32 Title.Text.Strings = ( 33 'TAChart' 34 ) 35 Align = alClient 36 object Chart1BarSeries1: TBarSeries 37 BarBrush.Color = clRed 38 Source = ListChartSource1 39 end 40 end 41 object Panel1: TPanel 42 Left = 0 43 Height = 35 44 Top = 296 45 Width = 528 46 Align = alBottom 47 BevelOuter = bvNone 48 ClientHeight = 35 49 ClientWidth = 528 50 TabOrder = 1 51 object btnShowReport: TButton 52 Left = 4 53 Height = 25 54 Top = 4 55 Width = 75 56 Caption = 'Show report' 57 OnClick = btnShowReportClick 58 TabOrder = 0 59 end 60 end 61 object frReport1: TfrReport 62 InitialZoom = pzDefault 63 Options = [] 64 PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit] 65 DataType = dtDataSet 66 OnEnterRect = frReport1EnterRect 67 left = 72 68 top = 80 69 end 70 object ListChartSource1: TListChartSource 71 DataPoints.Strings = ( 72 '1|5|$008000|' 73 '2|7|$0080FF|' 74 '3|6|$FF00FF|' 75 '4|3|$40FF00|' 76 '5|8|$8000FF|' 77 ) 78 left = 72 79 top = 124 80 end 81end 82