main.dfm

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

        Width = 36
        Height = 40
        Cursor = crHandPoint
        Hint = #30701#20449#24687
        ImageIndex = 2
        Images = ImageList1
        UseToolbarButtonSize = False
        ParentShowHint = False
        ShowHint = True
      end
      object RzToolButton4: TRzToolButton
        Left = 1
        Top = 124
        Width = 36
        Height = 40
        Cursor = crHandPoint
        Hint = #25171#24320'EXECL'#31243#24207
        ImageIndex = 4
        UseToolbarButtonSize = False
        ParentShowHint = False
        ShowHint = True
        OnClick = RzToolButton4Click
      end
      object RzToolButton5: TRzToolButton
        Left = 1
        Top = 164
        Width = 36
        Height = 40
        Cursor = crHandPoint
        Hint = #25171#24320'WORD'#25991#20070#22788#29702#31243#24207
        ImageIndex = 5
        UseToolbarButtonSize = False
        ParentShowHint = False
        ShowHint = True
        OnClick = RzToolButton5Click
      end
      object RzToolButton6: TRzToolButton
        Left = 1
        Top = 204
        Width = 36
        Height = 40
        Cursor = crHandPoint
        Hint = #25171#24320'PowerPoint'#28436#31034#21046#20316#31243#24207
        ImageIndex = 3
        UseToolbarButtonSize = False
        ParentShowHint = False
        ShowHint = True
        OnClick = RzToolButton6Click
      end
      object Label1: TLabel
        Left = 3
        Top = 244
        Width = 33
        Height = 45
        Alignment = taCenter
        AutoSize = False
        Caption = '15'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGreen
        Font.Height = -24
        Font.Name = 'Impact'
        Font.Style = []
        ParentFont = False
        Transparent = True
        Layout = tlCenter
      end
      object Label2: TLabel
        Left = 13
        Top = 289
        Width = 12
        Height = 12
        Alignment = taCenter
        Caption = #26085
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGreen
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        Transparent = True
        Layout = tlCenter
      end
      object Label3: TLabel
        Left = 0
        Top = 301
        Width = 38
        Height = 32
        Alignment = taCenter
        AutoSize = False
        Caption = #26143#26399#20116
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clGreen
        Font.Height = -12
        Font.Name = #23435#20307
        Font.Style = []
        ParentFont = False
        Transparent = True
        Layout = tlBottom
      end
    end
  end
  object StatusBar1: TRzStatusBar
    Left = 0
    Top = 509
    Width = 862
    Height = 19
    BorderInner = fsNone
    BorderOuter = fsNone
    BorderSides = [sdLeft, sdTop, sdRight, sdBottom]
    BorderWidth = 0
    GradientColorStyle = gcsMSOffice
    TabOrder = 0
    VisualStyle = vsGradient
    object RzStatusPane1: TRzStatusPane
      Left = 0
      Top = 0
      Width = 145
      Height = 19
      Align = alLeft
      Caption = #27896#24066#25351#25968
    end
    object RzStatusPane2: TRzStatusPane
      Left = 145
      Top = 0
      Width = 112
      Height = 19
      Align = alLeft
      Caption = #28145#24066#25351#25968
    end
    object RzStatusPane3: TRzStatusPane
      Left = 257
      Top = 0
      Height = 19
      FrameStyle = fsNone
      Align = alLeft
    end
    object RzStatusPane4: TRzStatusPane
      Left = 357
      Top = 0
      Height = 19
      Align = alLeft
    end
    object RzClockStatus1: TRzClockStatus
      Left = 457
      Top = 0
      Width = 121
      Height = 19
      Align = alLeft
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clGreen
      Font.Height = -12
      Font.Name = #23435#20307
      Font.Style = []
      ParentFont = False
    end
    object RzStatusPane5: TRzStatusPane
      Left = 578
      Top = 0
      Height = 19
      Align = alLeft
    end
  end
  object Panel1: TPanel
    Left = 712
    Top = 264
    Width = 160
    Height = 193
    BorderStyle = bsSingle
    Locked = True
    TabOrder = 1
    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 = 29
      Width = 154
      Height = 159
      Align = alBottom
      DataSource = DataSource2
      Flat = True
      FooterColor = clWindow
      FooterFont.Charset = DEFAULT_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 = DEFAULT_CHARSET
      TitleFont.Color = clWindowText
      TitleFont.Height = -12
      TitleFont.Name = #23435#20307
      TitleFont.Style = []
      UseMultiTitle = True
      OnDblClick = DBGridEh2DblClick
      OnKeyDown = DBGridEh2KeyDown
      Columns = <
        item
          EditButtons = <>
          FieldName = #32929#31080#20195#21495
          Footers = <>
          Width = 55
        end
        item
          EditButtons = <>
          FieldName = #32929#31080#21517#31216
          Footers = <>
        end>
    end
  end
  object ImageList1: TImageList
    Height = 32
    Width = 32
    Left = 64
    Top = 344