home *** CD-ROM | disk | FTP | other *** search
/ PC Expert 29 / Pce29cd.iso / RUNIMAGE / DELPHI40 / DEMOS / TEECHART / UHIGHLO.DFM / UHIGHLO.txt
Text File  |  1998-06-16  |  7KB  |  257 lines
  1. object HighLowForm: THighLowForm
  2.   Left = -4
  3.   Top = -4
  4.   Width = 808
  5.   Height = 580
  6.   Caption = 'TeeChart Statistics Demo'
  7.   Font.Charset = DEFAULT_CHARSET
  8.   Font.Color = clBlack
  9.   Font.Height = -11
  10.   Font.Name = 'MS Sans Serif'
  11.   Font.Style = []
  12.   Position = poDefault
  13.   Scaled = False
  14.   WindowState = wsMaximized
  15.   OnCreate = FormCreate
  16.   PixelsPerInch = 96
  17.   TextHeight = 13
  18.   object Chart1: TChart
  19.     Left = 153
  20.     Top = 0
  21.     Width = 647
  22.     Height = 553
  23.     BackWall.Brush.Style = bsClear
  24.     BackWall.Pen.Width = 3
  25.     Foot.Font.Charset = DEFAULT_CHARSET
  26.     Foot.Font.Color = clRed
  27.     Foot.Font.Height = -12
  28.     Foot.Font.Name = 'Arial'
  29.     Foot.Font.Style = [fsItalic]
  30.     LeftWall.Color = clWhite
  31.     Title.Alignment = taLeftJustify
  32.     Title.Brush.Color = clBlack
  33.     Title.Font.Charset = DEFAULT_CHARSET
  34.     Title.Font.Color = clYellow
  35.     Title.Font.Height = -16
  36.     Title.Font.Name = 'Arial'
  37.     Title.Font.Style = [fsBold]
  38.     Title.Frame.Color = clBlue
  39.     Title.Frame.Width = 4
  40.     Title.Frame.Visible = True
  41.     Title.Text.Strings = (
  42.       'Average,  High and Low.')
  43.     BottomAxis.Axis.Color = clRed
  44.     BottomAxis.DateTimeFormat = 'dd/MMM'
  45.     BottomAxis.Grid.Color = clBlack
  46.     BottomAxis.Grid.Style = psSolid
  47.     BottomAxis.LabelsFont.Charset = DEFAULT_CHARSET
  48.     BottomAxis.LabelsFont.Color = clPurple
  49.     BottomAxis.LabelsFont.Height = -11
  50.     BottomAxis.LabelsFont.Name = 'MS Sans Serif'
  51.     BottomAxis.LabelsFont.Style = []
  52.     BottomAxis.MinorTickCount = 0
  53.     BottomAxis.TickLength = 9
  54.     BottomAxis.Ticks.Color = clBlue
  55.     Chart3DPercent = 45
  56.     Frame.Width = 3
  57.     LeftAxis.Axis.Color = clBlue
  58.     LeftAxis.LabelsFont.Charset = DEFAULT_CHARSET
  59.     LeftAxis.LabelsFont.Color = clRed
  60.     LeftAxis.LabelsFont.Height = -13
  61.     LeftAxis.LabelsFont.Name = 'Arial'
  62.     LeftAxis.LabelsFont.Style = [fsBold]
  63.     Legend.ShadowColor = clGray
  64.     Legend.ShadowSize = 4
  65.     RightAxis.Automatic = False
  66.     RightAxis.AutomaticMaximum = False
  67.     RightAxis.AutomaticMinimum = False
  68.     RightAxis.Grid.Visible = False
  69.     RightAxis.LabelsFont.Charset = DEFAULT_CHARSET
  70.     RightAxis.LabelsFont.Color = clBlack
  71.     RightAxis.LabelsFont.Height = -19
  72.     RightAxis.LabelsFont.Name = 'Arial'
  73.     RightAxis.LabelsFont.Style = [fsBold, fsItalic]
  74.     OnAfterDraw = Chart1AfterDraw
  75.     Align = alClient
  76.     BevelInner = bvRaised
  77.     BevelOuter = bvLowered
  78.     BorderWidth = 25
  79.     Color = 16777088
  80.     TabOrder = 0
  81.     object BarSeries1: TBarSeries
  82.       Marks.ArrowLength = 20
  83.       Marks.Visible = True
  84.       BarStyle = bsPyramid
  85.       SeriesColor = clRed
  86.       XValues.DateTime = True
  87.       XValues.Name = 'X'
  88.       XValues.Multiplier = 1.000000000000000000
  89.       XValues.Order = loAscending
  90.       YValues.DateTime = False
  91.       YValues.Name = 'Y'
  92.       YValues.Multiplier = 1.000000000000000000
  93.       YValues.Order = loNone
  94.       Left = 47
  95.       Top = 117
  96.     end
  97.     object AverageSeries: TLineSeries
  98.       Marks.ArrowLength = 8
  99.       Marks.Visible = False
  100.       DataSource = BarSeries1
  101.       Title = 'Average'
  102.       SeriesColor = clGreen
  103.       LinePen.Width = 2
  104.       Pointer.InflateMargins = False
  105.       Pointer.Style = psRectangle
  106.       Pointer.Visible = True
  107.       XValues.DateTime = True
  108.       XValues.Name = 'X'
  109.       XValues.Multiplier = 1.000000000000000000
  110.       XValues.Order = loAscending
  111.       YValues.DateTime = False
  112.       YValues.Name = 'Y'
  113.       YValues.Multiplier = 1.000000000000000000
  114.       YValues.Order = loNone
  115.       YValues.ValueSource = 'Y'
  116.       object AverageSeriesAverage: TAverageTeeFunction
  117.       end
  118.     end
  119.     object HighSeries: TLineSeries
  120.       Marks.ArrowLength = 8
  121.       Marks.Visible = False
  122.       DataSource = BarSeries1
  123.       Title = 'High'
  124.       SeriesColor = clFuchsia
  125.       LinePen.Width = 2
  126.       Pointer.Brush.Color = 8388863
  127.       Pointer.InflateMargins = False
  128.       Pointer.Pen.Color = clBlue
  129.       Pointer.Pen.Style = psDot
  130.       Pointer.Style = psRectangle
  131.       Pointer.Visible = 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.       object HighSeriesHigh: THighTeeFunction
  141.       end
  142.     end
  143.     object LowSeries: TLineSeries
  144.       Marks.ArrowLength = 8
  145.       Marks.Visible = False
  146.       DataSource = BarSeries1
  147.       Title = 'Low'
  148.       SeriesColor = clBlue
  149.       LinePen.Width = 2
  150.       Pointer.InflateMargins = False
  151.       Pointer.Style = psRectangle
  152.       Pointer.Visible = True
  153.       XValues.DateTime = True
  154.       XValues.Name = 'X'
  155.       XValues.Multiplier = 1.000000000000000000
  156.       XValues.Order = loAscending
  157.       YValues.DateTime = False
  158.       YValues.Name = 'Y'
  159.       YValues.Multiplier = 1.000000000000000000
  160.       YValues.Order = loNone
  161.       object LowSeriesLow: TLowTeeFunction
  162.       end
  163.     end
  164.   end
  165.   object Panel1: TPanel
  166.     Left = 0
  167.     Top = 0
  168.     Width = 153
  169.     Height = 553
  170.     Align = alLeft
  171.     TabOrder = 1
  172.     object BitBtn1: TBitBtn
  173.       Left = 25
  174.       Top = 300
  175.       Width = 89
  176.       Height = 33
  177.       Caption = '&Print'
  178.       TabOrder = 0
  179.       OnClick = BitBtn1Click
  180.     end
  181.     object BitBtn2: TBitBtn
  182.       Left = 26
  183.       Top = 344
  184.       Width = 89
  185.       Height = 33
  186.       TabOrder = 1
  187.       Kind = bkClose
  188.     end
  189.     object CheckBox1: TCheckBox
  190.       Left = 10
  191.       Top = 12
  192.       Width = 139
  193.       Height = 25
  194.       Caption = '&Animate !!!'
  195.       Font.Charset = DEFAULT_CHARSET
  196.       Font.Color = clBlack
  197.       Font.Height = -21
  198.       Font.Name = 'Arial'
  199.       Font.Style = [fsBold, fsItalic]
  200.       ParentFont = False
  201.       TabOrder = 2
  202.       OnClick = CheckBox1Click
  203.     end
  204.     object CB3D: TCheckBox
  205.       Left = 12
  206.       Top = 44
  207.       Width = 49
  208.       Height = 17
  209.       Caption = '3D'
  210.       TabOrder = 3
  211.       OnClick = CB3DClick
  212.     end
  213.     object CheckBox2: TCheckBox
  214.       Left = 12
  215.       Top = 64
  216.       Width = 101
  217.       Height = 17
  218.       Caption = 'Two Bar Series'
  219.       TabOrder = 4
  220.       OnClick = CheckBox2Click
  221.     end
  222.     object CheckBox3: TCheckBox
  223.       Left = 12
  224.       Top = 84
  225.       Width = 97
  226.       Height = 17
  227.       Caption = 'Bar Visible'
  228.       State = cbChecked
  229.       TabOrder = 5
  230.       OnClick = CheckBox3Click
  231.     end
  232.     object Memo1: TMemo
  233.       Left = 12
  234.       Top = 124
  235.       Width = 121
  236.       Height = 161
  237.       Lines.Strings = (
  238.         'Statistical functions'
  239.         'can be applied to'
  240.         'existing Series.'
  241.         ''
  242.         'This demo shows '
  243.         'Average, High and Low'
  244.         'functions on one or two'
  245.         'normal Bar Series.')
  246.       TabOrder = 6
  247.     end
  248.   end
  249.   object Timer1: TTimer
  250.     Enabled = False
  251.     Interval = 100
  252.     OnTimer = Timer1Timer
  253.     Left = 224
  254.     Top = 6
  255.   end
  256. end
  257.