WebSVN – spacemission – Diff – /LevMain.dfm


object MainForm: TMainForm
  Left = 217
  Top = 117
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Leveleditor'
  ClientHeight = 520
  ClientWidth = 753
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  KeyPreview = True
  Menu = MainMenu
  OldCreateOrder = True
  Position = poDesktopCenter
  Scaled = False
  OnClose = FormClose
  OnCloseQuery = FormCloseQuery
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnMouseMove = DXDrawMouseMove
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Bevel1: TBevel
    Left = 648
    Top = 200
    Width = 97
    Height = 2
    Shape = bsBottomLine
  end
  object Bevel2: TBevel
    Left = 648
    Top = 392
    Width = 97
    Height = 2
    Shape = bsBottomLine
  end
  object SelLabel: TLabel
    Left = 648
    Top = 0
    Width = 43
    Height = 13
    Caption = 'Auswahl:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsUnderline]
    ParentFont = False
    OnMouseMove = DXDrawMouseMove
  end
  object Bevel3: TBevel
    Left = 648
    Top = 320
    Width = 97
    Height = 2
    Shape = bsBottomLine
  end
  object SLabel1a: TLabel
    Left = 652
    Top = 424
    Width = 47
    Height = 13
    Caption = 'Einheiten:'
    OnMouseMove = DXDrawMouseMove
  end
  object SLabel2a: TLabel
    Left = 652
    Top = 440
    Width = 26
    Height = 13
    Caption = 'Boss:'
    OnMouseMove = DXDrawMouseMove
  end
  object SLabel1b: TLabel
    Left = 720
    Top = 424
    Width = 6
    Height = 13
    Caption = '0'
    OnMouseMove = DXDrawMouseMove
  end
  object SLabel2b: TLabel
    Left = 720
    Top = 440
    Width = 22
    Height = 13
    Caption = 'Nein'
    OnMouseMove = DXDrawMouseMove
  end
  object SLabel0: TLabel
    Left = 648
    Top = 400
    Width = 84
    Height = 13
    Caption = 'Level-Information:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsUnderline]
    ParentFont = False
    OnMouseMove = DXDrawMouseMove
  end
  object SLabel3a: TLabel
    Left = 652
    Top = 456
    Width = 32
    Height = 13
    Caption = 'Gr'#246#223'e:'
    OnMouseMove = DXDrawMouseMove
  end
  object SLabel3b: TLabel
    Left = 720
    Top = 456
    Width = 24
    Height = 13
    Caption = '1200'
    OnMouseMove = DXDrawMouseMove
  end
  object SLabel4a: TLabel
    Left = 652
    Top = 480
    Width = 60
    Height = 13
    Caption = 'Gespeichert:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = 150
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    OnMouseMove = DXDrawMouseMove
  end
  object SLabel4b: TLabel
    Left = 720
    Top = 480
    Width = 22
    Height = 13
    Caption = 'Nein'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = 150
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = []
    ParentFont = False
    OnMouseMove = DXDrawMouseMove
  end
  object LivesLabel: TLabel
    Left = 648
    Top = 332
    Width = 33
    Height = 13
    Caption = 'Leben:'
    Font.Charset = DEFAULT_CHARSET
    Font.Color = clWindowText
    Font.Height = -12
    Font.Name = 'MS Sans Serif'
    Font.Style = [fsUnderline]
    ParentFont = False
    OnMouseMove = DXDrawMouseMove
  end
  object Enemy1: TRadioButton
    Left = 652
    Top = 24
    Width = 93
    Height = 17
    Caption = 'Angreifer Typ 1'
    Checked = True
    TabOrder = 0
    TabStop = True
    OnClick = EnemyClick
    OnMouseMove = DXDrawMouseMove
  end
  object Enemy2: TRadioButton
    Left = 652
    Top = 48
    Width = 93
    Height = 17
    Caption = 'Angreifer Typ 2'
    TabOrder = 1
    OnClick = EnemyClick
    OnMouseMove = DXDrawMouseMove
  end
  object Enemy3: TRadioButton
    Left = 652
    Top = 72
    Width = 93
    Height = 17
    Caption = 'Angreifer Typ 3'
    TabOrder = 2
    OnClick = EnemyClick
    OnMouseMove = DXDrawMouseMove
  end
  object Enemy4: TRadioButton
    Left = 652
    Top = 96
    Width = 55
    Height = 17
    Caption = 'Meteor'
    TabOrder = 3
    OnClick = EnemyClick
    OnMouseMove = DXDrawMouseMove
  end
  object Enemy5: TRadioButton
    Left = 652
    Top = 120
    Width = 44
    Height = 17
    Caption = 'UFO'
    TabOrder = 4
    OnClick = EnemyClick
    OnMouseMove = DXDrawMouseMove
  end
  object Enemy6: TRadioButton
    Left = 652
    Top = 144
    Width = 53
    Height = 17
    Caption = 'UFO 2'
    TabOrder = 5
    OnClick = EnemyClick
    OnMouseMove = DXDrawMouseMove
  end
  object Enemy7: TRadioButton
    Left = 652
    Top = 168
    Width = 45
    Height = 17
    Caption = 'Boss'
    TabOrder = 6
    OnClick = EnemyClick
    OnMouseMove = DXDrawMouseMove
  end
  object ScrollBar: TScrollBar
    Left = 0
    Top = 480
    Width = 640
    Height = 17
    Max = 1200
    PageSize = 0
    TabOrder = 7
    OnScroll = ScrollBarScroll
  end
  object SelPanel: TPanel
    Left = 652
    Top = 216
    Width = 89
    Height = 89
    Color = clWhite
    TabOrder = 8
    OnMouseMove = DXDrawMouseMove
    object Image1: TImage
      Left = 1
      Top = 1
      Width = 610
      Height = 88
      AutoSize = True
      OnMouseMove = DXDrawMouseMove
    end
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 501
    Width = 753
    Height = 19
    Panels = <>
    SimpleText = 
      ' Zeigen Sie mit dem Mauszeiger auf eine Einheit, um deren Eigens' +
      'chaften anzuzeigen...'
    OnMouseMove = DXDrawMouseMove
    ExplicitTop = 539
  end
  object LivesEdt: TEdit
    Left = 648
    Top = 360
    Width = 73
    Height = 21
    TabOrder = 10
    Text = '1'
    OnChange = LivesEdtChange
    OnKeyPress = LivesEdtKeyPress
    OnMouseMove = DXDrawMouseMove
  end
  object Lives: TUpDown
    Left = 720
    Top = 360
    Width = 17
    Height = 19
    Min = 1
    Max = 999
    Position = 1
    TabOrder = 11
    OnClick = LivesClick
    OnMouseMove = DXDrawMouseMove
  end
  object MainMenu: TMainMenu
    Left = 32
    Top = 16
    object Spiel: TMenuItem
      Caption = '&Datei'
      object Level: TMenuItem
        Caption = '&Verwaltung...'
        ShortCut = 115
        OnClick = LevelClick
      end
      object Quelltext1: TMenuItem
        Caption = '&Quelltext...'
        ShortCut = 116
        OnClick = Quelltext1Click
      end
      object N1: TMenuItem
        Caption = '-'
      end
      object Neu: TMenuItem
        Caption = '&Neu'
        ShortCut = 117
        OnClick = NeuClick
      end
      object Spielfelderweitern1: TMenuItem
        Caption = 'Leveleigenschaften...'
        ShortCut = 118
        OnClick = Spielfelderweitern1Click
      end
      object Leer1: TMenuItem
        Caption = '-'
      end
      object Beenden: TMenuItem
        Caption = '&Beenden'
        ShortCut = 32883
        OnClick = BeendenClick
      end
    end
    object Hilfe: TMenuItem
      Caption = '&Hilfe'
      object Informationen: TMenuItem
        Caption = '&Informationen...'
        GroupIndex = 1
        OnClick = InformationenClick
      end
    end
  end
end

Rev 6	Rev 8
1	object MainForm: TMainForm	1	object MainForm: TMainForm
2	Left = 217	2	Left = 217
3	Top = 117	3	Top = 117
4	BorderIcons = [biSystemMenu, biMinimize]	4	BorderIcons = [biSystemMenu, biMinimize]
5	BorderStyle = bsSingle	5	BorderStyle = bsSingle
6	Caption = 'Leveleditor'	6	Caption = 'Leveleditor'
7	ClientHeight = 558	7	ClientHeight = 520
8	ClientWidth = 753	8	ClientWidth = 753
9	Color = clBtnFace	9	Color = clBtnFace
10	Font.Charset = DEFAULT_CHARSET	10	Font.Charset = DEFAULT_CHARSET
11	Font.Color = clWindowText	11	Font.Color = clWindowText
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	OldCreateOrder = True	17	OldCreateOrder = True
18	Position = poDesktopCenter	18	Position = poDesktopCenter
19	Scaled = False	19	Scaled = False
20	OnClose = FormClose	20	OnClose = FormClose
21	OnCloseQuery = FormCloseQuery	21	OnCloseQuery = FormCloseQuery
22	OnCreate = FormCreate	22	OnCreate = FormCreate
23	OnDestroy = FormDestroy	23	OnDestroy = FormDestroy
24	OnMouseMove = DXDrawMouseMove	24	OnMouseMove = DXDrawMouseMove
25	OnShow = FormShow	25	OnShow = FormShow
26	PixelsPerInch = 96	26	PixelsPerInch = 96
27	TextHeight = 13	27	TextHeight = 13
28	object Bevel1: TBevel	28	object Bevel1: TBevel
29	Left = 648	29	Left = 648
30	Top = 200	30	Top = 200
31	Width = 97	31	Width = 97
32	Height = 2	32	Height = 2
33	Shape = bsBottomLine	33	Shape = bsBottomLine
34	end	34	end
35	object Bevel2: TBevel	35	object Bevel2: TBevel
36	Left = 648	36	Left = 648
37	Top = 392	37	Top = 392
38	Width = 97	38	Width = 97
39	Height = 2	39	Height = 2
40	Shape = bsBottomLine	40	Shape = bsBottomLine
41	end	41	end
42	object SelLabel: TLabel	42	object SelLabel: TLabel
43	Left = 648	43	Left = 648
44	Top = 0	44	Top = 0
45	Width = 43	45	Width = 43
46	Height = 13	46	Height = 13
47	Caption = 'Auswahl:'	47	Caption = 'Auswahl:'
48	Font.Charset = DEFAULT_CHARSET	48	Font.Charset = DEFAULT_CHARSET
49	Font.Color = clWindowText	49	Font.Color = clWindowText
50	Font.Height = -12	50	Font.Height = -12
51	Font.Name = 'MS Sans Serif'	51	Font.Name = 'MS Sans Serif'
52	Font.Style = [fsUnderline]	52	Font.Style = [fsUnderline]
53	ParentFont = False	53	ParentFont = False
54	OnMouseMove = DXDrawMouseMove	54	OnMouseMove = DXDrawMouseMove
55	end	55	end
56	object Bevel3: TBevel	56	object Bevel3: TBevel
57	Left = 648	57	Left = 648
58	Top = 320	58	Top = 320
59	Width = 97	59	Width = 97
60	Height = 2	60	Height = 2
61	Shape = bsBottomLine	61	Shape = bsBottomLine
62	end	62	end
63	object SLabel1a: TLabel	63	object SLabel1a: TLabel
64	Left = 652	64	Left = 652
65	Top = 424	65	Top = 424
66	Width = 47	66	Width = 47
67	Height = 13	67	Height = 13
68	Caption = 'Einheiten:'	68	Caption = 'Einheiten:'
69	OnMouseMove = DXDrawMouseMove	69	OnMouseMove = DXDrawMouseMove
70	end	70	end
71	object SLabel2a: TLabel	71	object SLabel2a: TLabel
72	Left = 652	72	Left = 652
73	Top = 440	73	Top = 440
74	Width = 26	74	Width = 26
75	Height = 13	75	Height = 13
76	Caption = 'Boss:'	76	Caption = 'Boss:'
77	OnMouseMove = DXDrawMouseMove	77	OnMouseMove = DXDrawMouseMove
78	end	78	end
79	object SLabel1b: TLabel	79	object SLabel1b: TLabel
80	Left = 720	80	Left = 720
81	Top = 424	81	Top = 424
82	Width = 6	82	Width = 6
83	Height = 13	83	Height = 13
84	Caption = '0'	84	Caption = '0'
85	OnMouseMove = DXDrawMouseMove	85	OnMouseMove = DXDrawMouseMove
86	end	86	end
87	object SLabel2b: TLabel	87	object SLabel2b: TLabel
88	Left = 720	88	Left = 720
89	Top = 440	89	Top = 440
90	Width = 22	90	Width = 22
91	Height = 13	91	Height = 13
92	Caption = 'Nein'	92	Caption = 'Nein'
93	OnMouseMove = DXDrawMouseMove	93	OnMouseMove = DXDrawMouseMove
94	end	94	end
95	object SLabel0: TLabel	95	object SLabel0: TLabel
96	Left = 648	96	Left = 648
97	Top = 400	97	Top = 400
98	Width = 84	98	Width = 84
99	Height = 13	99	Height = 13
100	Caption = 'Level-Information:'	100	Caption = 'Level-Information:'
101	Font.Charset = DEFAULT_CHARSET	101	Font.Charset = DEFAULT_CHARSET
102	Font.Color = clWindowText	102	Font.Color = clWindowText
103	Font.Height = -12	103	Font.Height = -12
104	Font.Name = 'MS Sans Serif'	104	Font.Name = 'MS Sans Serif'
105	Font.Style = [fsUnderline]	105	Font.Style = [fsUnderline]
106	ParentFont = False	106	ParentFont = False
107	OnMouseMove = DXDrawMouseMove	107	OnMouseMove = DXDrawMouseMove
108	end	108	end
109	object SLabel3a: TLabel	109	object SLabel3a: TLabel
110	Left = 652	110	Left = 652
111	Top = 456	111	Top = 456
112	Width = 32	112	Width = 32
113	Height = 13	113	Height = 13
114	Caption = 'Gr'#246#223'e:'	114	Caption = 'Gr'#246#223'e:'
115	OnMouseMove = DXDrawMouseMove	115	OnMouseMove = DXDrawMouseMove
116	end	116	end
117	object SLabel3b: TLabel	117	object SLabel3b: TLabel
118	Left = 720	118	Left = 720
119	Top = 456	119	Top = 456
120	Width = 24	120	Width = 24
121	Height = 13	121	Height = 13
122	Caption = '1200'	122	Caption = '1200'
123	OnMouseMove = DXDrawMouseMove	123	OnMouseMove = DXDrawMouseMove
124	end	124	end
125	object SLabel4a: TLabel	125	object SLabel4a: TLabel
126	Left = 652	126	Left = 652
127	Top = 480	127	Top = 480
128	Width = 60	128	Width = 60
129	Height = 13	129	Height = 13
130	Caption = 'Gespeichert:'	130	Caption = 'Gespeichert:'
131	Font.Charset = DEFAULT_CHARSET	131	Font.Charset = DEFAULT_CHARSET
132	Font.Color = 150	132	Font.Color = 150
133	Font.Height = -12	133	Font.Height = -12
134	Font.Name = 'MS Sans Serif'	134	Font.Name = 'MS Sans Serif'
135	Font.Style = []	135	Font.Style = []
136	ParentFont = False	136	ParentFont = False
137	OnMouseMove = DXDrawMouseMove	137	OnMouseMove = DXDrawMouseMove
138	end	138	end
139	object SLabel4b: TLabel	139	object SLabel4b: TLabel
140	Left = 720	140	Left = 720
141	Top = 480	141	Top = 480
142	Width = 22	142	Width = 22
143	Height = 13	143	Height = 13
144	Caption = 'Nein'	144	Caption = 'Nein'
145	Font.Charset = DEFAULT_CHARSET	145	Font.Charset = DEFAULT_CHARSET
146	Font.Color = 150	146	Font.Color = 150
147	Font.Height = -12	147	Font.Height = -12
148	Font.Name = 'MS Sans Serif'	148	Font.Name = 'MS Sans Serif'
149	Font.Style = []	149	Font.Style = []
150	ParentFont = False	150	ParentFont = False
151	OnMouseMove = DXDrawMouseMove	151	OnMouseMove = DXDrawMouseMove
152	end	152	end
153	object LivesLabel: TLabel	153	object LivesLabel: TLabel
154	Left = 648	154	Left = 648
155	Top = 332	155	Top = 332
156	Width = 33	156	Width = 33
157	Height = 13	157	Height = 13
158	Caption = 'Leben:'	158	Caption = 'Leben:'
159	Font.Charset = DEFAULT_CHARSET	159	Font.Charset = DEFAULT_CHARSET
160	Font.Color = clWindowText	160	Font.Color = clWindowText
161	Font.Height = -12	161	Font.Height = -12
162	Font.Name = 'MS Sans Serif'	162	Font.Name = 'MS Sans Serif'
163	Font.Style = [fsUnderline]	163	Font.Style = [fsUnderline]
164	ParentFont = False	164	ParentFont = False
165	OnMouseMove = DXDrawMouseMove	165	OnMouseMove = DXDrawMouseMove
166	end	166	end
167	object Enemy1: TRadioButton	167	object Enemy1: TRadioButton
168	Left = 652	168	Left = 652
169	Top = 24	169	Top = 24
170	Width = 93	170	Width = 93
171	Height = 17	171	Height = 17
172	Caption = 'Angreifer Typ 1'	172	Caption = 'Angreifer Typ 1'
173	Checked = True	173	Checked = True
174	TabOrder = 0	174	TabOrder = 0
175	TabStop = True	175	TabStop = True
176	OnClick = EnemyClick	176	OnClick = EnemyClick
177	OnMouseMove = DXDrawMouseMove	177	OnMouseMove = DXDrawMouseMove
178	end	178	end
179	object Enemy2: TRadioButton	179	object Enemy2: TRadioButton
180	Left = 652	180	Left = 652
181	Top = 48	181	Top = 48
182	Width = 93	182	Width = 93
183	Height = 17	183	Height = 17
184	Caption = 'Angreifer Typ 2'	184	Caption = 'Angreifer Typ 2'
185	TabOrder = 1	185	TabOrder = 1
186	OnClick = EnemyClick	186	OnClick = EnemyClick
187	OnMouseMove = DXDrawMouseMove	187	OnMouseMove = DXDrawMouseMove
188	end	188	end
189	object Enemy3: TRadioButton	189	object Enemy3: TRadioButton
190	Left = 652	190	Left = 652
191	Top = 72	191	Top = 72
192	Width = 93	192	Width = 93
193	Height = 17	193	Height = 17
194	Caption = 'Angreifer Typ 3'	194	Caption = 'Angreifer Typ 3'
195	TabOrder = 2	195	TabOrder = 2
196	OnClick = EnemyClick	196	OnClick = EnemyClick
197	OnMouseMove = DXDrawMouseMove	197	OnMouseMove = DXDrawMouseMove
198	end	198	end
199	object Enemy4: TRadioButton	199	object Enemy4: TRadioButton
200	Left = 652	200	Left = 652
201	Top = 96	201	Top = 96
202	Width = 55	202	Width = 55
203	Height = 17	203	Height = 17
204	Caption = 'Meteor'	204	Caption = 'Meteor'
205	TabOrder = 3	205	TabOrder = 3
206	OnClick = EnemyClick	206	OnClick = EnemyClick
207	OnMouseMove = DXDrawMouseMove	207	OnMouseMove = DXDrawMouseMove
208	end	208	end
209	object Enemy5: TRadioButton	209	object Enemy5: TRadioButton
210	Left = 652	210	Left = 652
211	Top = 120	211	Top = 120
212	Width = 44	212	Width = 44
213	Height = 17	213	Height = 17
214	Caption = 'UFO'	214	Caption = 'UFO'
215	TabOrder = 4	215	TabOrder = 4
216	OnClick = EnemyClick	216	OnClick = EnemyClick
217	OnMouseMove = DXDrawMouseMove	217	OnMouseMove = DXDrawMouseMove
218	end	218	end
219	object Enemy6: TRadioButton	219	object Enemy6: TRadioButton
220	Left = 652	220	Left = 652
221	Top = 144	221	Top = 144
222	Width = 53	222	Width = 53
223	Height = 17	223	Height = 17
224	Caption = 'UFO 2'	224	Caption = 'UFO 2'
225	TabOrder = 5	225	TabOrder = 5
226	OnClick = EnemyClick	226	OnClick = EnemyClick
227	OnMouseMove = DXDrawMouseMove	227	OnMouseMove = DXDrawMouseMove
228	end	228	end
229	object Enemy7: TRadioButton	229	object Enemy7: TRadioButton
230	Left = 652	230	Left = 652
231	Top = 168	231	Top = 168
232	Width = 45	232	Width = 45
233	Height = 17	233	Height = 17
234	Caption = 'Boss'	234	Caption = 'Boss'
235	TabOrder = 6	235	TabOrder = 6
236	OnClick = EnemyClick	236	OnClick = EnemyClick
237	OnMouseMove = DXDrawMouseMove	237	OnMouseMove = DXDrawMouseMove
238	end	238	end
239	object ScrollBar: TScrollBar	239	object ScrollBar: TScrollBar
240	Left = 0	240	Left = 0
241	Top = 480	241	Top = 480
242	Width = 640	242	Width = 640
243	Height = 17	243	Height = 17
244	Max = 1200	244	Max = 1200
245	PageSize = 0	245	PageSize = 0
246	TabOrder = 7	246	TabOrder = 7
247	OnScroll = ScrollBarScroll	247	OnScroll = ScrollBarScroll
248	end	248	end
249	object SelPanel: TPanel	249	object SelPanel: TPanel
250	Left = 652	250	Left = 652
251	Top = 216	251	Top = 216
252	Width = 89	252	Width = 89
253	Height = 89	253	Height = 89
254	Color = clWhite	254	Color = clWhite
255	TabOrder = 8	255	TabOrder = 8
256	OnMouseMove = DXDrawMouseMove	256	OnMouseMove = DXDrawMouseMove
257	object Image1: TImage	257	object Image1: TImage
258	Left = 1	258	Left = 1
259	Top = 1	259	Top = 1
260	Width = 610	260	Width = 610
261	Height = 88	261	Height = 88
262	AutoSize = True	262	AutoSize = True
263	OnMouseMove = DXDrawMouseMove	263	OnMouseMove = DXDrawMouseMove
264	end	264	end
265	end	265	end
266	object StatusBar: TStatusBar	266	object StatusBar: TStatusBar
267	Left = 0	267	Left = 0
268	Top = 539	268	Top = 501
269	Width = 753	269	Width = 753
270	Height = 19	270	Height = 19
271	Panels = <>	271	Panels = <>
272	SimpleText =	272	SimpleText =
273	' Zeigen Sie mit dem Mauszeiger auf eine Einheit, um deren Eigens' +	273	' Zeigen Sie mit dem Mauszeiger auf eine Einheit, um deren Eigens' +
274	'chaften anzuzeigen...'	274	'chaften anzuzeigen...'
275	OnMouseMove = DXDrawMouseMove	275	OnMouseMove = DXDrawMouseMove
-		276	ExplicitTop = 539
276	end	277	end
277	object LivesEdt: TEdit	278	object LivesEdt: TEdit
278	Left = 648	279	Left = 648
279	Top = 360	280	Top = 360
280	Width = 73	281	Width = 73
281	Height = 21	282	Height = 21
282	TabOrder = 10	283	TabOrder = 10
283	Text = '1'	284	Text = '1'
284	OnChange = LivesEdtChange	285	OnChange = LivesEdtChange
285	OnKeyPress = LivesEdtKeyPress	286	OnKeyPress = LivesEdtKeyPress
286	OnMouseMove = DXDrawMouseMove	287	OnMouseMove = DXDrawMouseMove
287	end	288	end
288	object Lives: TUpDown	289	object Lives: TUpDown
289	Left = 720	290	Left = 720
290	Top = 360	291	Top = 360
291	Width = 17	292	Width = 17
292	Height = 19	293	Height = 19
293	Min = 1	294	Min = 1
294	Max = 999	295	Max = 999
295	Position = 1	296	Position = 1
296	TabOrder = 11	297	TabOrder = 11
297	OnClick = LivesClick	298	OnClick = LivesClick
298	OnMouseMove = DXDrawMouseMove	299	OnMouseMove = DXDrawMouseMove
299	end	300	end
300	object MainMenu: TMainMenu	301	object MainMenu: TMainMenu
301	Left = 32	302	Left = 32
302	Top = 16	303	Top = 16
303	object Spiel: TMenuItem	304	object Spiel: TMenuItem
304	Caption = '&Datei'	305	Caption = '&Datei'
305	object Level: TMenuItem	306	object Level: TMenuItem
306	Caption = '&Verwaltung...'	307	Caption = '&Verwaltung...'
307	ShortCut = 115	308	ShortCut = 115
308	OnClick = LevelClick	309	OnClick = LevelClick
309	end	310	end
310	object Quelltext1: TMenuItem	311	object Quelltext1: TMenuItem
311	Caption = '&Quelltext...'	312	Caption = '&Quelltext...'
312	ShortCut = 116	313	ShortCut = 116
313	OnClick = Quelltext1Click	314	OnClick = Quelltext1Click
314	end	315	end
315	object N1: TMenuItem	316	object N1: TMenuItem
316	Caption = '-'	317	Caption = '-'
317	end	318	end
318	object Neu: TMenuItem	319	object Neu: TMenuItem
319	Caption = '&Neu'	320	Caption = '&Neu'
320	ShortCut = 117	321	ShortCut = 117
321	OnClick = NeuClick	322	OnClick = NeuClick
322	end	323	end
323	object Spielfelderweitern1: TMenuItem	324	object Spielfelderweitern1: TMenuItem
324	Caption = 'Leveleigenschaften...'	325	Caption = 'Leveleigenschaften...'
325	ShortCut = 118	326	ShortCut = 118
326	OnClick = Spielfelderweitern1Click	327	OnClick = Spielfelderweitern1Click
327	end	328	end
328	object Leer1: TMenuItem	329	object Leer1: TMenuItem
329	Caption = '-'	330	Caption = '-'
330	end	331	end
331	object Beenden: TMenuItem	332	object Beenden: TMenuItem
332	Caption = '&Beenden'	333	Caption = '&Beenden'
333	ShortCut = 32883	334	ShortCut = 32883
334	OnClick = BeendenClick	335	OnClick = BeendenClick
335	end	336	end
336	end	337	end
337	object Hilfe: TMenuItem	338	object Hilfe: TMenuItem
338	Caption = '&Hilfe'	339	Caption = '&Hilfe'
339	object Informationen: TMenuItem	340	object Informationen: TMenuItem
340	Caption = '&Informationen...'	341	Caption = '&Informationen...'
341	GroupIndex = 1	342	GroupIndex = 1
342	OnClick = InformationenClick	343	OnClick = InformationenClick
343	end	344	end
344	end	345	end
345	end	346	end
346	end	347	end

Subversion Repositories spacemission

spacemission/LevMain.dfm – Rev 6 → 8