fmain2.dfm

股市分析K線,測試版本,可以研究修正,勿用於商業販賣

object frmMain2: TfrmMain2
  Left = 321
  Top = 127
  AutoScroll = False
  Caption = 'DrawStock v0.01'
  ClientHeight = 239
  ClientWidth = 440
  Color = clBtnFace
  Constraints.MinHeight = 200
  Constraints.MinWidth = 120
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  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
  PixelsPerInch = 96
  TextHeight = 13
  object GRID: TStringGrid
    Left = 0
    Top = 0
    Width = 440
    Height = 239
    Align = alClient
    BorderStyle = bsNone
    ColCount = 2
    Ctl3D = True
    Enabled = False
    FixedCols = 0
    RowCount = 4
    FixedRows = 0
    Options = []
    ParentCtl3D = False
    ScrollBars = ssNone
    TabOrder = 0
    OnDrawCell = GRIDDrawCell
  end
  object Header: TStringGrid
    Left = 10
    Top = 73
    Width = 380
    Height = 36
    BorderStyle = bsNone
    ColCount = 14
    Ctl3D = False
    DefaultColWidth = 40
    Enabled = False
    FixedCols = 0
    RowCount = 1
    FixedRows = 0
    Font.Charset = ANSI_CHARSET
    Font.Color = clWindowText
    Font.Height = -11
    Font.Name = 'Arial'
    Font.Style = []
    Options = [goVertLine, goHorzLine, goRangeSelect]
    ParentCtl3D = False
    ParentFont = False
    ScrollBars = ssNone
    TabOrder = 1
    OnDrawCell = HeaderDrawCell
  end
  object MainMenu1: TMainMenu
    AutoHotkeys = maManual
    Left = 99
    Top = 32
    object N3: TMenuItem
      Caption = #20999#25563#32929#31080#27161#30340
      OnClick = N3Click
      object mi0: TMenuItem
        Caption = '00_'#21152#27402
        RadioItem = True
        OnClick = mi0Click
      end
      object mi1: TMenuItem
        Tag = 1
        Caption = '01_'#37329#34701
        RadioItem = True
        OnClick = mi0Click
      end
      object mi2: TMenuItem
        Caption = '02_'#38651#23376
        RadioItem = True
        OnClick = mi0Click
      end
      object mi3: TMenuItem
        Caption = '03_'#38750#37329#34701
        RadioItem = True
        OnClick = mi0Click
      end
      object N041: TMenuItem
        Caption = '04_'#38750#38651#23376
        RadioItem = True
        OnClick = mi0Click
      end
      object N051: TMenuItem
        Caption = '05_'#32879#38651
        RadioItem = True
        OnClick = mi0Click
      end
      object N061: TMenuItem
        Caption = '06_'#21488#31309#38651
        RadioItem = True
        OnClick = mi0Click
      end
      object N071: TMenuItem
        Caption = '07_'#33775#37030
        RadioItem = True
        OnClick = mi0Click
      end
      object N081: TMenuItem
        Caption = '08_'#26126#22522
        RadioItem = True
        OnClick = mi0Click
      end
      object N091: TMenuItem
        Caption = '09_'#23439#30849
        RadioItem = True
        OnClick = mi0Click
      end
      object N101: TMenuItem
        Caption = '10_'#33775#30889
        RadioItem = True
        OnClick = mi0Click
      end
      object N111: TMenuItem
        Caption = '11_'#21451#36948
        RadioItem = True
        OnClick = mi0Click
      end
      object N121: TMenuItem
        Caption = '12_'#22855#32654
        RadioItem = True
        OnClick = mi0Click
      end
    end
    object miSizing: TMenuItem
      Caption = #32302#25918
      object N5: TMenuItem
        Caption = #25918#22823'('#65291')'
        OnClick = N5Click
      end
      object N6: TMenuItem
        Caption = #32302#23567'('#65293')'
        OnClick = N6Click
      end
    end
    object N2: TMenuItem
      Caption = #31227#21205
      object miLeftOne: TMenuItem
        Caption = #24448#24038'1'#31558'(LEFT)'
        OnClick = miLeftOneClick
      end
      object miRightOne: TMenuItem
        Caption = #24448#21491'1'#31558'(RIGHT)'
        OnClick = miRightOneClick
      end
      object N7: TMenuItem
        Caption = '-'
      end
      object miPageFirst: TMenuItem
        Caption = #30070#38913#31532#19968#31558'(HOME)'
        OnClick = miPageFirstClick
      end
      object miPageLast: TMenuItem
        Caption = #30070#38913#26368#24460#19968#31558'(END)'
        OnClick = miPageLastClick
      end
    end
    object N8: TMenuItem
      Caption = #24555#36895#31227#21205
      object miQuickLeft: TMenuItem
        Caption = #24448#24038'1/8'#38913'(CTRL+LEFTl)'
        OnClick = miQuickLeftClick
      end
      object miQuickRight: TMenuItem
        Caption = #24448#21491'1/8'#38913'(CTRL+RIGHT)'
        OnClick = miQuickRightClick
      end
      object N9: TMenuItem
        Caption = '-'
      end
      object miFirst: TMenuItem
        Caption = #35442#32929#31532#19968#31558'(CTRL+HOME)'
        OnClick = miFirstClick
      end
      object miLast: TMenuItem
        Caption = #30070#32929#26368#24460#19968#31558'(CTRL+END)'
        OnClick = miLastClick
      end
    end
    object N1: TMenuItem
      Caption = #35373#23450
      object mi100: TMenuItem
        Tag = 100
        Caption = #39023#31034#24179#22343#32218
        Checked = True
        OnClick = mi100Click
      end
      object mi101: TMenuItem
        Tag = 101
        Caption = #39023#31034#26178#38291#24231#27161
        Checked = True
        OnClick = mi100Click
      end
      object N4: TMenuItem
        Tag = 102
        Caption = #39023#31034#32972#26223#24231#27161#32218
        Checked = True
        OnClick = mi100Click
      end
      object N13: TMenuItem
        Caption = '-'
      end
      object miShowKLineHighLow: TMenuItem
        Tag = 104
        Caption = 'K'#32218#39640#20302#20729#27161#31034
        Checked = True
        OnClick = mi100Click
      end
      object N12: TMenuItem
        Tag = 103
        Caption = #20197#24213#32218#39023#31034#23567#25976
        Checked = True
        OnClick = mi100Click
      end
      object N10: TMenuItem
        Caption = '-'
      end
      object N11: TMenuItem
        Caption = #26356#26032#30059#38754
        OnClick = N11Click
      end
    end
  end
end