object Form1: TForm1
  Left = 459
  Height = 433
  Top = 346
  Width = 566
  Caption = 'Form1'
  ClientHeight = 433
  ClientWidth = 566
  Position = poScreenCenter
  LCLVersion = '1.7'
  object PageControl1: TPageControl
    Left = 0
    Height = 433
    Top = 0
    Width = 566
    ActivePage = tsPie
    Align = alClient
    TabIndex = 0
    TabOrder = 0
    object tsPie: TTabSheet
      Caption = 'Pie'
      ClientHeight = 405
      ClientWidth = 558
      object ChartPie: TChart
        Left = 0
        Height = 346
        Top = 59
        Width = 558
        AxisList = <        
          item
            Visible = False
            Minors = <>
            Title.LabelFont.Orientation = 900
          end        
          item
            Visible = False
            Alignment = calBottom
            Minors = <>
          end>
        Foot.Brush.Color = clBtnFace
        Foot.Font.Color = clBlue
        Title.Brush.Color = clBtnFace
        Title.Font.Color = clBlue
        Title.Text.Strings = (
          'TAChart'
        )
        Toolset = ChartToolset1
        Align = alClient
        Color = clDefault
        OnMouseDown = ChartPieMouseDown
        object ChartPiePieSeries1: TPieSeries
          Marks.Distance = 40
          Marks.Format = '%2:s'
          Marks.Style = smsLabel
          Exploded = True
          Source = ListChartSource1
        end
      end
      object Panel1: TPanel
        Left = 0
        Height = 59
        Top = 0
        Width = 558
        Align = alTop
        Alignment = taLeftJustify
        Caption = 'Click on the slice to explode/unexplode it'
        ClientHeight = 59
        ClientWidth = 558
        TabOrder = 1
        object seWords: TSpinEdit
          Left = 488
          Height = 23
          Top = 6
          Width = 58
          Anchors = [akTop, akRight]
          MaxValue = 10
          OnChange = seWordsChange
          TabOrder = 0
        end
        object lblWords: TLabel
          Left = 419
          Height = 15
          Top = 10
          Width = 63
          Anchors = [akTop, akRight]
          Caption = 'Label words'
          ParentColor = False
        end
        object seLabelAngle: TSpinEdit
          Left = 360
          Height = 23
          Top = 6
          Width = 50
          Anchors = [akTop, akRight]
          Increment = 5
          MaxValue = 360
          MinValue = -360
          OnChange = seLabelAngleChange
          TabOrder = 1
        end
        object lblLabelAngle: TLabel
          Left = 291
          Height = 15
          Top = 10
          Width = 60
          Anchors = [akTop, akRight]
          Caption = 'Label angle'
          ParentColor = False
        end
        object cbRotate: TCheckBox
          Left = 459
          Height = 19
          Top = 30
          Width = 87
          Anchors = [akTop, akRight]
          Caption = 'Rotate labels'
          OnChange = cbRotateChange
          TabOrder = 2
        end
        object cbMarkPositions: TComboBox
          Left = 310
          Height = 23
          Top = 30
          Width = 100
          ItemHeight = 15
          ItemIndex = 0
          Items.Strings = (
            'Around'
            'Inside'
            'Left / right'
          )
          OnChange = cbMarkPositionsChange
          Style = csDropDownList
          TabOrder = 3
          Text = 'Around'
        end
      end
    end
    object tsPolar: TTabSheet
      Caption = 'Polar'
      ClientHeight = 405
      ClientWidth = 558
      object ChartPolar: TChart
        Left = 0
        Height = 405
        Top = 0
        Width = 420
        AxisList = <        
          item
            Minors = <>
            Title.LabelFont.Orientation = 900
          end        
          item
            Alignment = calBottom
            Minors = <>
          end>
        Foot.Brush.Color = clBtnFace
        Foot.Font.Color = clBlue
        Title.Brush.Color = clBtnFace
        Title.Font.Color = clBlue
        Title.Text.Strings = (
          'TAChart'
        )
        Align = alClient
        Color = clDefault
        object ChartPolarSeries1: TPolarSeries
          Brush.Color = 14145495
          OriginX = -5
          Pointer.HorizSize = 6
          Pointer.Style = psDiamond
          Pointer.VertSize = 6
          Pointer.Visible = False
          ShowPoints = False
          Source = RandomChartSource1
        end
        object ChartPolarSeries2: TPolarSeries
          Brush.Color = 12303359
          LinePen.Color = clRed
          OriginY = 5
          Pointer.Brush.Color = clRed
          Pointer.Style = psCircle
          Pointer.Visible = False
          ShowPoints = False
          Source = RandomChartSource1
        end
      end
      object pnlPolar: TPanel
        Left = 420
        Height = 405
        Top = 0
        Width = 138
        Align = alRight
        AutoSize = True
        ClientHeight = 405
        ClientWidth = 138
        TabOrder = 1
        object cbCloseCircle: TCheckBox
          AnchorSideLeft.Control = pnlPolar
          AnchorSideTop.Control = pnlPolar
          Left = 9
          Height = 19
          Top = 9
          Width = 56
          BorderSpacing.Left = 8
          BorderSpacing.Top = 8
          BorderSpacing.Bottom = 8
          Caption = 'Closed'
          OnChange = cbCloseCircleChange
          TabOrder = 0
        end
        object cbShowPoints: TCheckBox
          AnchorSideLeft.Control = pnlPolar
          AnchorSideTop.Control = cbCloseCircle
          AnchorSideTop.Side = asrBottom
          Left = 9
          Height = 19
          Top = 36
          Width = 85
          BorderSpacing.Left = 8
          BorderSpacing.Top = 8
          BorderSpacing.Right = 8
          Caption = 'Show points'
          OnChange = cbShowPointsChange
          TabOrder = 1
        end
        object cbFilled: TCheckBox
          AnchorSideLeft.Control = pnlPolar
          AnchorSideTop.Control = cbShowPoints
          AnchorSideTop.Side = asrBottom
          Left = 9
          Height = 19
          Top = 63
          Width = 48
          BorderSpacing.Left = 8
          BorderSpacing.Top = 8
          Caption = 'Filled'
          OnChange = cbFilledChange
          TabOrder = 2
        end
        object sbTransparency: TScrollBar
          AnchorSideLeft.Control = pnlPolar
          AnchorSideTop.Control = lblTransparency
          AnchorSideTop.Side = asrBottom
          Left = 9
          Height = 17
          Top = 117
          Width = 120
          BorderSpacing.Left = 8
          BorderSpacing.Top = 4
          BorderSpacing.Right = 8
          Max = 255
          PageSize = 0
          TabOrder = 3
          OnChange = sbTransparencyChange
        end
        object lblTransparency: TLabel
          AnchorSideLeft.Control = pnlPolar
          AnchorSideTop.Control = cbFilled
          AnchorSideTop.Side = asrBottom
          Left = 9
          Height = 15
          Top = 98
          Width = 87
          BorderSpacing.Left = 8
          BorderSpacing.Top = 16
          Caption = 'Transparency (0)'
          FocusControl = sbTransparency
          ParentColor = False
        end
      end
    end
  end
  object ListChartSource1: TListChartSource
    DataPoints.Strings = (
      '0|1|?|'
      '0|2|?|'
      '0|3|?|'
      '0|1|?|'
      '0|2|?|'
      '0|3|?|'
      '0|1|?|'
      '0|2|?|'
      '0|3|?|'
      '0|5|?|'
    )
    left = 488
    top = 296
  end
  object ChartToolset1: TChartToolset
    left = 488
    top = 240
  end
  object RandomChartSource1: TRandomChartSource
    PointsNumber = 15
    RandSeed = 1648434073
    XMax = 6
    XMin = 0
    YCount = 2
    YMax = 10
    YMin = 2
    left = 488
    top = 356
  end
end