Subversion Repositories spacemission

Rev

Rev 12 | Rev 24 | 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'
15 daniel-mar 7 
  ClientHeight = 519
8 
  ClientWidth = 749
1 daniel-mar 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
12 daniel-mar 17 
  Position = poScreenCenter
1 daniel-mar 18 
  Scaled = False
19 
  OnClose = FormClose
20 
  OnCloseQuery = FormCloseQuery
21 
  OnCreate = FormCreate
22 
  OnDestroy = FormDestroy
23 
  OnMouseMove = DXDrawMouseMove
24 
  OnShow = FormShow
25 
  TextHeight = 13
26 
  object Bevel1: TBevel
27 
    Left = 648
28 
    Top = 200
29 
    Width = 97
30 
    Height = 2
31 
    Shape = bsBottomLine
32 
  end
33 
  object Bevel2: TBevel
34 
    Left = 648
35 
    Top = 392
36 
    Width = 97
37 
    Height = 2
38 
    Shape = bsBottomLine
39 
  end
40 
  object SelLabel: TLabel
41 
    Left = 648
42 
    Top = 0
43 
    Width = 43
44 
    Height = 13
45 
    Caption = 'Auswahl:'
46 
    Font.Charset = DEFAULT_CHARSET
47 
    Font.Color = clWindowText
48 
    Font.Height = -12
49 
    Font.Name = 'MS Sans Serif'
50 
    Font.Style = [fsUnderline]
51 
    ParentFont = False
52 
    OnMouseMove = DXDrawMouseMove
53 
  end
54 
  object Bevel3: TBevel
55 
    Left = 648
56 
    Top = 320
57 
    Width = 97
58 
    Height = 2
59 
    Shape = bsBottomLine
60 
  end
61 
  object SLabel1a: TLabel
62 
    Left = 652
63 
    Top = 424
64 
    Width = 47
65 
    Height = 13
66 
    Caption = 'Einheiten:'
67 
    OnMouseMove = DXDrawMouseMove
68 
  end
69 
  object SLabel2a: TLabel
70 
    Left = 652
71 
    Top = 440
72 
    Width = 26
73 
    Height = 13
74 
    Caption = 'Boss:'
75 
    OnMouseMove = DXDrawMouseMove
76 
  end
77 
  object SLabel1b: TLabel
78 
    Left = 720
79 
    Top = 424
80 
    Width = 6
81 
    Height = 13
82 
    Caption = '0'
83 
    OnMouseMove = DXDrawMouseMove
84 
  end
85 
  object SLabel2b: TLabel
86 
    Left = 720
87 
    Top = 440
88 
    Width = 22
89 
    Height = 13
90 
    Caption = 'Nein'
91 
    OnMouseMove = DXDrawMouseMove
92 
  end
93 
  object SLabel0: TLabel
94 
    Left = 648
95 
    Top = 400
96 
    Width = 84
97 
    Height = 13
98 
    Caption = 'Level-Information:'
99 
    Font.Charset = DEFAULT_CHARSET
100 
    Font.Color = clWindowText
101 
    Font.Height = -12
102 
    Font.Name = 'MS Sans Serif'
103 
    Font.Style = [fsUnderline]
104 
    ParentFont = False
105 
    OnMouseMove = DXDrawMouseMove
106 
  end
107 
  object SLabel3a: TLabel
108 
    Left = 652
109 
    Top = 456
110 
    Width = 32
111 
    Height = 13
112 
    Caption = 'Gr'#246#223'e:'
113 
    OnMouseMove = DXDrawMouseMove
114 
  end
115 
  object SLabel3b: TLabel
116 
    Left = 720
117 
    Top = 456
118 
    Width = 24
119 
    Height = 13
120 
    Caption = '1200'
121 
    OnMouseMove = DXDrawMouseMove
122 
  end
123 
  object SLabel4a: TLabel
124 
    Left = 652
125 
    Top = 480
126 
    Width = 60
127 
    Height = 13
128 
    Caption = 'Gespeichert:'
129 
    Font.Charset = DEFAULT_CHARSET
130 
    Font.Color = 150
131 
    Font.Height = -12
132 
    Font.Name = 'MS Sans Serif'
133 
    Font.Style = []
134 
    ParentFont = False
135 
    OnMouseMove = DXDrawMouseMove
136 
  end
137 
  object SLabel4b: TLabel
138 
    Left = 720
139 
    Top = 480
140 
    Width = 22
141 
    Height = 13
142 
    Caption = 'Nein'
143 
    Font.Charset = DEFAULT_CHARSET
144 
    Font.Color = 150
145 
    Font.Height = -12
146 
    Font.Name = 'MS Sans Serif'
147 
    Font.Style = []
148 
    ParentFont = False
149 
    OnMouseMove = DXDrawMouseMove
150 
  end
151 
  object LivesLabel: TLabel
152 
    Left = 648
153 
    Top = 332
154 
    Width = 33
155 
    Height = 13
156 
    Caption = 'Leben:'
157 
    Font.Charset = DEFAULT_CHARSET
158 
    Font.Color = clWindowText
159 
    Font.Height = -12
160 
    Font.Name = 'MS Sans Serif'
161 
    Font.Style = [fsUnderline]
162 
    ParentFont = False
163 
    OnMouseMove = DXDrawMouseMove
164 
  end
165 
  object Enemy1: TRadioButton
166 
    Left = 652
167 
    Top = 24
4 daniel-mar 168 
    Width = 93
1 daniel-mar 169 
    Height = 17
4 daniel-mar 170 
    Caption = 'Angreifer Typ 1'
1 daniel-mar 171 
    Checked = True
172 
    TabOrder = 0
173 
    TabStop = True
174 
    OnClick = EnemyClick
175 
    OnMouseMove = DXDrawMouseMove
176 
  end
177 
  object Enemy2: TRadioButton
178 
    Left = 652
179 
    Top = 48
4 daniel-mar 180 
    Width = 93
1 daniel-mar 181 
    Height = 17
4 daniel-mar 182 
    Caption = 'Angreifer Typ 2'
1 daniel-mar 183 
    TabOrder = 1
184 
    OnClick = EnemyClick
185 
    OnMouseMove = DXDrawMouseMove
186 
  end
187 
  object Enemy3: TRadioButton
188 
    Left = 652
189 
    Top = 72
4 daniel-mar 190 
    Width = 93
1 daniel-mar 191 
    Height = 17
4 daniel-mar 192 
    Caption = 'Angreifer Typ 3'
1 daniel-mar 193 
    TabOrder = 2
194 
    OnClick = EnemyClick
195 
    OnMouseMove = DXDrawMouseMove
196 
  end
197 
  object Enemy4: TRadioButton
198 
    Left = 652
199 
    Top = 96
200 
    Width = 55
201 
    Height = 17
202 
    Caption = 'Meteor'
203 
    TabOrder = 3
204 
    OnClick = EnemyClick
205 
    OnMouseMove = DXDrawMouseMove
206 
  end
207 
  object Enemy5: TRadioButton
208 
    Left = 652
209 
    Top = 120
210 
    Width = 44
211 
    Height = 17
212 
    Caption = 'UFO'
213 
    TabOrder = 4
214 
    OnClick = EnemyClick
215 
    OnMouseMove = DXDrawMouseMove
216 
  end
217 
  object Enemy6: TRadioButton
218 
    Left = 652
219 
    Top = 144
220 
    Width = 53
221 
    Height = 17
222 
    Caption = 'UFO 2'
223 
    TabOrder = 5
224 
    OnClick = EnemyClick
225 
    OnMouseMove = DXDrawMouseMove
226 
  end
227 
  object Enemy7: TRadioButton
228 
    Left = 652
229 
    Top = 168
230 
    Width = 45
231 
    Height = 17
232 
    Caption = 'Boss'
233 
    TabOrder = 6
234 
    OnClick = EnemyClick
235 
    OnMouseMove = DXDrawMouseMove
236 
  end
237 
  object ScrollBar: TScrollBar
238 
    Left = 0
239 
    Top = 480
240 
    Width = 640
241 
    Height = 17
242 
    Max = 1200
243 
    PageSize = 0
244 
    TabOrder = 7
245 
    OnScroll = ScrollBarScroll
246 
  end
247 
  object SelPanel: TPanel
248 
    Left = 652
249 
    Top = 216
250 
    Width = 89
251 
    Height = 89
252 
    Color = clWhite
253 
    TabOrder = 8
254 
    OnMouseMove = DXDrawMouseMove
255 
    object Image1: TImage
256 
      Left = 1
257 
      Top = 1
258 
      Width = 610
259 
      Height = 88
260 
      AutoSize = True
261 
      OnMouseMove = DXDrawMouseMove
262 
    end
263 
  end
264 
  object StatusBar: TStatusBar
265 
    Left = 0
15 daniel-mar 266 
    Top = 500
267 
    Width = 749
1 daniel-mar 268 
    Height = 19
269 
    Panels = <>
270 
    SimpleText =
271 
      ' Zeigen Sie mit dem Mauszeiger auf eine Einheit, um deren Eigens' +
272 
      'chaften anzuzeigen...'
273 
    OnMouseMove = DXDrawMouseMove
15 daniel-mar 274 
    ExplicitTop = 499
275 
    ExplicitWidth = 745
1 daniel-mar 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