rger6w456456.dfm

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

object Form1: TForm1
  Left = 192
  Top = 133
  Width = 1090
  Height = 500
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  OldCreateOrder = False
  WindowState = wsMaximized
  PixelsPerInch = 96
  TextHeight = 12
  object Label1: TLabel
    Left = 8
    Top = 104
    Width = 6
    Height = 12
    Font.Charset = DEFAULT_CHARSET
    Font.Color = 16744448
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Label2: TLabel
    Left = 8
    Top = 128
    Width = 6
    Height = 12
    Font.Charset = DEFAULT_CHARSET
    Font.Color = 8388863
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
  end
  object Button1: TButton
    Left = 16
    Top = 8
    Width = 49
    Height = 65
    Cursor = crHandPoint
    Caption = #35835#20837
    Font.Charset = DEFAULT_CHARSET
    Font.Color = 53760
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 0
    OnClick = Button1Click
  end
  object DBGridEh1: TDBGridEh
    Left = 89
    Top = 0
    Width = 993
    Height = 454
    Cursor = crHandPoint
    Align = alRight
    AutoFitColWidths = True
    BorderStyle = bsNone
    Color = clBlack
    ColumnDefValues.DblClickNextVal = True
    Ctl3D = True
    DataSource = DataSource1
    FixedColor = clBlack
    Flat = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWhite
    Font.Height = -17
    Font.Name = #23435#20307
    Font.Style = []
    FooterColor = clWindow
    FooterFont.Charset = DEFAULT_CHARSET
    FooterFont.Color = clWindowText
    FooterFont.Height = -12
    FooterFont.Name = #23435#20307
    FooterFont.Style = []
    HorzScrollBar.Visible = False
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
    OptionsEh = [dghFixed3D, dghHighlightFocus, dghClearSelection, dghEnterAsTab, dghRowHighlight, dghDialogFind]
    ParentCtl3D = False
    ParentFont = False
    ReadOnly = True
    RowHeight = 24
    SortLocal = True
    TabOrder = 1
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = 8454143
    TitleFont.Height = -18
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    TitleHeight = 30
    TitleLines = 1
    UseMultiTitle = True
    OnDblClick = DBGridEh1DblClick
    OnDrawColumnCell = DBGridEh1DrawColumnCell
    OnGetCellParams = DBGridEh1GetCellParams
    Columns = <
      item
        EditButtons = <>
        FieldName = #32929#31080#20195#30721
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clYellow
        Font.Height = -17
        Font.Name = #23435#20307
        Font.Style = []
        Footers = <>
        Layout = tlCenter
        Title.SortIndex = 1
        Title.SortMarker = smDownEh
        Title.TitleButton = True
        Title.ToolTips = True
        ToolTips = True
        Width = 92
      end
      item
        EditButtons = <>
        FieldName = #32929#31080#21517#31216
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clYellow
        Font.Height = -17
        Font.Name = #23435#20307
        Font.Style = []
        Footers = <>
        Layout = tlCenter
        Width = 96
      end
      item
        EditButtons = <>
        FieldName = #21161#35760#30721
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clYellow
        Font.Height = -17
        Font.Name = #23435#20307
        Font.Style = []
        Footers = <>
        Layout = tlCenter
        Width = 73
      end
      item
        DisplayFormat = '##0.00'
        EditButtons = <>
        FieldName = #26152#25910
        Footers = <>
        Layout = tlCenter
        Width = 70
      end
      item
        DisplayFormat = '##0.00'
        EditButtons = <>
        FieldName = #20170#24320
        Footers = <>
        Layout = tlCenter
        Width = 65
      end
      item
        DisplayFormat = '##0.00'
        EditButtons = <>
        FieldName = #26368#39640
        Footers = <>
        Layout = tlCenter
        Width = 68
      end
      item
        DisplayFormat = '##0.00'
        EditButtons = <>
        FieldName = #26368#20302
        Footers = <>
        Layout = tlCenter
        Width = 68
      end
      item
        DisplayFormat = '##0.00'
        EditButtons = <>
        FieldName = #20170#25910
        Footers = <>
        Layout = tlCenter
        Width = 70
      end
      item
        EditButtons = <>
        FieldName = #25104#20132#37327
        Footers = <>
        Layout = tlCenter
        Width = 87
      end
      item
        DisplayFormat = '##0.00'
        EditButtons = <>
        FieldName = #25442#25163#29575
        Footers = <>
        Layout = tlCenter
        Title.TitleButton = True
        Title.ToolTips = True
        ToolTips = True
        Width = 66
      end
      item
        DisplayFormat = '##0.00'
        EditButtons = <>
        FieldName = #28072#24133
        Footers = <>
        Layout = tlCenter
        Title.TitleButton = True
        Title.ToolTips = True
        Width = 62
      end
      item
        DisplayFormat = '##0.00'
        EditButtons = <>
        FieldName = #28072#36300#39069
        Footers = <>
        Layout = tlCenter
        Width = 60
      end>
  end
  object StatusBar1: TStatusBar
    Left = 0
    Top = 454
    Width = 1082
    Height = 19
    Panels = <>
  end
  object Button2: TButton
    Left = 16
    Top = 176
    Width = 49
    Height = 65
    Cursor = crHandPoint
    Caption = #25490#24207
    Font.Charset = DEFAULT_CHARSET
    Font.Color = 53760
    Font.Height = -12
    Font.Name = #23435#20307
    Font.Style = []
    ParentFont = False
    TabOrder = 3
  end
  object DataSource1: TDataSource
    DataSet = TempTable
    Left = 120
    Top = 200
  end
  object IdAntiFreeze1: TIdAntiFreeze
    IdleTimeOut = 200
    OnlyWhenIdle = False
    Left = 48
    Top = 288
  end
  object TempTable: TVirtualTable
    Left = 40
    Top = 360
    Data = {02000000000000000000}
    object TempTableStringField: TStringField
      FieldName = #32929#31080#20195#30721
      Size = 6
    end
    object TempTableStringField2: TStringField
      FieldName = #32929#31080#21517#31216
      Size = 8
    end
    object TempTableStringField3: TStringField
      FieldName = #21161#35760#30721
      Size = 4
    end
    object TempTableFloatField: TFloatField
      FieldName = #26152#25910
    end
    object TempTableFloatField2: TFloatField
      FieldName = #20170#24320
    end
    object TempTableFloatField3: TFloatField
      FieldName = #26368#39640
    end
    object TempTableFloatField4: TFloatField
      FieldName = #26368#20302
    end
    object TempTableFloatField5: TFloatField
      FieldName = #20170#25910
    end
    object TempTableFloatField6: TFloatField
      FieldName = #25104#20132#37327
    end
    object TempTableFloatField7: TFloatField
      FieldName = #25442#25163#29575
    end
    object TempTableFloatField8: TFloatField
      FieldName = #28072#24133
    end
    object TempTableFloatField9: TFloatField
      FieldName = #28072#36300#39069
    end
    object TempTableField: TStringField
      FieldName = #26174#31034#26631#24535
      Size = 1
    end
  end
end