object MainForm: TMainForm Left = 332 Height = 366 Top = 128 Width = 613 Caption = 'MainForm' ClientHeight = 346 ClientWidth = 613 Menu = MainMenu OnCreate = FormCreate LCLVersion = '2.3.0.0' object Chart1: TChart AnchorSideLeft.Control = Owner AnchorSideTop.Control = Owner AnchorSideRight.Control = Owner AnchorSideRight.Side = asrBottom AnchorSideBottom.Control = Bevel1 Left = 0 Height = 290 Top = 0 Width = 613 AxisList = < item Marks.LabelBrush.Style = bsClear Minors = <> Title.LabelFont.Orientation = 900 Title.Visible = True Title.Caption = 'y axis' Title.LabelBrush.Style = bsClear end item Alignment = calBottom Marks.LabelBrush.Style = bsClear Minors = <> Title.Visible = True Title.Caption = 'x axis' Title.LabelBrush.Style = bsClear end> Foot.Alignment = taLeftJustify Foot.Brush.Color = clForm Foot.Text.Strings = ( 'Created by Lazarus and TAChart' ) Foot.Visible = True Legend.Visible = True Title.Brush.Color = clForm Title.Text.Strings = ( 'TAChart' ) Title.Visible = True Toolset = ChartToolset1 Anchors = [akTop, akLeft, akRight, akBottom] object Chart1LineSeries1: TLineSeries Title = 'Line' LinePen.Color = clBlue Pointer.Brush.Color = clBlue Pointer.HorizSize = 5 Pointer.Style = psCircle Pointer.VertSize = 5 Pointer.Visible = True ShowPoints = True Source = RandomChartSource1 end object Chart1BarSeries1: TBarSeries Title = 'Bars' BarBrush.Color = clRed Source = RandomChartSource2 ToolTargets = [nptYList, nptCustom] UseZeroLevel = False end object Chart1AreaSeries1: TAreaSeries Title = 'Area' AreaBrush.Color = clYellow Source = RandomChartSource3 ToolTargets = [nptPoint, nptYList, nptCustom] end end object Label1: TLabel AnchorSideLeft.Control = Owner AnchorSideBottom.Control = cbDoubleClick Left = 6 Height = 15 Top = 300 Width = 601 Anchors = [akLeft, akRight, akBottom] BorderSpacing.Around = 6 Caption = 'Click on a title, axis, label, grid, data point to open the corresponding editor.' end object Bevel1: TBevel AnchorSideLeft.Control = Owner AnchorSideRight.Control = Owner AnchorSideRight.Side = asrBottom AnchorSideBottom.Control = Label1 Left = 0 Height = 4 Top = 290 Width = 613 Anchors = [akLeft, akRight, akBottom] Shape = bsBottomLine end object cbDoubleClick: TCheckBox AnchorSideLeft.Control = Owner AnchorSideBottom.Control = Owner AnchorSideBottom.Side = asrBottom Left = 6 Height = 19 Top = 321 Width = 175 Anchors = [akLeft, akBottom] BorderSpacing.Left = 6 BorderSpacing.Bottom = 6 Caption = 'Activate tools by double-click' OnChange = cbDoubleClickChange TabOrder = 1 end object cbUseAllInOneDialog: TCheckBox AnchorSideLeft.Control = cbDoubleClick AnchorSideLeft.Side = asrBottom AnchorSideTop.Control = cbDoubleClick Left = 205 Height = 19 Top = 321 Width = 138 BorderSpacing.Left = 24 Caption = 'Use "all-in-one" dialog' TabOrder = 2 end object ChartToolset1: TChartToolset Left = 104 Top = 16 object ChartToolset1DataPointClickTool1: TDataPointClickTool Shift = [ssLeft] OnPointClick = ChartToolset1DataPointClickTool1PointClick end object ChartToolset1TitleFootClickTool1: TTitleFootClickTool Shift = [ssLeft] OnClick = ChartToolset1TitleFootClickTool1Click end object ChartToolset1LegendClickTool1: TLegendClickTool Shift = [ssLeft] OnSeriesClick = ChartToolset1LegendClickTool1SeriesClick end object ChartToolset1AxisClickTool1: TAxisClickTool Shift = [ssLeft] OnClick = ChartToolset1AxisClickTool1Click end end object MainMenu: TMainMenu Images = ChartImagesDM.ChartImages Left = 104 Top = 88 object mnuSettings: TMenuItem Caption = 'Settings' object mnuChartTitle: TMenuItem Caption = 'Chart title...' ImageIndex = 0 OnClick = mnuChartTitleClick end object mnuChartFooter: TMenuItem Caption = 'Chart footer...' ImageIndex = 1 OnClick = mnuChartFooterClick end object mnuChartLegend: TMenuItem Caption = 'Chart legend...' ImageIndex = 2 OnClick = mnuChartLegendClick end object MenuItem2: TMenuItem Caption = '-' end object mnuBottomAxis: TMenuItem Caption = 'Bottom axis...' ImageIndex = 6 OnClick = mnuBottomAxisClick end object mnuLeftAxis: TMenuItem Caption = 'Left axis...' ImageIndex = 3 OnClick = mnuLeftAxisClick end object MenuItem1: TMenuItem Caption = '-' end object mnuSeries: TMenuItem Caption = 'Series' end end end object RandomChartSource1: TRandomChartSource PointsNumber = 15 RandSeed = 1312718226 XMax = 10 YMax = 100 YMin = 30 Left = 444 Top = 48 end object RandomChartSource2: TRandomChartSource PointsNumber = 11 RandSeed = 1312768733 XMax = 10 YMax = 50 Left = 444 Top = 104 end object RandomChartSource3: TRandomChartSource PointsNumber = 11 RandSeed = 1312768734 XMax = 10 YMax = 50 Left = 444 Top = 168 end end