main.dfm

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

object MainForm: TMainForm
  Left = 192
  Top = 133
  AutoScroll = False
  Caption = #32034#32500#32929#31080#20998#26512#31995#32479
  ClientHeight = 528
  ClientWidth = 862
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = #23435#20307
  Font.Style = []
  KeyPreview = True
  OldCreateOrder = False
  Position = poScreenCenter
  WindowState = wsMaximized
  OnCreate = FormCreate
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 12
  object DBGridEh1: TDBGridEh
    Left = 42
    Top = 0
    Width = 820
    Height = 509
    Align = alClient
    BorderStyle = bsNone
    Color = clBlack
    DataSource = DataSource1
    FixedColor = clBlack
    Flat = True
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clRed
    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 = []
    Options = [dgTitles, dgIndicator, dgColumnResize, dgColLines, dgRowLines, dgTabs, dgConfirmDelete, dgCancelOnExit]
    OptionsEh = [dghHighlightFocus, dghClearSelection, dghEnterAsTab, dghRowHighlight, dghDialogFind]
    ParentFont = False
    ReadOnly = True
    RowHeight = 30
    TabOrder = 3
    TitleFont.Charset = DEFAULT_CHARSET
    TitleFont.Color = 8454143
    TitleFont.Height = -18
    TitleFont.Name = #23435#20307
    TitleFont.Style = []
    TitleHeight = 30
    TitleLines = 2
    UseMultiTitle = True
    OnDblClick = DBGridEh1DblClick
    OnDrawColumnCell = DBGridEh1DrawColumnCell
    OnGetCellParams = DBGridEh1GetCellParams
    OnKeyDown = DBGridEh1KeyDown
    Columns = <
      item
        EditButtons = <>
        Footers = <>
        Layout = tlCenter
        Title.Caption = #24207#21495
        Width = 51
      end
      item
        Alignment = taCenter
        EditButtons = <>
        FieldName = #32929#31080#20195#21495
        Footers = <>
        Layout = tlCenter
        Width = 79
      end
      item
        Alignment = taCenter
        EditButtons = <>
        FieldName = #32929#31080#21517#31216
        Footers = <>
        Layout = tlCenter
        Width = 120
      end
      item
        DisplayFormat = '##0.00'
        EditButtons = <>
        FieldName = #28072#24133
        Footers = <>
        Layout = tlCenter
        Width = 73
      end
      item
        DisplayFormat = '##0.00'
        EditButtons = <>
        FieldName = #21319#36300#39069
        Footers = <>
        Layout = tlCenter
        Width = 67
      end
      item
        DisplayFormat = '##0.00'
        EditButtons = <>
        FieldName = #29616#20215
        Footers = <>
        Layout = tlCenter
        Width = 77
      end
      item
        DisplayFormat = '##0.00'
        EditButtons = <>
        FieldName = #26368#39640#20215
        Footers = <>
        Layout = tlCenter
        Width = 77
      end
      item
        DisplayFormat = '##0.00'
        EditButtons = <>
        FieldName = #26368#20302#20215
        Footers = <>
        Layout = tlCenter
        Width = 76
      end
      item
        DisplayFormat = '##0'
        EditButtons = <>
        FieldName = #25104#20132#37327
        Footers = <>
        Layout = tlCenter
        Width = 87
      end
      item
        DisplayFormat = '##0.00'
        EditButtons = <>
        FieldName = #24320#30424#20215
        Footers = <>
        Layout = tlCenter
        Width = 80
      end
      item
        DisplayFormat = '##0.00'
        EditButtons = <>
        FieldName = #26152#25910#20215
        Footers = <>
        Layout = tlCenter
        Width = 72
      end
      item
        DisplayFormat = '##0.00'
        EditButtons = <>
        FieldName = #24066#30408#29575
        Footers = <>
        Layout = tlCenter
        Width = 71
      end
      item
        DisplayFormat = '##0.00'
        EditButtons = <>
        FieldName = #24635#32929#26412
        Footers = <>
        Layout = tlCenter
        Width = 113
      end
      item
        DisplayFormat = '##0.'
        EditButtons = <>
        FieldName = #24635#32929#25968
        Footers = <>
        Layout = tlCenter
        Width = 119
      end>
  end
  object CoolBar2: TCoolBar
    Left = 0
    Top = 0
    Width = 42
    Height = 509
    Align = alLeft
    AutoSize = True
    Bands = <
      item
        Control = RzToolbar1
        ImageIndex = -1
        MinHeight = 38
        Width = 505
      end>
    FixedSize = True
    FixedOrder = True
    Vertical = True
    object RzToolbar1: TRzToolbar
      Left = 0
      Top = 0
      Width = 38
      Height = 505
      Align = alLeft
      Images = ImageList1
      Orientation = orVertical
      TextOptions = ttoCustom
      AutoSize = True
      BorderInner = fsNone
      BorderOuter = fsGroove
      BorderSides = [sdLeft]
      BorderWidth = 0
      TabOrder = 0
      VisualStyle = vsGradient
      ToolbarControls = (
        RzToolButton1
        RzToolButton2
        RzToolButton3
        RzToolButton4
        RzToolButton5
        RzToolButton6
        Label1
        Label2
        Label3)
      object RzToolButton1: TRzToolButton
        Left = 1
        Top = 4
        Width = 36
        Height = 40
        Cursor = crHandPoint
        Hint = 'K'#32447#22270
        ImageIndex = 0
        UseToolbarButtonSize = False
        ParentShowHint = False
        ShowHint = True
        OnClick = RzToolButton1Click
      end
      object RzToolButton2: TRzToolButton
        Left = 1
        Top = 44
        Width = 36
        Height = 40
        Cursor = crHandPoint
        Hint = #26465#20214#36873#32929
        ImageIndex = 1
        UseToolbarButtonSize = False
        ParentShowHint = False
        ShowHint = True
      end
      object RzToolButton3: TRzToolButton
        Left = 1
        Top = 84