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