test1.dfm

这是一个股票盘后数据分析系统基础底层,已经实现了基本的K线图的重现,RIS线,均线图的重现, 是在一个台湾高手发布的原码上修改的,现在支持通达信的股票数据格式.

object Form1: TForm1
  Left = 192
  Top = 133
  AutoScroll = False
  Caption = 'Form1'
  ClientHeight = 531
  ClientWidth = 996
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object ScrollBox1: TScrollBox
    Left = 0
    Top = 0
    Width = 699
    Height = 512
    Cursor = crHandPoint
    Align = alLeft
    BorderStyle = bsNone
    Color = clBlack
    ParentColor = False
    TabOrder = 0
    object Image1: TImage
      Left = 0
      Top = 0
      Width = 699
      Height = 512
      Align = alClient
      Proportional = True
      Stretch = True
      Transparent = True
      OnMouseMove = Image1MouseMove
    end
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 512
    Width = 996
    Height = 19
    Panels = <
      item
        Width = 50
      end
      item
        Width = 50
      end
      item
        Width = 50
      end
      item
        Width = 50
      end>
  end
  object Memo1: TMemo
    Left = 809
    Top = 0
    Width = 187
    Height = 512
    Align = alClient
    Lines.Strings = (
      'Memo1')
    ScrollBars = ssVertical
    TabOrder = 2
  end
  object GroupBox1: TGroupBox
    Left = 699
    Top = 0
    Width = 110
    Height = 512
    Align = alLeft
    TabOrder = 3
    object Button1: TButton
      Left = 14
      Top = 16
      Width = 75
      Height = 25
      Caption = #35013#20837#25968#25454
      TabOrder = 0
      OnClick = Button1Click
    end
    object BitBtn1: TBitBtn
      Left = 14
      Top = 56
      Width = 75
      Height = 25
      Caption = #20998#35299#25968#25454
      TabOrder = 1
      OnClick = BitBtn1Click
    end
    object BitBtn2: TBitBtn
      Left = 14
      Top = 272
      Width = 75
      Height = 25
      Caption = #20851#38381
      TabOrder = 2
      OnClick = BitBtn2Click
    end
    object BitBtn3: TBitBtn
      Left = 14
      Top = 88
      Width = 75
      Height = 25
      Caption = #26174#31034
      TabOrder = 3
      OnClick = BitBtn3Click
    end
  end
  object OpenDialog1: TOpenDialog
    Left = 192
    Top = 88
  end
  object IdAntiFreeze1: TIdAntiFreeze
    OnlyWhenIdle = False
    Left = 688
    Top = 24
  end
end