stockun.dfm

delphi 作 的k线图

object StockForm: TStockForm
  Left = 115
  Top = 113
  Width = 619
  Height = 448
  Caption = #32929#31080#25968#25454#30340#35835#21462#19982'K'#32447#22270#30340#30011#27861#31034#20363
  Color = clMenu
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnActivate = FormActivate
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 13
  object StatusBar1: TStatusBar
    Left = 0
    Top = 402
    Width = 611
    Height = 19
    Panels = <>
    SimplePanel = False
  end
  object Chart1: TChart
    Left = 0
    Top = 0
    Width = 611
    Height = 401
    BackWall.Brush.Color = clWhite
    BackWall.Color = clMenuText
    Title.Font.Charset = GB2312_CHARSET
    Title.Font.Color = clBlue
    Title.Font.Height = -14
    Title.Font.Name = #23435#20307
    Title.Font.Style = []
    Title.Text.Strings = (
      ' K '#32447#22270#31034#20363)
    BackColor = clMenuText
    Legend.LegendStyle = lsValues
    View3D = False
    OnAfterDraw = Chart1AfterDraw
    Align = alTop
    BevelInner = bvLowered
    TabOrder = 1
    OnMouseMove = Chart1MouseMove
    object SpeedButton1: TSpeedButton
      Left = 544
      Top = 3
      Width = 57
      Height = 22
      Caption = #20840#37096
      Font.Charset = GB2312_CHARSET
      Font.Color = clWindowText
      Font.Height = -14
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
      OnClick = SpeedButton1Click
    end
    object Label1: TLabel
      Left = 34
      Top = 8
      Width = 15
      Height = 13
      Caption = '0,0'
    end
    object Label2: TLabel
      Left = 5
      Top = 8
      Width = 20
      Height = 13
      Caption = 'X,Y:'
    end
    object Series1: TLineSeries
      Marks.ArrowLength = 8
      Marks.Visible = False
      SeriesColor = clRed
      AfterDrawValues = Series1AfterDrawValues
      Pointer.InflateMargins = True
      Pointer.Style = psRectangle
      Pointer.Visible = False
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Y'
      YValues.Multiplier = 1
      YValues.Order = loNone
    end
    object Series2: TFastLineSeries
      Marks.ArrowLength = 8
      Marks.Visible = False
      SeriesColor = 4194368
      LinePen.Color = 4194368
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Y'
      YValues.Multiplier = 1
      YValues.Order = loNone
    end
    object Series3: TFastLineSeries
      Marks.ArrowLength = 8
      Marks.Visible = False
      SeriesColor = 4194368
      LinePen.Color = 4194368
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Y'
      YValues.Multiplier = 1
      YValues.Order = loNone
    end
    object Series4: TFastLineSeries
      Marks.ArrowLength = 8
      Marks.Visible = False
      SeriesColor = 4194368
      LinePen.Color = 4194368
      XValues.DateTime = False
      XValues.Name = 'X'
      XValues.Multiplier = 1
      XValues.Order = loAscending
      YValues.DateTime = False
      YValues.Name = 'Y'
      YValues.Multiplier = 1
      YValues.Order = loNone
    end
  end
end