unit1.dfm

来自「自己用C编写的小游戏」· DFM 代码 · 共 81 行

object Form1: TForm1
  Left = 192
  Top = 118
  Width = 409
  Height = 459
  Caption = 'SixMine'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object Image1: TImage
    Left = 0
    Top = 0
    Width = 401
    Height = 401
    OnClick = Image1Click
  end
  object MainMenu1: TMainMenu
    Left = 192
    Top = 232
    object F1: TMenuItem
      Caption = #25991#20214'[&F]'
      object B1: TMenuItem
        Caption = #24320#22987'[&B]'
        ShortCut = 113
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object X1: TMenuItem
        Caption = #36864#20986'[&X]'
        OnClick = X1Click
      end
    end
    object S1: TMenuItem
      Caption = #35774#32622'[&S]'
      object F2: TMenuItem
        Caption = #23618#25968'[&F]'
        ShortCut = 116
      end
      object N2: TMenuItem
        Caption = #25968#30446'[&N]'
        ShortCut = 117
      end
    end
    object C1: TMenuItem
      Caption = #20316#24330'[&C]'
      object R1: TMenuItem
        Caption = #38543#26426'[&R]'
        ShortCut = 120
      end
      object P1: TMenuItem
        Caption = #23450#28857'[&P]'
        ShortCut = 121
      end
    end
    object H1: TMenuItem
      Caption = #24110#21161'[&H]'
      object H2: TMenuItem
        Caption = #24110#21161'[&H]'
        ShortCut = 112
        OnClick = H2Click
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object A1: TMenuItem
        Caption = #20851#20110'[&A]'
        ShortCut = 123
        OnClick = A1Click
      end
    end
  end
end