object TablePieForm: TTablePieForm
  Left = 60
  Top = 50
  Width = 609
  Height = 460
  Caption = 'TeeChart Table-Pie Demo'
  Font.Color = clBlack
  Font.Height = -9
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PixelsPerInch = 96
  WindowState = wsMaximized
  TextHeight = 13
  object DBChart1: TDBChart
    Left = 0
    Top = 0
    Width = 601
    Height = 282
    AllowPanning = pmNone
    AllowZoom = False
    BottomWall.Color = clWhite
    Foot.Font.Color = clRed
    Foot.Font.Height = -15
    Foot.Font.Name = 'Arial'
    Foot.Font.Style = [fsBold]
    Foot.Frame.Color = clScrollBar
    Foot.Text.Strings = (
      'XLabelSource:=Table1Name'
      'PieValueSource:=Table1Size')
    LeftWall.Color = 8454143
    Title.Font.Color = clBlue
    Title.Font.Height = -16
    Title.Font.Name = 'Arial'
    Title.Font.Style = [fsBold, fsItalic]
    Title.Frame.Color = clScrollBar
    Title.Text.Strings = (
      'Pie Chart built from Table :DBDEMOS:ANIMALS.DBF')
    AxisVisible = False
    BottomAxis.Grid.Color = clScrollBar
    ClipPoints = False
    Frame.Visible = False
    LeftAxis.Grid.Color = clScrollBar
    Legend.Alignment = laLeft
    Legend.Color = clAqua
    Legend.Font.Color = clBlack
    Legend.Font.Height = -16
    Legend.Font.Name = 'Arial'
    Legend.Font.Style = [fsBold, fsItalic]
    Legend.Frame.Color = clTeal
    Legend.Frame.Width = 4
    Legend.TextStyle = ltsLeftPercent
    Legend.ShadowColor = clGray
    Legend.ShadowSize = 11
    RightAxis.Grid.Color = clScrollBar
    TopAxis.Grid.Color = clScrollBar
    View3DWalls = False
    Align = alClient
    TabOrder = 0
    object PieSeries1: TPieSeries
      Cursor = crDrag
      Marks.Arrow.Color = clYellow
      Marks.Arrow.Width = 2
      Marks.ArrowLength = 11
      Marks.BackColor = clWhite
      Marks.Font.Color = clRed
      Marks.Font.Height = -13
      Marks.Font.Name = 'Arial'
      Marks.Font.Style = [fsItalic]
      Marks.Frame.Color = clNavy
      Marks.Frame.Width = 3
      Marks.Style = smsLabelValue
      Marks.Visible = True
      DataSource = Table1
      XLabelsSource = 'NAME'
      OnClick = PieSeries1Click
      Circled = True
      PieValues.DateTime = False
      PieValues.Name = 'Y'
      PieValues.Multiplier = 1.000000000000000000
      PieValues.Order = loNone
      PieValues.ValueSource = 'SIZE'
      Left = 187
      Top = 6
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 282
    Width = 601
    Height = 117
    Align = alBottom
    TabOrder = 1
    object DBGrid1: TDBGrid
      Left = 329
      Top = 1
      Width = 271
      Height = 115
      Align = alRight
      DataSource = DataSource1
      TabOrder = 0
      TitleFont.Color = clBlack
      TitleFont.Height = -9
      TitleFont.Name = 'MS Sans Serif'
      TitleFont.Style = []
    end
    object CheckBox1: TCheckBox
      Left = 10
      Top = 8
      Width = 101
      Height = 14
      Caption = 'ACTIVE Table'
      State = cbChecked
      TabOrder = 1
      OnClick = CheckBox1Click
    end
    object RadioGroup1: TRadioGroup
      Left = 10
      Top = 32
      Width = 131
      Height = 32
      Caption = 'Use Field:'
      Columns = 2
      ItemIndex = 0
      Items.Strings = (
        'Size'
        'Weight')
      TabOrder = 2
      OnClick = RadioGroup1Click
    end
    object BitBtn1: TBitBtn
      Left = 27
      Top = 79
      Width = 90
      Height = 27
      Caption = 'Close'
      Font.Color = clBlack
      Font.Height = -11
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      TabOrder = 3
      Kind = bkClose
    end
  end
  object Panel1: TPanel
    Left = 0
    Top = 399
    Width = 601
    Height = 34
    Align = alBottom
    Alignment = taLeftJustify
    Font.Color = clRed
    Font.Height = -9
    Font.Name = 'Arial'
    Font.Style = [fsItalic]
    ParentFont = False
    TabOrder = 2
  end
  object Table1: TTable
    Active = True
    DatabaseName = 'DBDEMOS'
    TableName = 'ANIMALS.DBF'
    Left = 29
    Top = 344
    object Table1NAME: TStringField
      FieldName = 'NAME'
      Size = 10
    end
    object Table1SIZE: TSmallintField
      FieldName = 'SIZE'
    end
    object Table1WEIGHT: TSmallintField
      FieldName = 'WEIGHT'
    end
  end
  object DataSource1: TDataSource
    DataSet = Table1
    Left = 111
    Top = 344
  end
end