Subversion Repositories spacemission

Rev

Rev 3 | Rev 6 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

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