home *** CD-ROM | disk | FTP | other *** search
/ Delphi Anthology / aDELPHI.iso / Runimage / Delphi50 / Demos / Teechart / stackare.dfm / stackare.txt
Encoding:
Text File  |  1999-08-11  |  3.8 KB  |  168 lines
  1. object AreasForm: TAreasForm
  2.   Left = -4
  3.   Top = -4
  4.   Width = 808
  5.   Height = 580
  6.   ActiveControl = Chart1
  7.   Caption = 'Area Series Example'
  8.   Font.Color = clBlack
  9.   Font.Height = -11
  10.   Font.Name = 'MS Sans Serif'
  11.   Font.Style = []
  12.   PixelsPerInch = 96
  13.   Position = poDefault
  14.   Scaled = False
  15.   WindowState = wsMaximized
  16.   OnCreate = FormCreate
  17.   TextHeight = 13
  18.   object Panel1: TPanel
  19.     Left = 0
  20.     Top = 0
  21.     Width = 145
  22.     Height = 553
  23.     Align = alLeft
  24.     TabOrder = 0
  25.     object Label1: TLabel
  26.       Left = 14
  27.       Top = 196
  28.       Width = 63
  29.       Height = 23
  30.       Caption = 'Label1'
  31.       Font.Color = clBlack
  32.       Font.Height = -19
  33.       Font.Name = 'Arial'
  34.       Font.Style = [fsBold, fsItalic]
  35.       ParentFont = False
  36.     end
  37.     object RadioGroup1: TRadioGroup
  38.       Left = 12
  39.       Top = 59
  40.       Width = 117
  41.       Height = 122
  42.       Caption = 'Area Series Mode:'
  43.       ItemIndex = 0
  44.       Items.Strings = (
  45.         'maNone'
  46.         'maStacked'
  47.         'maStacked100')
  48.       TabOrder = 0
  49.       OnClick = RadioGroup1Click
  50.     end
  51.     object BitBtn1: TBitBtn
  52.       Left = 18
  53.       Top = 350
  54.       Width = 89
  55.       Height = 33
  56.       TabOrder = 1
  57.       Kind = bkClose
  58.     end
  59.     object CheckBox1: TCheckBox
  60.       Left = 14
  61.       Top = 34
  62.       Width = 97
  63.       Height = 17
  64.       Caption = '3D'
  65.       State = cbChecked
  66.       TabOrder = 2
  67.       OnClick = CheckBox1Click
  68.     end
  69.     object CheckBox2: TCheckBox
  70.       Left = 14
  71.       Top = 9
  72.       Width = 97
  73.       Height = 17
  74.       Caption = '&Animate !!!'
  75.       Font.Color = clBlack
  76.       Font.Height = -16
  77.       Font.Name = 'Arial'
  78.       Font.Style = [fsBold]
  79.       ParentFont = False
  80.       TabOrder = 3
  81.       OnClick = CheckBox2Click
  82.     end
  83.   end
  84.   object Chart1: TChart
  85.     Left = 145
  86.     Top = 0
  87.     Width = 655
  88.     Height = 553
  89.     BottomWall.Color = clWhite
  90.     Foot.Font.Color = clRed
  91.     Foot.Font.Height = -12
  92.     Foot.Font.Name = 'Arial'
  93.     Foot.Font.Style = [fsItalic]
  94.     LeftWall.Color = 8454143
  95.     Title.Alignment = taLeftJustify
  96.     Title.Font.Color = clBlue
  97.     Title.Font.Height = -13
  98.     Title.Font.Name = 'Arial'
  99.     Title.Font.Style = [fsBold]
  100.     Title.Text.Strings = (
  101.       'Area Series Example.'
  102.       'Move mouse over Areas.')
  103.     BottomAxis.LabelsAngle = 90
  104.     Chart3DPercent = 75
  105.     Legend.Alignment = laBottom
  106.     Align = alClient
  107.     TabOrder = 1
  108.     OnMouseMove = Chart1MouseMove
  109.     object AreaSeries1: TAreaSeries
  110.       Marks.ArrowLength = 8
  111.       Marks.Visible = False
  112.       SeriesColor = clRed
  113.       AreaLinesPen.Color = clAqua
  114.       AreaLinesPen.Style = psDot
  115.       DrawArea = True
  116.       XValues.DateTime = True
  117.       XValues.Name = 'X'
  118.       XValues.Multiplier = 1.000000000000000000
  119.       XValues.Order = loAscending
  120.       YValues.DateTime = False
  121.       YValues.Name = 'Y'
  122.       YValues.Multiplier = 1.000000000000000000
  123.       YValues.Order = loNone
  124.       Left = 189
  125.       Top = 36
  126.     end
  127.     object AreaSeries2: TAreaSeries
  128.       Marks.ArrowLength = 8
  129.       Marks.Visible = False
  130.       SeriesColor = clGreen
  131.       DrawArea = True
  132.       XValues.DateTime = True
  133.       XValues.Name = 'X'
  134.       XValues.Multiplier = 1.000000000000000000
  135.       XValues.Order = loAscending
  136.       YValues.DateTime = False
  137.       YValues.Name = 'Y'
  138.       YValues.Multiplier = 1.000000000000000000
  139.       YValues.Order = loNone
  140.       Left = 227
  141.       Top = 36
  142.     end
  143.     object AreaSeries3: TAreaSeries
  144.       Marks.ArrowLength = 8
  145.       Marks.Visible = False
  146.       SeriesColor = clYellow
  147.       DrawArea = True
  148.       XValues.DateTime = True
  149.       XValues.Name = 'X'
  150.       XValues.Multiplier = 1.000000000000000000
  151.       XValues.Order = loAscending
  152.       YValues.DateTime = False
  153.       YValues.Name = 'Y'
  154.       YValues.Multiplier = 1.000000000000000000
  155.       YValues.Order = loNone
  156.       Left = 265
  157.       Top = 34
  158.     end
  159.   end
  160.   object Timer1: TTimer
  161.     Enabled = False
  162.     Interval = 1
  163.     OnTimer = Timer1Timer
  164.     Left = 88
  165.     Top = 91
  166.   end
  167. end
  168.