home *** CD-ROM | disk | FTP | other *** search
/ PC Expert 29 / Pce29cd.iso / RUNIMAGE / DELPHI40 / DEMOS / TEECHART / TABLEPIE.DFM / TABLEPIE.txt
Text File  |  1998-06-16  |  4KB  |  182 lines
  1. object TablePieForm: TTablePieForm
  2.   Left = 60
  3.   Top = 50
  4.   Width = 609
  5.   Height = 460
  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.   WindowState = wsMaximized
  13.   TextHeight = 13
  14.   object DBChart1: TDBChart
  15.     Left = 0
  16.     Top = 0
  17.     Width = 601
  18.     Height = 282
  19.     AllowPanning = pmNone
  20.     AllowZoom = False
  21.     BottomWall.Color = clWhite
  22.     Foot.Font.Color = clRed
  23.     Foot.Font.Height = -15
  24.     Foot.Font.Name = 'Arial'
  25.     Foot.Font.Style = [fsBold]
  26.     Foot.Frame.Color = clScrollBar
  27.     Foot.Text.Strings = (
  28.       'XLabelSource:=Table1Name'
  29.       'PieValueSource:=Table1Size')
  30.     LeftWall.Color = 8454143
  31.     Title.Font.Color = clBlue
  32.     Title.Font.Height = -16
  33.     Title.Font.Name = 'Arial'
  34.     Title.Font.Style = [fsBold, fsItalic]
  35.     Title.Frame.Color = clScrollBar
  36.     Title.Text.Strings = (
  37.       'Pie Chart built from Table :DBDEMOS:ANIMALS.DBF')
  38.     AxisVisible = False
  39.     BottomAxis.Grid.Color = clScrollBar
  40.     ClipPoints = False
  41.     Frame.Visible = False
  42.     LeftAxis.Grid.Color = clScrollBar
  43.     Legend.Alignment = laLeft
  44.     Legend.Color = clAqua
  45.     Legend.Font.Color = clBlack
  46.     Legend.Font.Height = -16
  47.     Legend.Font.Name = 'Arial'
  48.     Legend.Font.Style = [fsBold, fsItalic]
  49.     Legend.Frame.Color = clTeal
  50.     Legend.Frame.Width = 4
  51.     Legend.TextStyle = ltsLeftPercent
  52.     Legend.ShadowColor = clGray
  53.     Legend.ShadowSize = 11
  54.     RightAxis.Grid.Color = clScrollBar
  55.     TopAxis.Grid.Color = clScrollBar
  56.     View3DWalls = False
  57.     Align = alClient
  58.     TabOrder = 0
  59.     object PieSeries1: TPieSeries
  60.       Cursor = crDrag
  61.       Marks.Arrow.Color = clYellow
  62.       Marks.Arrow.Width = 2
  63.       Marks.ArrowLength = 11
  64.       Marks.BackColor = clWhite
  65.       Marks.Font.Color = clRed
  66.       Marks.Font.Height = -13
  67.       Marks.Font.Name = 'Arial'
  68.       Marks.Font.Style = [fsItalic]
  69.       Marks.Frame.Color = clNavy
  70.       Marks.Frame.Width = 3
  71.       Marks.Style = smsLabelValue
  72.       Marks.Visible = True
  73.       DataSource = Table1
  74.       XLabelsSource = 'NAME'
  75.       OnClick = PieSeries1Click
  76.       Circled = True
  77.       PieValues.DateTime = False
  78.       PieValues.Name = 'Y'
  79.       PieValues.Multiplier = 1.000000000000000000
  80.       PieValues.Order = loNone
  81.       PieValues.ValueSource = 'SIZE'
  82.       Left = 187
  83.       Top = 6
  84.     end
  85.   end
  86.   object Panel2: TPanel
  87.     Left = 0
  88.     Top = 282
  89.     Width = 601
  90.     Height = 117
  91.     Align = alBottom
  92.     TabOrder = 1
  93.     object DBGrid1: TDBGrid
  94.       Left = 329
  95.       Top = 1
  96.       Width = 271
  97.       Height = 115
  98.       Align = alRight
  99.       DataSource = DataSource1
  100.       TabOrder = 0
  101.       TitleFont.Color = clBlack
  102.       TitleFont.Height = -9
  103.       TitleFont.Name = 'MS Sans Serif'
  104.       TitleFont.Style = []
  105.     end
  106.     object CheckBox1: TCheckBox
  107.       Left = 10
  108.       Top = 8
  109.       Width = 101
  110.       Height = 14
  111.       Caption = 'ACTIVE Table'
  112.       State = cbChecked
  113.       TabOrder = 1
  114.       OnClick = CheckBox1Click
  115.     end
  116.     object RadioGroup1: TRadioGroup
  117.       Left = 10
  118.       Top = 32
  119.       Width = 131
  120.       Height = 32
  121.       Caption = 'Use Field:'
  122.       Columns = 2
  123.       ItemIndex = 0
  124.       Items.Strings = (
  125.         'Size'
  126.         'Weight')
  127.       TabOrder = 2
  128.       OnClick = RadioGroup1Click
  129.     end
  130.     object BitBtn1: TBitBtn
  131.       Left = 27
  132.       Top = 79
  133.       Width = 90
  134.       Height = 27
  135.       Caption = 'Close'
  136.       Font.Color = clBlack
  137.       Font.Height = -11
  138.       Font.Name = 'Arial'
  139.       Font.Style = []
  140.       ParentFont = False
  141.       TabOrder = 3
  142.       Kind = bkClose
  143.     end
  144.   end
  145.   object Panel1: TPanel
  146.     Left = 0
  147.     Top = 399
  148.     Width = 601
  149.     Height = 34
  150.     Align = alBottom
  151.     Alignment = taLeftJustify
  152.     Font.Color = clRed
  153.     Font.Height = -9
  154.     Font.Name = 'Arial'
  155.     Font.Style = [fsItalic]
  156.     ParentFont = False
  157.     TabOrder = 2
  158.   end
  159.   object Table1: TTable
  160.     Active = True
  161.     DatabaseName = 'DBDEMOS'
  162.     TableName = 'ANIMALS.DBF'
  163.     Left = 29
  164.     Top = 344
  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 = 111
  179.     Top = 344
  180.   end
  181. end
  182.