xxx.~dfm

Jesse Livermore 方法,和三线翻转方法

object Form3: TForm3
  Left = 241
  Top = 166
  Width = 544
  Height = 375
  Caption = 'Form3'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnActivate = FormActivate
  OnPaint = FormActivate
  OnResize = FormActivate
  PixelsPerInch = 96
  TextHeight = 13
  object Chart1: TChart
    Left = 0
    Top = 0
    Width = 536
    Height = 348
    Border.Visible = True
    Foot.Bevel = bvSpace
    Legend.Gradient.Balance = 100
    Legend.Gradient.Visible = True
    Legend.Shadow.HorizSize = 2
    Legend.Shadow.VertSize = 2
    MarginUnits = muPixels
    RightWall.Gradient.Balance = 100
    RightWall.Gradient.EndColor = clSilver
    RightWall.Gradient.Visible = True
    RightWall.Visible = True
    Title.Bevel = bvLowered
    Title.Gradient.Visible = True
    Title.Text.Strings = (
      #19977#32447#21453#36716#22270)
    Chart3DPercent = 1
    LeftAxis.AxisValuesFormat = '0'
    LeftAxis.Grid.SmallDots = True
    LeftAxis.GridCentered = True
    LeftAxis.Ticks.SmallDots = True
    LeftAxis.TicksInner.SmallDots = True
    RightAxis.Grid.SmallDots = True
    View3D = False
    View3DOptions.HorizOffset = 60
    View3DOptions.VertOffset = -19
    View3DOptions.Zoom = 115
    Zoom.Animated = True
    Zoom.AnimatedSteps = 1
    Align = alClient
    BevelInner = bvLowered
    BevelWidth = 3
    Color = clScrollBar
    TabOrder = 0
    PrintMargins = (
      15
      21
      15
      21)
    object Series1: TCandleSeries
      CloseValues.Name = 'Close'
      DateValues.Name = 'Date'
      DateValues.Order = loAscending
      HighValues.Name = 'High'
      LowValues.Name = 'Low'
      OpenValues.Name = 'Open'
      Marks.Arrow.EndStyle = esFlat
      Marks.ArrowLength = 8
      Marks.Callout.Brush.Color = clBlack
      Marks.Callout.Style = psTriangle
      Marks.Callout.Visible = True
      Marks.Callout.Arrow.EndStyle = esFlat
      Marks.Callout.ArrowHead = ahLine
      Marks.Callout.Length = 8
      Marks.DrawEvery = 20
      Marks.Visible = False
      SeriesColor = clRed
      ValueFormat = '0'
      CandleStyle = csOpenClose
      CandleWidth = 6
      DownCloseColor = clSilver
    end
  end
  object OpenDialog1: TOpenDialog
    Left = 160
    Top = 40
  end
  object SaveDialog1: TSaveDialog
    Left = 200
    Top = 64
  end
  object SeriesTextSource1: TSeriesTextSource
    Fields = <>
    FieldSeparator = ','
    FileName = 'C:\Documents and Settings\Bluewater\'#26700#38754'\'#26480#35199'\'#25991#26412#26399#36135#25968#25454'\qh\DLm12.TXT'
  end
end