Subversion Repositories spacemission

Rev

Rev 4 | Go to most recent revision | Blame | Compare with Previous | Last modification | View Log | RSS feed

object MainForm: TMainForm
  Left = 217
  Top = 117
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Leveleditor'
  ClientHeight = 558
  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 = 539
    Width = 753
    Height = 19
    Panels = <>
    SimpleText = 
      ' Zeigen Sie mit dem Mauszeiger auf eine Einheit, um deren Eigens' +
      'chaften anzuzeigen...'
    OnMouseMove = DXDrawMouseMove
  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