spacemission/GamMain.dfm at master · danielmarschall/spacemission · GitHub

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
object MainForm: TMainForm
  Left = 320
  Top = 196
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'SpaceMission'
  ClientHeight = 561
  ClientWidth = 636
  Color = clBlack
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clYellow
  Font.Height = -12
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  Menu = MainMenu
  Position = poScreenCenter
  Scaled = False
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnKeyDown = FormKeyDown
  OnShow = FormShow
  TextHeight = 13
  object MainMenu: TMainMenu
    Left = 24
    Top = 8
    object Spiel: TMenuItem
      Caption = '&Spiel'
      object GameStart: TMenuItem
        Caption = '&Zur'#252'ck zum Hauptmen'#252
        Enabled = False
        ShortCut = 112
        OnClick = GameStartClick
      end
      object Neustart: TMenuItem
        Caption = '&Neustart'
        Enabled = False
        ShortCut = 113
        OnClick = NeustartClick
      end
      object GamePause: TMenuItem
        Caption = '&Pause'
        Enabled = False
        ShortCut = 114
        OnClick = GamePauseClick
      end
      object Leer1: TMenuItem
        Caption = '-'
      end
      object Spielstand: TMenuItem
        Caption = '&Spielst'#228'nde...'
        ShortCut = 115
        OnClick = SpielstandClick
      end
      object Cheat: TMenuItem
        Caption = '&Cheatverwaltung...'
        Enabled = False
        ShortCut = 116
        OnClick = CheatClick
      end
      object Leer3: TMenuItem
        Caption = '-'
      end
      object Beenden: TMenuItem
        Caption = '&Beenden'
        ShortCut = 32883
        OnClick = BeendenClick
      end
    end
    object Einstellungen: TMenuItem
      Caption = '&Einstellungen'
      object OptionSound: TMenuItem
        Caption = '&Soundeffekte'
        Checked = True
        GroupIndex = 1
        OnClick = OptionSoundClick
      end
      object OptionMusic: TMenuItem
        Caption = '&Hintergrundmusik'
        Checked = True
        GroupIndex = 1
        OnClick = OptionMusicClick
      end
      object Leer5: TMenuItem
        Caption = '-'
        GroupIndex = 1
      end
      object Spielgeschwindigkeit: TMenuItem
        Caption = '&Spielgeschwindigkeit'
        Enabled = False
        GroupIndex = 1
        object Leicht: TMenuItem
          Caption = '&Leicht'
          RadioItem = True
          ShortCut = 49
          OnClick = LeichtClick
        end
        object Mittel: TMenuItem
          Caption = '&Mittel'
          Checked = True
          RadioItem = True
          ShortCut = 50
          OnClick = MittelClick
        end
        object Schwer: TMenuItem
          Caption = '&Schwer'
          RadioItem = True
          ShortCut = 51
          OnClick = SchwerClick
        end
        object Master: TMenuItem
          Caption = 'Meist&er'
          RadioItem = True
          ShortCut = 52
          OnClick = MasterClick
        end
      end
    end
    object Hilfe: TMenuItem
      Caption = '&Hilfe'
      object Hilfe1: TMenuItem
        Caption = 'Allgemeines'
        GroupIndex = 1
        Hint = 'Help\DE_General.md'
        OnClick = HilfeTopicClick
      end
      object Wasgibtesneues1: TMenuItem
        Caption = 'Was gibt es Neues?'
        GroupIndex = 1
        Hint = 'Help\DE_Changelog.md'
        OnClick = HilfeTopicClick
      end
      object N1: TMenuItem
        Caption = '-'
        GroupIndex = 1
      end
      object CheckUpdates: TMenuItem
        Caption = 'Auf Updates pr'#252'fen'
        GroupIndex = 1
        OnClick = CheckUpdatesClick
      end
      object Leer6: TMenuItem
        Caption = '-'
        GroupIndex = 1
      end
      object Informationen: TMenuItem
        Caption = '&Informationen...'
        GroupIndex = 1
        OnClick = InformationenClick
      end
    end
  end
end