WDR Computer Club Digital 1998 March/CC9803-2.BIN/SHARE/95PIONEE/_SETUP.1/Pioneer.exe/0/RCDATA/TFRM_PIONEER/TFRM_PIONEER.txt

Text File | 1998-01-14 | 10KB | 487 lines

object frm_Pioneer: Tfrm_Pioneer
  Left = 132
  Top = 100
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  ClientHeight = 396
  ClientWidth = 597
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  KeyPreview = True
  Menu = MainMenu1
  Position = poScreenCenter
  OnClose = FormClose
  OnCreate = FormCreate
  OnKeyDown = FormKeyDown
  OnKeyPress = FormKeyPress
  OnKeyUp = FormKeyUp
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 16
  object Bevel1: TBevel
    Left = 32
    Top = 32
    Width = 535
    Height = 313
  end
  object Label1: TLabel
    Left = 32
    Top = 9
    Width = 40
    Height = 16
    Hint = 'Number of lives left'
    Caption = 'Lives:'
    ParentShowHint = False
    ShowHint = True
  end
  object lbl_Lives: TLabel
    Left = 80
    Top = 10
    Width = 16
    Height = 16
    Hint = 'Number of lives left'
    Caption = '00'
    ParentShowHint = False
    ShowHint = True
  end
  object Label2: TLabel
    Left = 461
    Top = 9
    Width = 41
    Height = 16
    Hint = 'Score achieved'
    Caption = 'Score:'
    ParentShowHint = False
    ShowHint = True
  end
  object lbl_Score: TLabel
    Left = 503
    Top = 10
    Width = 64
    Height = 16
    Hint = 'Score achieved'
    Alignment = taRightJustify
    Caption = '00000000'
    ParentShowHint = False
    ShowHint = True
  end
  object Label4: TLabel
    Left = 32
    Top = 350
    Width = 60
    Height = 16
    Hint = 'Number of missiles left'
    Caption = 'Missiles:'
    ParentShowHint = False
    ShowHint = True
  end
  object lbl_Missiles: TLabel
    Left = 96
    Top = 350
    Width = 32
    Height = 16
    Hint = 'Number of missiles left'
    Caption = '0000'
    ParentShowHint = False
    ShowHint = True
  end
  object Label5: TLabel
    Left = 496
    Top = 350
    Width = 49
    Height = 16
    Hint = 'Number of magnetic pulse bombs left'
    Caption = 'Pulses:'
    ParentShowHint = False
    ShowHint = True
  end
  object lbl_Pulses: TLabel
    Left = 550
    Top = 350
    Width = 16
    Height = 16
    Hint = 'Number of magnetic pulse bombs left'
    Caption = '00'
    ParentShowHint = False
    ShowHint = True
  end
  object img_WorkShop: TImage
    Left = 39
    Top = 418
    Width = 533
    Height = 311
  end
  object img_Space: TImage
    Left = 520
    Top = 427
    Width = 576
    Height = 1440
    AutoSize = True
    Picture.Data = {<image001.bmp>}
  end
  object img_Pioneer: TImage
    Left = 608
    Top = 10
    Width = 46
    Height = 60
    AutoSize = True
    Picture.Data = {<image002.bmp>}
  end
  object img_Enemy: TImage
    Left = 616
    Top = 8
    Width = 21
    Height = 64
    AutoSize = True
    Picture.Data = {<image003.bmp>}
  end
  object img_PioneerBlown: TImage
    Left = 608
    Top = 76
    Width = 160
    Height = 64
    AutoSize = True
    Picture.Data = {<image004.bmp>}
  end
  object img_EnemyBlown: TImage
    Left = 608
    Top = 144
    Width = 160
    Height = 64
    AutoSize = True
    Picture.Data = {<image005.bmp>}
  end
  object img_Bonus: TImage
    Left = 608
    Top = 215
    Width = 33
    Height = 22
    AutoSize = True
    Picture.Data = {<image006.bmp>}
  end
  object img_Mines: TImage
    Left = 611
    Top = 211
    Width = 40
    Height = 20
    AutoSize = True
    Picture.Data = {<image007.bmp>}
  end
  object img_Message: TImage
    Left = 608
    Top = 280
    Width = 205
    Height = 98
    AutoSize = True
    Picture.Data = {<image008.bmp>}
  end
  object img_Radar: TImage
    Left = 608
    Top = 248
    Width = 22
    Height = 14
    AutoSize = True
    Picture.Data = {<image009.bmp>}
  end
  object img_RadarBlown: TImage
    Left = 608
    Top = 264
    Width = 132
    Height = 14
    AutoSize = True
    Picture.Data = {<image010.bmp>}
  end
  object Label3: TLabel
    Left = 248
    Top = 9
    Width = 53
    Height = 16
    Hint = 'Number of targets (radars) to destroy'
    Caption = 'Targets:'
    ParentShowHint = False
    ShowHint = True
  end
  object lbl_Target: TLabel
    Left = 304
    Top = 10
    Width = 24
    Height = 16
    Hint = 'Number of targets (radars) to destroy'
    Caption = '000'
    ParentShowHint = False
    ShowHint = True
  end
  object img_Lasers: TImage
    Left = 608
    Top = 320
    Width = 26
    Height = 34
    AutoSize = True
    Picture.Data = {<image011.bmp>}
  end
  object img_Torpedo: TImage
    Left = 632
    Top = 320
    Width = 18
    Height = 28
    AutoSize = True
    Picture.Data = {<image012.bmp>}
  end
  object lbl_Level: TLabel
    Left = 297
    Top = 348
    Width = 22
    Height = 46
    Hint = 'Current level'
    Alignment = taRightJustify
    Caption = '0'
    Font.Color = clWindowText
    Font.Height = -40
    Font.Name = 'Arial'
    Font.Style = [fsBold]
    ParentFont = False
    ParentShowHint = False
    ShowHint = True
  end
  object img_Left: TImage
    Left = 616
    Top = 296
    Width = 29
    Height = 46
    AutoSize = True
    Picture.Data = {<image013.bmp>}
  end
  object img_LeftBlown: TImage
    Left = 616
    Top = 328
    Width = 145
    Height = 46
    AutoSize = True
    Picture.Data = {<image014.bmp>}
  end
  object img_Right: TImage
    Left = 608
    Top = 328
    Width = 29
    Height = 46
    AutoSize = True
    Picture.Data = {<image015.bmp>}
  end
  object img_RightBlown: TImage
    Left = 608
    Top = 360
    Width = 145
    Height = 46
    AutoSize = True
    Picture.Data = {<image016.bmp>}
  end
  object img_CrosserLaser: TImage
    Left = 608
    Top = 80
    Width = 14
    Height = 36
    AutoSize = True
    Picture.Data = {<image017.bmp>}
  end
  object img_GameOver: TImage
    Left = 616
    Top = 224
    Width = 192
    Height = 72
    AutoSize = True
    Picture.Data = {<image018.bmp>}
  end
  object img_Shareware: TImage
    Left = 608
    Top = 160
    Width = 191
    Height = 52
    AutoSize = True
    Picture.Data = {<image019.bmp>}
  end
  object img_RegMsg: TImage
    Left = 8
    Top = 424
    Width = 578
    Height = 900
    AutoSize = True
    Picture.Data = {<image020.bmp>}
  end
  object img_Registered: TImage
    Left = 80
    Top = 432
    Width = 543
    Height = 600
    AutoSize = True
    Picture.Data = {<image021.bmp>}
  end
  object MainMenu1: TMainMenu
    object FileMenu: TMenuItem
      Caption = '&File'
      ShortCut = 0
      object mnu_NewGame: TMenuItem
        Caption = '&New Game'
        ShortCut = 0
        OnClick = mnu_NewGameClick
      end
      object N1: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object mnu_PauseGame: TMenuItem
        Caption = '&Pause Game'
        ShortCut = 16464
        OnClick = mnu_PauseGameClick
      end
      object mnu_StopGame: TMenuItem
        Caption = '&Stop Game'
        ShortCut = 0
        OnClick = mnu_StopGameClick
      end
      object N2: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object mnu_ScoreList: TMenuItem
        Caption = 'Score &List...'
        ShortCut = 0
        OnClick = mnu_ScoreListClick
      end
      object N5: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object mnu_Register: TMenuItem
        Caption = '&Register...'
        ShortCut = 0
        OnClick = mnu_RegisterClick
      end
      object N6: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object mnu_SelectMidiFile1: TMenuItem
        Caption = 'Select &Midi File...'
        ShortCut = 0
        OnClick = mnu_SelectMidiFile1Click
      end
      object N7: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object mnu_Exit: TMenuItem
        Caption = 'E&xit'
        ShortCut = 16472
        OnClick = mnu_ExitClick
      end
    end
    object OptionsMenu: TMenuItem
      Caption = '&Options'
      ShortCut = 0
      object mnu_SoundEffects: TMenuItem
        Caption = '&Sound Effects'
        ShortCut = 16467
        OnClick = mnu_SoundEffectsClick
      end
      object mnu_BackgroundMusic1: TMenuItem
        Caption = 'Background &Music'
        ShortCut = 16461
        OnClick = mnu_BackgroundMusic1Click
      end
      object N3: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object mnu_Joystick: TMenuItem
        Caption = '&Joystick'
        ShortCut = 0
        OnClick = mnu_JoystickClick
      end
    end
    object mnu_Level: TMenuItem
      Caption = '&Level'
      ShortCut = 0
      OnClick = mnu_LevelClick
    end
    object HelpMenu: TMenuItem
      Caption = '&Help'
      ShortCut = 0
      object mnu_Contents: TMenuItem
        Caption = '&Contents'
        ShortCut = 112
        OnClick = mnu_ContentsClick
      end
      object mnu_RegInfo: TMenuItem
        Caption = '&Registration Info'
        ShortCut = 0
        OnClick = mnu_RegInfoClick
      end
      object mnu_RegForm: TMenuItem
        Caption = 'Registration &Form'
        ShortCut = 0
        OnClick = mnu_RegFormClick
      end
      object N4: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object mnu_About: TMenuItem
        Caption = '&About...'
        ShortCut = 0
        OnClick = mnu_AboutClick
      end
    end
  end
  object tmr_Main: TTimer
    Enabled = False
    Interval = 100
    OnTimer = tmr_MainTimer
    Top = 32
  end
  object tmr_Joystick: TTimer
    Enabled = False
    Interval = 50
    OnTimer = tmr_JoystickTimer
    Top = 96
  end
  object tmr_Music: TTimer
    Interval = 2000
    OnTimer = tmr_MusicTimer
    Top = 128
  end
  object tmr_Keyboard: TTimer
    Enabled = False
    Interval = 50
    OnTimer = tmr_KeyboardTimer
    Top = 160
  end
  object tmr_Main1: TTimer
    Enabled = False
    Interval = 100
    OnTimer = tmr_Main1Timer
    Top = 64
  end
  object tmr_ShowSpace: TTimer
    Enabled = False
    Interval = 100
    OnTimer = tmr_ShowSpaceTimer
    Top = 192
  end
  object opn_SelectMidi: TOpenDialog
    FileEditStyle = fsEdit
    Filter = 'midi files *.mid; *.midi; *.rmi|*.mid;*.midi;*.rmi'
    Options = [ofReadOnly, ofHideReadOnly, ofPathMustExist, ofFileMustExist]
    Title = 'Select Midi File'
    Top = 224
  end
  object tmr_Paused: TTimer
    Enabled = False
    Interval = 100
    OnTimer = tmr_PausedTimer
    Top = 256
  end
end