home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / TEECHART / Delphi1_And_Delphi2 / EXAMPLES / STANDARD / TABLEPIE.DFM / TABLEPIE.txt
Encoding:
Text File  |  1998-10-24  |  4.4 KB  |  182 lines
  1. object TablePieForm: TTablePieForm
  2.   Left = 233
  3.   Top = 163
  4.   Width = 554
  5.   Height = 423
  6.   Caption = 'TeeChart Table-Pie Demo'
  7.   Font.Color = clBlack
  8.   Font.Height = -9
  9.   Font.Name = 'MS Sans Serif'
  10.   Font.Style = []
  11.   PixelsPerInch = 96
  12.   Position = poScreenCenter
  13.   Scaled = False
  14.   TextHeight = 13
  15.   object DBChart1: TDBChart
  16.     Left = 0
  17.     Top = 0
  18.     Width = 546
  19.     Height = 279
  20.     AllowPanning = pmNone
  21.     AllowZoom = False
  22.     BackWall.Brush.Color = clWhite
  23.     BackWall.Brush.Style = bsClear
  24.     BackWall.Pen.Visible = False
  25.     Foot.Font.Color = clRed
  26.     Foot.Font.Height = -15
  27.     Foot.Font.Name = 'Arial'
  28.     Foot.Font.Style = [fsBold]
  29.     Foot.Frame.Color = clScrollBar
  30.     Foot.Text.Strings = (
  31.       'XLabelSource:=Table1Name'
  32.       'PieValueSource:=Table1Size')
  33.     Title.Font.Color = clBlue
  34.     Title.Font.Height = -15
  35.     Title.Font.Name = 'Arial'
  36.     Title.Font.Style = [fsBold, fsItalic]
  37.     Title.Frame.Color = clScrollBar
  38.     Title.Text.Strings = (
  39.       'Pie Chart built from Table :DBDEMOS:ANIMALS.DBF')
  40.     AxisVisible = False
  41.     BottomAxis.Grid.Color = clScrollBar
  42.     BottomAxis.EndPosition = 100.000000000000000000
  43.     Chart3DPercent = 25
  44.     ClipPoints = False
  45.     Frame.Visible = False
  46.     LeftAxis.Grid.Color = clScrollBar
  47.     LeftAxis.EndPosition = 100.000000000000000000
  48.     Legend.Alignment = laLeft
  49.     Legend.Color = clAqua
  50.     Legend.Font.Color = clBlack
  51.     Legend.Font.Height = -13
  52.     Legend.Font.Name = 'Arial'
  53.     Legend.Font.Style = [fsBold, fsItalic]
  54.     Legend.Frame.Color = clTeal
  55.     Legend.Frame.Width = 4
  56.     Legend.ShadowColor = clGray
  57.     Legend.ShadowSize = 11
  58.     Legend.TextStyle = ltsLeftPercent
  59.     Legend.TopPos = 15
  60.     RightAxis.Grid.Color = clScrollBar
  61.     RightAxis.EndPosition = 100.000000000000000000
  62.     TopAxis.Grid.Color = clScrollBar
  63.     TopAxis.EndPosition = 100.000000000000000000
  64.     View3DOptions.Elevation = 315
  65.     View3DOptions.Orthogonal = False
  66.     View3DOptions.Perspective = 0
  67.     View3DOptions.Rotation = 360
  68.     View3DWalls = False
  69.     Align = alClient
  70.     TabOrder = 0
  71.     object PieSeries1: TPieSeries
  72.       Cursor = crDrag
  73.       Marks.Arrow.Color = clYellow
  74.       Marks.Arrow.Width = 2
  75.       Marks.ArrowLength = 11
  76.       Marks.BackColor = clWhite
  77.       Marks.Font.Color = clRed
  78.       Marks.Font.Height = -13
  79.       Marks.Font.Name = 'Arial'
  80.       Marks.Font.Style = [fsItalic]
  81.       Marks.Frame.Color = clNavy
  82.       Marks.Frame.Width = 3
  83.       Marks.Style = smsLabelValue
  84.       Marks.Visible = True
  85.       DataSource = Table1
  86.       SeriesColor = clRed
  87.       XLabelsSource = 'NAME'
  88.       OnClick = PieSeries1Click
  89.       Circled = True
  90.       OtherSlice.Text = 'Other'
  91.       PieValues.DateTime = False
  92.       PieValues.Name = 'Y'
  93.       PieValues.Multiplier = 1.000000000000000000
  94.       PieValues.Order = loNone
  95.       PieValues.ValueSource = 'SIZE'
  96.       Left = 187
  97.       Top = 6
  98.     end
  99.   end
  100.   object Panel2: TPanel
  101.     Left = 0
  102.     Top = 279
  103.     Width = 546
  104.     Height = 117
  105.     Align = alBottom
  106.     TabOrder = 1
  107.     object DBGrid1: TDBGrid
  108.       Left = 1
  109.       Top = 1
  110.       Width = 264
  111.       Height = 115
  112.       Align = alLeft
  113.       DataSource = DataSource1
  114.       TabOrder = 0
  115.       TitleFont.Color = clBlack
  116.       TitleFont.Height = -9
  117.       TitleFont.Name = 'MS Sans Serif'
  118.       TitleFont.Style = []
  119.     end
  120.     object CheckBox1: TCheckBox
  121.       Left = 290
  122.       Top = 8
  123.       Width = 101
  124.       Height = 14
  125.       Caption = 'ACTIVE Table'
  126.       State = cbChecked
  127.       TabOrder = 1
  128.       OnClick = CheckBox1Click
  129.     end
  130.     object RadioGroup1: TRadioGroup
  131.       Left = 290
  132.       Top = 32
  133.       Width = 131
  134.       Height = 32
  135.       Caption = 'Use Field:'
  136.       Columns = 2
  137.       ItemIndex = 0
  138.       Items.Strings = (
  139.         'Size'
  140.         'Weight')
  141.       TabOrder = 2
  142.       OnClick = RadioGroup1Click
  143.     end
  144.     object BitBtn1: TBitBtn
  145.       Left = 451
  146.       Top = 79
  147.       Width = 78
  148.       Height = 27
  149.       Caption = 'Close'
  150.       Font.Color = clBlack
  151.       Font.Height = -11
  152.       Font.Name = 'Arial'
  153.       Font.Style = []
  154.       ParentFont = False
  155.       TabOrder = 3
  156.       Kind = bkClose
  157.     end
  158.   end
  159.   object Table1: TTable
  160.     Active = True
  161.     DatabaseName = 'DBDEMOS'
  162.     TableName = 'ANIMALS.DBF'
  163.     Left = 53
  164.     Top = 216
  165.     object Table1NAME: TStringField
  166.       FieldName = 'NAME'
  167.       Size = 10
  168.     end
  169.     object Table1SIZE: TSmallintField
  170.       FieldName = 'SIZE'
  171.     end
  172.     object Table1WEIGHT: TSmallintField
  173.       FieldName = 'WEIGHT'
  174.     end
  175.   end
  176.   object DataSource1: TDataSource
  177.     DataSet = Table1
  178.     Left = 135
  179.     Top = 224
  180.   end
  181. end
  182.