Rev 3 | Rev 6 | Go to most recent revision | Only display areas with differences | Regard whitespace | Details | Blame | Last modification | View Log | RSS feed
Rev 3 | Rev 4 | ||
---|---|---|---|
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 = 558 |
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 = 106 |
26 | PixelsPerInch = 106 |
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 = 73 |
170 | Width = 93 |
171 | Height = 17 |
171 | Height = 17 |
172 | Caption = 'Attackierer' |
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 = 82 |
182 | Width = 93 |
183 | Height = 17 |
183 | Height = 17 |
184 | Caption = 'Attackierer 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 = 82 |
192 | Width = 93 |
193 | Height = 17 |
193 | Height = 17 |
194 | Caption = 'Attackierer 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 = 539 |
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 | end |
276 | end |
277 | object LivesEdt: TEdit |
277 | object LivesEdt: TEdit |
278 | Left = 648 |
278 | Left = 648 |
279 | Top = 360 |
279 | Top = 360 |
280 | Width = 73 |
280 | Width = 73 |
281 | Height = 21 |
281 | Height = 21 |
282 | TabOrder = 10 |
282 | TabOrder = 10 |
283 | Text = '1' |
283 | Text = '1' |
284 | OnChange = LivesEdtChange |
284 | OnChange = LivesEdtChange |
285 | OnKeyPress = LivesEdtKeyPress |
285 | OnKeyPress = LivesEdtKeyPress |
286 | OnMouseMove = DXDrawMouseMove |
286 | OnMouseMove = DXDrawMouseMove |
287 | end |
287 | end |
288 | object Lives: TUpDown |
288 | object Lives: TUpDown |
289 | Left = 720 |
289 | Left = 720 |
290 | Top = 360 |
290 | Top = 360 |
291 | Width = 17 |
291 | Width = 17 |
292 | Height = 19 |
292 | Height = 19 |
293 | Min = 1 |
293 | Min = 1 |
294 | Max = 999 |
294 | Max = 999 |
295 | Position = 1 |
295 | Position = 1 |
296 | TabOrder = 11 |
296 | TabOrder = 11 |
297 | OnClick = LivesClick |
297 | OnClick = LivesClick |
298 | OnMouseMove = DXDrawMouseMove |
298 | OnMouseMove = DXDrawMouseMove |
299 | end |
299 | end |
300 | object MainMenu: TMainMenu |
300 | object MainMenu: TMainMenu |
301 | Left = 8 |
301 | Left = 32 |
302 | Top = 8 |
302 | Top = 16 |
303 | object Spiel: TMenuItem |
303 | object Spiel: TMenuItem |
304 | Caption = '&Datei' |
304 | Caption = '&Datei' |
305 | object Level: TMenuItem |
305 | object Level: TMenuItem |
306 | Caption = '&Verwaltung...' |
306 | Caption = '&Verwaltung...' |
307 | ShortCut = 115 |
307 | ShortCut = 115 |
308 | OnClick = LevelClick |
308 | OnClick = LevelClick |
309 | end |
309 | end |
310 | object Quelltext1: TMenuItem |
310 | object Quelltext1: TMenuItem |
311 | Caption = '&Quelltext...' |
311 | Caption = '&Quelltext...' |
312 | ShortCut = 116 |
312 | ShortCut = 116 |
313 | OnClick = Quelltext1Click |
313 | OnClick = Quelltext1Click |
314 | end |
314 | end |
315 | object N1: TMenuItem |
315 | object N1: TMenuItem |
316 | Caption = '-' |
316 | Caption = '-' |
317 | end |
317 | end |
318 | object Neu: TMenuItem |
318 | object Neu: TMenuItem |
319 | Caption = '&Neu' |
319 | Caption = '&Neu' |
320 | ShortCut = 117 |
320 | ShortCut = 117 |
321 | OnClick = NeuClick |
321 | OnClick = NeuClick |
322 | end |
322 | end |
323 | object Spielfelderweitern1: TMenuItem |
323 | object Spielfelderweitern1: TMenuItem |
324 | Caption = 'Leveleigenschaften...' |
324 | Caption = 'Leveleigenschaften...' |
325 | ShortCut = 118 |
325 | ShortCut = 118 |
326 | OnClick = Spielfelderweitern1Click |
326 | OnClick = Spielfelderweitern1Click |
327 | end |
327 | end |
328 | object Leer1: TMenuItem |
328 | object Leer1: TMenuItem |
329 | Caption = '-' |
329 | Caption = '-' |
330 | end |
330 | end |
331 | object Beenden: TMenuItem |
331 | object Beenden: TMenuItem |
332 | Caption = '&Beenden' |
332 | Caption = '&Beenden' |
333 | ShortCut = 32883 |
333 | ShortCut = 32883 |
334 | OnClick = BeendenClick |
334 | OnClick = BeendenClick |
335 | end |
335 | end |
336 | end |
336 | end |
337 | object Hilfe: TMenuItem |
337 | object Hilfe: TMenuItem |
338 | Caption = '&Hilfe' |
338 | Caption = '&Hilfe' |
339 | object Mitarbeiter: TMenuItem |
- | |
340 | Caption = '&Mitwirkende...' |
- | |
341 | ShortCut = 120 |
- | |
342 | OnClick = MitarbeiterClick |
- | |
343 | end |
- | |
344 | object Leer2: TMenuItem |
- | |
345 | Caption = '-' |
- | |
346 | GroupIndex = 1 |
- | |
347 | end |
- | |
348 | object Informationen: TMenuItem |
339 | object Informationen: TMenuItem |
349 | Caption = '&Informationen...' |
340 | Caption = '&Informationen...' |
350 | GroupIndex = 1 |
341 | GroupIndex = 1 |
351 | ShortCut = 121 |
- | |
352 | OnClick = InformationenClick |
342 | OnClick = InformationenClick |
353 | end |
343 | end |
354 | end |
344 | end |
355 | end |
345 | end |
356 | end |
346 | end |