WebSVN – spacemission – Diff – /GamMain.dfm


object MainForm: TMainForm
  Left = 320
  Top = 196
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'SpaceMission'
  ClientHeight = 562
  ClientWidth = 640
  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 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

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

Subversion Repositories spacemission

spacemission/GamMain.dfm – Rev 35 → 36