bar.dfm

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

object Form4: TForm4
  Left = 223
  Top = 140
  Width = 544
  Height = 375
  Caption = 'Form4'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  KeyPreview = True
  OldCreateOrder = False
  Position = poDefault
  Visible = True
  OnShow = Button3Click
  PixelsPerInch = 96
  TextHeight = 13
  object Chart1: TChart
    Left = 0
    Top = 0
    Width = 536
    Height = 348
    BackWall.Pen.Mode = pmMergePenNot
    BackWall.Pen.Style = psInsideFrame
    BackWall.Pen.Width = 2
    BackWall.Pen.EndStyle = esFlat
    Border.Width = 2
    Border.Visible = True
    BorderRound = 2
    Legend.Gradient.EndColor = clSilver
    Legend.Gradient.StartColor = clWhite
    Legend.Gradient.Visible = True
    Legend.Shadow.HorizSize = 2
    Legend.Shadow.VertSize = 2
    MarginBottom = 0
    MarginLeft = 0
    MarginRight = 0
    MarginTop = 0
    MarginUnits = muPixels
    Title.Text.Strings = (
      '')
    OnUndoZoom = Chart1UndoZoom
    OnZoom = Chart1Zoom
    AxisBehind = False
    BottomAxis.DateTimeFormat = 'yyyy-mm-dd'
    BottomAxis.LabelsAngle = 90
    Chart3DPercent = 2
    Frame.Mode = pmMergePenNot
    Frame.Style = psInsideFrame
    Frame.Width = 2
    Frame.EndStyle = esFlat
    LeftAxis.Axis.Visible = False
    LeftAxis.GridCentered = True
    LeftAxis.Ticks.Visible = False
    LeftAxis.TicksInner.Color = clSilver
    MaxPointsPerPage = 300
    View3D = False
    View3DOptions.Zoom = 10
    Zoom.Animated = True
    Zoom.AnimatedSteps = 1
    Align = alClient
    BevelInner = bvRaised
    BorderWidth = 2
    Color = clMenuBar
    DockSite = True
    TabOrder = 0
    AutoSize = True
    Locked = True
    OnKeyPress = Chart1KeyPress
    OnMouseWheelDown = Chart1MouseWheelDown
    OnMouseWheelUp = Chart1MouseWheelUp
    PrintMargins = (
      15
      21
      15
      21)
    object Button1: TButton
      Left = 200
      Top = 16
      Width = 75
      Height = 25
      Caption = #25918#22823
      TabOrder = 0
      Visible = False
      OnClick = Button1Click
    end
    object Button2: TButton
      Left = 328
      Top = 16
      Width = 75
      Height = 25
      Caption = #32553#23567
      TabOrder = 1
      Visible = False
      OnClick = Button2Click
    end
    object Button3: TButton
      Left = 312
      Top = 88
      Width = 75
      Height = 25
      Caption = 'Button3'
      TabOrder = 2
      Visible = False
      OnClick = Button3Click
    end
    object Series1: TBigCandleSeries
      CloseValues.Name = 'Close'
      DateValues.Name = 'Date'
      DateValues.Order = loAscending
      HighValues.Name = 'High'
      LowValues.Name = 'Low'
      OpenValues.Name = 'Open'
      Marks.ArrowLength = 0
      Marks.Callout.Brush.Color = clBlack
      Marks.Callout.Length = 0
      Marks.DrawEvery = 200
      Marks.Visible = True
      SeriesColor = clRed
      CandleWidth = 10
      Dark3D = False
      DownCloseColor = clSilver
      Pen.EndStyle = esFlat
      HorizGap = 20
      VertGap = 6
    end
    object ChartTool1: TPageNumTool
      Active = False
      Callout.Brush.Color = clBlack
      Callout.Arrow.Visible = False
      Text = 'Page %d of %d'
    end
  end
end