fmain2.dfm

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

object frmMain2: TfrmMain2
  Left = 211
  Top = 122
  Width = 945
  Height = 521
  Caption = 'DrawStock v0.01'
  Color = clBtnFace
  Constraints.MinHeight = 200
  Constraints.MinWidth = 120
  Font.Charset = GB2312_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = #23435#20307
  Font.Style = []
  KeyPreview = True
  Menu = MainMenu1
  OldCreateOrder = False
  Position = poScreenCenter
  OnActivate = FormActivate
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnKeyDown = FormKeyDown
  OnKeyPress = FormKeyPress
  OnMouseDown = FormMouseDown
  OnMouseMove = FormMouseMove
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 11
  object GRID: TStringGrid
    Left = 0
    Top = 0
    Width = 937
    Height = 475
    Align = alClient
    BorderStyle = bsNone
    ColCount = 2
    Ctl3D = True
    Enabled = False
    FixedCols = 0
    RowCount = 4
    FixedRows = 0
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = #23435#20307
    Font.Style = []
    Options = []
    ParentCtl3D = False
    ParentFont = False
    ScrollBars = ssNone
    TabOrder = 0
    OnDrawCell = GRIDDrawCell
  end
  object Header: TStringGrid
    Left = 34
    Top = 89
    Width = 380
    Height = 36
    BorderStyle = bsNone
    ColCount = 14
    Ctl3D = False
    DefaultColWidth = 40
    Enabled = False
    FixedCols = 0
    RowCount = 1
    FixedRows = 0
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = #23435#20307
    Font.Style = []
    Options = [goVertLine, goHorzLine, goRangeSelect]
    ParentCtl3D = False
    ParentFont = False
    ScrollBars = ssNone
    TabOrder = 1
    OnDrawCell = HeaderDrawCell
  end
  object Panel1: TPanel
    Left = 326
    Top = 263
    Width = 160
    Height = 186
    BorderStyle = bsSingle
    Font.Charset = GB2312_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    Locked = True
    ParentFont = False
    TabOrder = 2
    Visible = False
    object GroupBox1: TGroupBox
      Left = 1
      Top = -4
      Width = 150
      Height = 32
      Color = clWhite
      Ctl3D = False
      ParentColor = False
      ParentCtl3D = False
      TabOrder = 0
      object Edit1: TcxTextEdit
        Left = 3
        Top = 8
        ParentFont = False
        Properties.OnChange = Edit1PropertiesChange
        Style.Edges = [bBottom]
        Style.Font.Charset = DEFAULT_CHARSET
        Style.Font.Color = clWindowText
        Style.Font.Height = -15
        Style.Font.Name = #23435#20307
        Style.Font.Style = []
        TabOrder = 0
        OnKeyDown = Edit1KeyDown
        OnKeyPress = Edit1KeyPress
        Width = 144
      end
    end
    object DBGridEh2: TDBGridEh
      Left = 1
      Top = 30
      Width = 154
      Height = 151
      Align = alBottom
      DataSource = DataSource2
      Flat = True
      FooterColor = clWindow
      FooterFont.Charset = GB2312_CHARSET
      FooterFont.Color = clWindowText
      FooterFont.Height = -12
      FooterFont.Name = #23435#20307
      FooterFont.Style = []
      FooterRowCount = 1
      Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
      OptionsEh = [dghFixed3D, dghFrozen3D, dghHighlightFocus, dghClearSelection, dghFitRowHeightToText, dghEnterAsTab, dghTraceColSizing, dghRowHighlight, dghDblClickOptimizeColWidth, dghDialogFind]
      ReadOnly = True
      RowHeight = 2
      RowLines = 1
      TabOrder = 1
      TitleFont.Charset = GB2312_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      UseMultiTitle = True
      Columns = <
        item
          EditButtons = <>
          FieldName = #32929#31080#20195#21495
          Footers = <>
          Width = 55
        end
        item
          EditButtons = <>
          FieldName = #32929#31080#21517#31216
          Footers = <>
        end>
    end
  end
  object MainMenu1: TMainMenu
    AutoHotkeys = maManual
    Left = 99
    Top = 32
    object miSizing: TMenuItem
      Caption = #32553#25918
      object N5: TMenuItem
        Caption = #25918#22823'('#65291')'
        OnClick = N5Click
      end
      object N6: TMenuItem
        Caption = #32553#23567'('#65293')'
        OnClick = N6Click
      end
      object N14: TMenuItem
        Caption = '-'
      end
      object MDAC1: TMenuItem
        Caption = #35745#31639'MDAC'
        OnClick = MDAC1Click
      end
      object MDAC2: TMenuItem
        Caption = #30011'MDAC'#32447
        OnClick = MDAC2Click
      end
    end
    object N2: TMenuItem
      Caption = #31227#21160
      object miLeftOne: TMenuItem
        Caption = #21521#24038'1'#31508'(LEFT)'
        OnClick = miLeftOneClick
      end
      object miRightOne: TMenuItem
        Caption = #21521#21491'1'#31508'(RIGHT)'
        OnClick = miRightOneClick
      end
      object N7: TMenuItem
        Caption = '-'
      end
      object miPageFirst: TMenuItem
        Caption = #26412#39029#31532#19968#31508'(HOME)'
        OnClick = miPageFirstClick
      end
      object miPageLast: TMenuItem
        Caption = #26412#39029#26368#21518#19968#31508'(END)'
        OnClick = miPageLastClick
      end
    end
    object N8: TMenuItem
      Caption = #24555#36895#31227#21160
      object miQuickLeft: TMenuItem
        Caption = #21521#24038'1/8'#39029'(CTRL+LEFTl)'
        OnClick = miQuickLeftClick
      end
      object miQuickRight: TMenuItem
        Caption = #21521#21491'1/8'#39029'(CTRL+RIGHT)'
        OnClick = miQuickRightClick
      end
      object N9: TMenuItem
        Caption = '-'
      end
      object miFirst: TMenuItem
        Caption = #35813#32929#31532#19968#31508'(CTRL+HOME)'
        OnClick = miFirstClick
      end
      object miLast: TMenuItem
        Caption = #35813#32929#26368#21518#19968#31508'(CTRL+END)'
        OnClick = miLastClick
      end
    end
    object N1: TMenuItem
      Caption = #35774#23450
      object mi100: TMenuItem
        Tag = 100
        Caption = #26174#31034#24179#22343#32447
        Checked = True
        OnClick = mi100Click
      end
      object mi101: TMenuItem
        Tag = 101
        Caption = #26174#31034#26102#38388#22352#26631
        Checked = True
        OnClick = mi100Click
      end
      object N4: TMenuItem
        Tag = 102
        Caption = #26174#31034#32972#26223#22352#26631#32447
        Checked = True
        OnClick = mi100Click
      end
      object N13: TMenuItem
        Caption = '-'
      end
      object miShowKLineHighLow: TMenuItem
        Tag = 104
        Caption = 'K'#32447#39640#20302#20215#26631#31034
        Checked = True
        OnClick = mi100Click
      end
      object N12: TMenuItem
        Tag = 103
        Caption = #20197#24213#32447#26174#31034#23567#25968
        Checked = True
        OnClick = mi100Click
      end
      object N10: TMenuItem
        Caption = '-'
      end
      object N11: TMenuItem
        Caption = #26356#26032#30011#38754
        OnClick = N11Click
      end
    end
  end
  object InfoQuery: TADOQuery
    Connection = MainForm.MC
    CursorType = ctStatic
    Parameters = <>
    SQL.Strings = (
      'Select '#32929#31080#20195#21495','#32929#31080#21517#31216','#21161#35760#30721' From BaseInfo Order By '#32929#31080#20195#21495)
    Left = 728
    Top = 344
  end
  object DataSource2: TDataSource
    DataSet = InfoQuery
    Left = 728
    Top = 400
  end
end