home *** CD-ROM | disk | FTP | other *** search
/ Delphi 5 for Professionals / DELPHI5.iso / AddOns / Components / TEECHART / Delphi1_And_Delphi2 / EXAMPLES / EXTENDED / CANDLE.DFM / CANDLE.txt
Encoding:
Text File  |  1998-10-24  |  9.5 KB  |  354 lines
  1. object CandleForm: TCandleForm
  2.   Left = 128
  3.   Top = 29
  4.   Width = 539
  5.   Height = 503
  6.   ActiveControl = CheckBox1
  7.   Caption = 'TeeChart Candle / Volume Series Demo'
  8.   Font.Color = clBlack
  9.   Font.Height = -11
  10.   Font.Name = 'MS Sans Serif'
  11.   Font.Style = []
  12.   PixelsPerInch = 96
  13.   Position = poScreenCenter
  14.   Scaled = False
  15.   OnCreate = FormCreate
  16.   TextHeight = 13
  17.   object Chart1: TChart
  18.     Left = 0
  19.     Top = 102
  20.     Width = 531
  21.     Height = 274
  22.     AnimatedZoom = True
  23.     BackWall.Brush.Color = clWhite
  24.     BackWall.Color = clWhite
  25.     BackWall.Size = 4
  26.     BottomWall.Color = clRed
  27.     BottomWall.Size = 10
  28.     Foot.Alignment = taLeftJustify
  29.     Foot.Font.Color = clRed
  30.     Foot.Font.Height = -12
  31.     Foot.Font.Name = 'Arial'
  32.     Foot.Font.Style = [fsItalic]
  33.     Foot.Frame.Color = clScrollBar
  34.     Foot.Visible = False
  35.     LeftWall.Color = 8454016
  36.     LeftWall.Size = 10
  37.     Title.Alignment = taLeftJustify
  38.     Title.Font.Color = clTeal
  39.     Title.Font.Height = -13
  40.     Title.Font.Name = 'Arial'
  41.     Title.Font.Style = [fsBold]
  42.     Title.Frame.Color = clScrollBar
  43.     Title.Text.Strings = (
  44.       'Candle-Stick OHLC Chart with moving average.')
  45.     OnScroll = Chart1Scroll
  46.     OnUndoZoom = Chart1UndoZoom
  47.     OnZoom = Chart1Zoom
  48.     BackColor = clWhite
  49.     BottomAxis.Axis.Color = clBlue
  50.     BottomAxis.Grid.Color = clAqua
  51.     BottomAxis.LabelsFont.Color = clGreen
  52.     BottomAxis.LabelsFont.Height = -13
  53.     BottomAxis.LabelsFont.Name = 'Arial'
  54.     BottomAxis.LabelsFont.Style = [fsItalic]
  55.     BottomAxis.EndPosition = 100.000000000000000000
  56.     BottomAxis.TickLength = 8
  57.     BottomAxis.Ticks.Color = clWhite
  58.     BottomAxis.Ticks.Width = 3
  59.     BottomAxis.Title.Caption = 'Dates'
  60.     Chart3DPercent = 5
  61.     LeftAxis.Automatic = False
  62.     LeftAxis.AutomaticMaximum = False
  63.     LeftAxis.AutomaticMinimum = False
  64.     LeftAxis.Axis.Color = 8388863
  65.     LeftAxis.Grid.Visible = False
  66.     LeftAxis.LabelsFont.Color = clWhite
  67.     LeftAxis.LabelsFont.Height = -13
  68.     LeftAxis.LabelsFont.Name = 'Arial'
  69.     LeftAxis.LabelsFont.Style = []
  70.     LeftAxis.Maximum = 650.000000000000000000
  71.     LeftAxis.EndPosition = 100.000000000000000000
  72.     LeftAxis.Title.Caption = 'Volume'
  73.     LeftAxis.Title.Font.Color = clNavy
  74.     LeftAxis.Title.Font.Height = -15
  75.     LeftAxis.Title.Font.Name = 'Arial'
  76.     LeftAxis.Title.Font.Style = [fsBold]
  77.     Legend.Alignment = laTop
  78.     RightAxis.Axis.Color = clYellow
  79.     RightAxis.Grid.Color = 8421440
  80.     RightAxis.Grid.Style = psDashDot
  81.     RightAxis.LabelsFont.Color = clNavy
  82.     RightAxis.LabelsFont.Height = -12
  83.     RightAxis.LabelsFont.Name = 'Arial'
  84.     RightAxis.LabelsFont.Style = []
  85.     RightAxis.EndPosition = 100.000000000000000000
  86.     RightAxis.TickLength = 8
  87.     RightAxis.Title.Caption = 'S&P 500'
  88.     RightAxis.Title.Font.Color = clFuchsia
  89.     RightAxis.Title.Font.Height = -16
  90.     RightAxis.Title.Font.Name = 'Arial'
  91.     RightAxis.Title.Font.Style = [fsItalic]
  92.     TopAxis.EndPosition = 100.000000000000000000
  93.     Align = alClient
  94.     TabOrder = 0
  95.     object CandleSeries1: TCandleSeries
  96.       Marks.ArrowLength = 8
  97.       Marks.Frame.Color = 8454143
  98.       Marks.Visible = False
  99.       SeriesColor = clRed
  100.       VertAxis = aRightAxis
  101.       CloseValues.DateTime = False
  102.       CloseValues.Name = 'Close'
  103.       CloseValues.Multiplier = 1.000000000000000000
  104.       CloseValues.Order = loNone
  105.       DateValues.DateTime = True
  106.       DateValues.Name = 'Date'
  107.       DateValues.Multiplier = 1.000000000000000000
  108.       DateValues.Order = loAscending
  109.       HighValues.DateTime = False
  110.       HighValues.Name = 'High'
  111.       HighValues.Multiplier = 1.000000000000000000
  112.       HighValues.Order = loNone
  113.       LowValues.DateTime = False
  114.       LowValues.Name = 'Low'
  115.       LowValues.Multiplier = 1.000000000000000000
  116.       LowValues.Order = loNone
  117.       OpenValues.DateTime = False
  118.       OpenValues.Name = 'Open'
  119.       OpenValues.Multiplier = 1.000000000000000000
  120.       OpenValues.Order = loNone
  121.       CandleWidth = 6
  122.       Draw3D = True
  123.       Left = 358
  124.       Top = 54
  125.     end
  126.     object VolumeSeries1: TVolumeSeries
  127.       Marks.ArrowLength = 8
  128.       Marks.Visible = False
  129.       SeriesColor = clBlue
  130.       VolumeValues.DateTime = False
  131.       VolumeValues.Name = 'Y'
  132.       VolumeValues.Multiplier = 1.000000000000000000
  133.       VolumeValues.Order = loNone
  134.       XValues.DateTime = True
  135.       XValues.Name = 'X'
  136.       XValues.Multiplier = 1.000000000000000000
  137.       XValues.Order = loAscending
  138.       Left = 390
  139.       Top = 54
  140.     end
  141.     object MovingAverageSeries1: TLineSeries
  142.       Marks.ArrowLength = 8
  143.       Marks.Visible = False
  144.       DataSource = CandleSeries1
  145.       SeriesColor = clGreen
  146.       Title = 'Moving Average'
  147.       VertAxis = aRightAxis
  148.       Pointer.InflateMargins = True
  149.       Pointer.Style = psRectangle
  150.       Pointer.Visible = False
  151.       XValues.DateTime = True
  152.       XValues.Name = 'X'
  153.       XValues.Multiplier = 1.000000000000000000
  154.       XValues.Order = loAscending
  155.       YValues.DateTime = False
  156.       YValues.Name = 'Y'
  157.       YValues.Multiplier = 1.000000000000000000
  158.       YValues.Order = loNone
  159.       object TeeFunction2: TMovingAverageFunction
  160.         Period = 5.000000000000000000
  161.       end
  162.     end
  163.   end
  164.   object Panel1: TPanel
  165.     Left = 0
  166.     Top = 0
  167.     Width = 531
  168.     Height = 69
  169.     Align = alTop
  170.     TabOrder = 1
  171.     object CheckBox1: TCheckBox
  172.       Left = 13
  173.       Top = 8
  174.       Width = 129
  175.       Height = 21
  176.       Caption = '&Animate !!!'
  177.       Font.Color = clBlack
  178.       Font.Height = -21
  179.       Font.Name = 'Arial'
  180.       Font.Style = [fsBold]
  181.       ParentFont = False
  182.       TabOrder = 0
  183.       OnClick = CheckBox1Click
  184.     end
  185.     object RadioGroup1: TRadioGroup
  186.       Left = 276
  187.       Top = 4
  188.       Width = 121
  189.       Height = 37
  190.       Caption = 'Candle Style:'
  191.       Columns = 2
  192.       ItemIndex = 0
  193.       Items.Strings = (
  194.         '&Stick'
  195.         '&Bar')
  196.       TabOrder = 1
  197.       OnClick = RadioGroup1Click
  198.     end
  199.     object CBShowOpens: TCheckBox
  200.       Left = 420
  201.       Top = 6
  202.       Width = 97
  203.       Height = 17
  204.       Caption = 'Show Opens'
  205.       Enabled = False
  206.       State = cbChecked
  207.       TabOrder = 2
  208.       OnClick = CBShowOpensClick
  209.     end
  210.     object CBShowCloses: TCheckBox
  211.       Left = 420
  212.       Top = 26
  213.       Width = 97
  214.       Height = 17
  215.       Caption = 'Show Closes'
  216.       Enabled = False
  217.       State = cbChecked
  218.       TabOrder = 3
  219.       OnClick = CBShowClosesClick
  220.     end
  221.     object CheckBox2: TCheckBox
  222.       Left = 193
  223.       Top = 14
  224.       Width = 40
  225.       Height = 17
  226.       Caption = '&3D'
  227.       TabOrder = 4
  228.       OnClick = CheckBox2Click
  229.     end
  230.     object CheckBox3: TCheckBox
  231.       Left = 13
  232.       Top = 38
  233.       Width = 124
  234.       Height = 17
  235.       Caption = 'Exact DateTime Axis'
  236.       State = cbChecked
  237.       TabOrder = 5
  238.       OnClick = CheckBox3Click
  239.     end
  240.     object CheckBox4: TCheckBox
  241.       Left = 141
  242.       Top = 38
  243.       Width = 116
  244.       Height = 17
  245.       Caption = 'Round First Label'
  246.       State = cbChecked
  247.       TabOrder = 6
  248.       OnClick = CheckBox4Click
  249.     end
  250.     object CheckBox5: TCheckBox
  251.       Left = 277
  252.       Top = 46
  253.       Width = 160
  254.       Height = 17
  255.       Caption = 'Zoom && Scroll Volume'
  256.       TabOrder = 7
  257.       OnClick = CheckBox5Click
  258.     end
  259.   end
  260.   object Chart2: TChart
  261.     Left = 0
  262.     Top = 376
  263.     Width = 531
  264.     Height = 100
  265.     BackWall.Brush.Color = clWhite
  266.     BackWall.Brush.Style = bsClear
  267.     Foot.Alignment = taLeftJustify
  268.     Foot.Font.Color = clRed
  269.     Foot.Font.Height = -11
  270.     Foot.Font.Name = 'Arial'
  271.     Foot.Font.Style = []
  272.     Foot.Frame.Color = clScrollBar
  273.     MarginLeft = 6
  274.     MarginRight = 7
  275.     MarginTop = 8
  276.     Title.Frame.Color = clScrollBar
  277.     Title.Text.Strings = (
  278.       '')
  279.     Title.Visible = False
  280.     BottomAxis.Increment = 30.000000000000000000
  281.     BottomAxis.EndPosition = 100.000000000000000000
  282.     LeftAxis.Automatic = False
  283.     LeftAxis.AutomaticMaximum = False
  284.     LeftAxis.AutomaticMinimum = False
  285.     LeftAxis.Maximum = 100.000000000000000000
  286.     LeftAxis.EndPosition = 100.000000000000000000
  287.     Legend.Visible = False
  288.     RightAxis.Automatic = False
  289.     RightAxis.AutomaticMaximum = False
  290.     RightAxis.AutomaticMinimum = False
  291.     RightAxis.Increment = 25.000000000000000000
  292.     RightAxis.Maximum = 100.000000000000000000
  293.     RightAxis.EndPosition = 100.000000000000000000
  294.     RightAxis.Title.Caption = 'R.S.I.'
  295.     RightAxis.Title.Font.Color = clNavy
  296.     RightAxis.Title.Font.Height = -16
  297.     RightAxis.Title.Font.Name = 'Arial'
  298.     RightAxis.Title.Font.Style = [fsBold, fsItalic]
  299.     TopAxis.EndPosition = 100.000000000000000000
  300.     View3D = False
  301.     OnGetNextAxisLabel = Chart2GetNextAxisLabel
  302.     Align = alBottom
  303.     TabOrder = 2
  304.     OnDblClick = Chart2DblClick
  305.     object RSISeries1: TLineSeries
  306.       Marks.ArrowLength = 8
  307.       Marks.Visible = False
  308.       DataSource = CandleSeries1
  309.       SeriesColor = clRed
  310.       VertAxis = aRightAxis
  311.       Pointer.InflateMargins = True
  312.       Pointer.Style = psRectangle
  313.       Pointer.Visible = False
  314.       XValues.DateTime = True
  315.       XValues.Name = 'X'
  316.       XValues.Multiplier = 1.000000000000000000
  317.       XValues.Order = loAscending
  318.       YValues.DateTime = False
  319.       YValues.Name = 'Y'
  320.       YValues.Multiplier = 1.000000000000000000
  321.       YValues.Order = loNone
  322.       object TeeFunction1: TRSIFunction
  323.         Period = 5.000000000000000000
  324.       end
  325.     end
  326.   end
  327.   object TeeCommander1: TTeeCommander
  328.     Left = 0
  329.     Top = 69
  330.     Width = 531
  331.     Height = 33
  332.     Panel = Chart1
  333.     Align = alTop
  334.     TabOrder = 3
  335.     object BitBtn3: TBitBtn
  336.       Left = 417
  337.       Top = 4
  338.       Width = 89
  339.       Height = 25
  340.       Caption = '&Close'
  341.       TabOrder = 3
  342.       OnClick = BitBtn3Click
  343.       NumGlyphs = 2
  344.     end
  345.   end
  346.   object Timer1: TTimer
  347.     Enabled = False
  348.     Interval = 1
  349.     OnTimer = Timer1Timer
  350.     Left = 154
  351.     Top = 30
  352.   end
  353. end
  354.