lazarus/components/tachart/demo/charteditor/cemain.lfm

object MainForm: TMainForm
  Left = 332
  Height = 366
  Top = 128
  Width = 613
  Caption = 'MainForm'
  ClientHeight = 346
  ClientWidth = 613
  Menu = MainMenu
  OnCreate = FormCreate
  LCLVersion = '2.1.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>
    BackColor = clWhite
    Foot.Alignment = taLeftJustify
    Foot.Brush.Color = clBtnFace
    Foot.Font.Color = clBlue
    Foot.Text.Strings = (
      'Created by Lazarus and TAChart'
    )
    Foot.Visible = True
    Legend.Visible = True
    Title.Brush.Color = clBtnFace
    Title.Font.Color = clBlue
    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.'
    ParentColor = False
  end
  object Bevel1: TBevel
    AnchorSideBottom.Control = Label1
    Left = 0
    Height = 4
    Top = 290
    Width = 613
    Shape = bsBottomLine
  end
  object cbDoubleClick: TCheckBox
    AnchorSideLeft.Control = Owner
    AnchorSideBottom.Control = Owner
    AnchorSideBottom.Side = asrBottom
    Left = 6
    Height = 19
    Top = 321
    Width = 177
    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 = 207
    Height = 19
    Top = 321
    Width = 140
    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]
      OnClick = ChartToolset1LegendClickTool1Click
    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