lazarus/components/tachart/demo/legend/main.lfm

object Form1: TForm1
  Left = 1322
  Height = 429
  Top = 181
  Width = 510
  Caption = 'Form1'
  ClientHeight = 429
  ClientWidth = 510
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  Position = poScreenCenter
  LCLVersion = '0.9.31'
  object Chart1: TChart
    Left = 0
    Height = 312
    Top = 0
    Width = 510
    AxisList = <    
      item
        Visible = False
        Minors = <>
        Title.LabelFont.Orientation = 900
      end    
      item
        Visible = False
        Alignment = calBottom
        Minors = <>
      end>
    BackColor = clSkyBlue
    Foot.Brush.Color = clBtnFace
    Foot.Font.Color = clBlue
    Legend.BackgroundBrush.Color = clMoneyGreen
    Legend.GroupFont.Style = [fsBold]
    Legend.GroupTitles.Strings = (
      'Pie'
    )
    Legend.Visible = True
    Title.Brush.Color = clBtnFace
    Title.Font.Color = clBlue
    Title.Text.Strings = (
      'TAChart'
    )
    Align = alClient
    Color = clOlive
    ParentColor = False
    object Chart1LineSeries1: TLineSeries
      Title = 'Line'
      LinePen.Color = clRed
      Pointer.Brush.Color = clRed
      ShowPoints = True
    end
    object Chart1AreaSeries1: TAreaSeries
      Title = 'Area'
      AreaBrush.Color = clGreen
      AreaBrush.Style = bsCross
      Source = RandomChartSource1
    end
    object Chart1PieSeries1: TPieSeries
      Legend.Format = '%2:s %1:.2f%%'
      Legend.GroupIndex = 0
      Legend.Multiplicity = lmPoint
      Marks.Format = '%2:s'
      Marks.Style = smsLabel
      Title = 'Pie'
      Exploded = True
      Source = ListChartSource2
    end
    object Chart1FuncSeries1: TFuncSeries
      Legend.Order = 1
      Legend.UserItemsCount = 2
      Legend.OnDraw = Chart1FuncSeries1DrawLegend
      Extent.UseXMax = True
      Extent.UseXMin = True
      Extent.XMax = 5
      Title = 'Function'
      OnCalculate = Chart1FuncSeries1Calculate
      Pen.Color = clPurple
      Pen.Width = 2
    end
  end
  object pnControls: TPanel
    Left = 0
    Height = 117
    Top = 312
    Width = 510
    Align = alBottom
    ClientHeight = 117
    ClientWidth = 510
    TabOrder = 1
    object lblMarginY: TLabel
      Left = 8
      Height = 14
      Top = 33
      Width = 42
      Caption = 'Y margin'
      ParentColor = False
    end
    object seMarginY: TSpinEdit
      Left = 60
      Height = 21
      Top = 33
      Width = 54
      MaxValue = 20
      OnChange = seMarginYChange
      TabOrder = 0
      Value = 4
    end
    object seSymbolWidth: TSpinEdit
      Left = 196
      Height = 21
      Top = 8
      Width = 54
      MaxValue = 50
      OnChange = seSymbolWidthChange
      TabOrder = 1
      Value = 20
    end
    object lblSymbolWidth: TLabel
      Left = 128
      Height = 14
      Top = 8
      Width = 64
      Caption = 'Symbol width'
      ParentColor = False
    end
    object rgAlignment: TRadioGroup
      Left = 264
      Height = 115
      Top = 1
      Width = 245
      Align = alRight
      AutoFill = True
      Caption = ' Alignment '
      ChildSizing.LeftRightSpacing = 6
      ChildSizing.TopBottomSpacing = 6
      ChildSizing.EnlargeHorizontal = crsHomogenousChildResize
      ChildSizing.EnlargeVertical = crsHomogenousChildResize
      ChildSizing.ShrinkHorizontal = crsScaleChilds
      ChildSizing.ShrinkVertical = crsScaleChilds
      ChildSizing.Layout = cclTopToBottomThenLeftToRight
      ChildSizing.ControlsPerLine = 3
      ClientHeight = 97
      ClientWidth = 241
      Columns = 3
      ItemIndex = 6
      Items.Strings = (
        'TopLeft'
        'CenterLeft'
        'BottomLeft'
        'TopCenter'
        ''
        'BottomCenter'
        'TopRight'
        'CenterRight'
        'BottomRight'
      )
      OnClick = rgAlignmentClick
      TabOrder = 2
    end
    object cbUseSidebar: TCheckBox
      Left = 8
      Height = 17
      Top = 60
      Width = 56
      Caption = 'Sidebar'
      Checked = True
      OnChange = cbUseSidebarChange
      State = cbChecked
      TabOrder = 3
    end
    object lblSpacing: TLabel
      Left = 128
      Height = 14
      Top = 33
      Width = 38
      Caption = 'Spacing'
      ParentColor = False
    end
    object seSpacing: TSpinEdit
      Left = 196
      Height = 21
      Top = 33
      Width = 54
      MaxValue = 20
      OnChange = seSpacingChange
      TabOrder = 4
      Value = 4
    end
    object lblMarginX: TLabel
      Left = 8
      Height = 14
      Top = 8
      Width = 42
      Caption = 'X margin'
      ParentColor = False
    end
    object seMarginX: TSpinEdit
      Left = 60
      Height = 21
      Top = 8
      Width = 54
      MaxValue = 20
      OnChange = seMarginXChange
      TabOrder = 5
      Value = 4
    end
    object cbSeries: TComboBox
      Left = 102
      Height = 22
      Top = 88
      Width = 148
      ItemHeight = 16
      OnDrawItem = cbSeriesDrawItem
      ReadOnly = True
      Style = csOwnerDrawFixed
      TabOrder = 6
    end
    object lblColumnCount: TLabel
      Left = 128
      Height = 14
      Top = 60
      Width = 41
      Caption = 'Columns'
      ParentColor = False
    end
    object seColumnCount: TSpinEdit
      Left = 196
      Height = 21
      Top = 60
      Width = 54
      MinValue = 1
      OnChange = seColumnCountChange
      TabOrder = 7
      Value = 1
    end
    object cbByRows: TCheckBox
      Left = 8
      Height = 17
      Top = 84
      Width = 58
      Caption = 'By rows'
      OnChange = cbByRowsChange
      TabOrder = 8
    end
  end
  object RandomChartSource1: TRandomChartSource
    PointsNumber = 7
    RandSeed = 104675296
    XMax = 10
    XMin = 1
    YMax = 10
    YMin = 1
    left = 380
    top = 112
  end
  object ListChartSource1: TListChartSource
    DataPoints.Strings = (
      '0|0|?|'
      '1|2|$00FF00|'
      '2|5|?|'
      '3|1|?|'
      '4|6|?|'
    )
    left = 380
    top = 168
  end
  object ListChartSource2: TListChartSource
    DataPoints.Strings = (
      '0|5|?|abcc'
      '0|6|?|def'
      '0.2|4|?|пример'
      '0|7|?|ещё'
      '0|2|?|два слова'
    )
    left = 380
    top = 228
  end
end