Software USA 4 #8/Software USA Volume 4.08.iso/pc/games/fructus/run/fructus.exe/0/RCDATA/TTFRUCTUSMAINWINDOW/TTFRUCTUSMAINWINDOW.txt

Text File | 1998-12-20 | 3.7 KB | 197 lines

object TFructusMainWindow: TTFructusMainWindow
  Left = 231
  Top = 101
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = '- Fructus for Windows 95 -'
  ClientHeight = 414
  ClientWidth = 279
  Color = clSilver
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu1
  Position = poScreenCenter
  Scaled = False
  OnCloseQuery = Bye
  PixelsPerInch = 96
  TextHeight = 13
  object Image1: TImage
    Left = 145
    Top = 6
    Width = 134
    Height = 165
    Picture.Data = {<image000.bmp>}
  end
  object Bevel2: TBevel
    Left = 7
    Top = 5
    Width = 130
    Height = 402
  end
  object Bevel1: TBevel
    Left = 144
    Top = 175
    Width = 129
    Height = 233
  end
  object Label1: TLabel
    Left = 152
    Top = 184
    Width = 65
    Height = 13
    Caption = 'Current Score'
  end
  object Label2: TLabel
    Left = 152
    Top = 232
    Width = 66
    Height = 13
    Caption = 'Played blocks'
  end
  object Label5: TLabel
    Left = 216
    Top = 258
    Width = 51
    Height = 13
    Alignment = taCenter
    Caption = 'Next block'
  end
  object Label3: TLabel
    Left = 152
    Top = 280
    Width = 48
    Height = 13
    Caption = 'Eliminated'
  end
  object Label4: TLabel
    Left = 152
    Top = 328
    Width = 26
    Height = 13
    Caption = 'Level'
  end
  object Image3: TImage
    Left = 208
    Top = 352
    Width = 32
    Height = 32
    Picture.Data = {<image001.ico>}
  end
  object Image2: TImage
    Left = 236
    Top = 208
    Width = 33
    Height = 41
    Picture.Data = {<image002.ico>}
  end
  object Bevel4: TBevel
    Left = 152
    Top = 200
    Width = 82
    Height = 26
  end
  object Bevel5: TBevel
    Left = 152
    Top = 248
    Width = 50
    Height = 26
  end
  object Bevel6: TBevel
    Left = 152
    Top = 296
    Width = 50
    Height = 26
  end
  object Bevel7: TBevel
    Left = 152
    Top = 344
    Width = 34
    Height = 26
  end
  object Bevel8: TBevel
    Left = 232
    Top = 285
    Width = 18
    Height = 50
  end
  object MediaPlayer1: TMediaPlayer
    Left = 16
    Top = 8
    Width = 29
    Height = 30
    ColoredButtons = []
    EnabledButtons = []
    VisibleButtons = []
    FileName = 'Fructus_#1.mid'
    Visible = False
    TabOrder = 0
    OnNotify = RepeatPlaying
  end
  object MainMenu1: TMainMenu
    Left = 8
    Top = 65504
    object Game1: TMenuItem
      Caption = '&Game'
      object Best1: TMenuItem
        Caption = '&Best'
        ShortCut = 115
        OnClick = Best1Click
      end
      object Options: TMenuItem
        Caption = '&Options'
        ShortCut = 117
        OnClick = OptionsClick
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object Exit2: TMenuItem
        Caption = '&Exit'
        ShortCut = 32856
        OnClick = Exit2Click
      end
    end
    object New1: TMenuItem
      Caption = '&New'
      ShortCut = 113
      OnClick = New1Click
    end
    object Pause1: TMenuItem
      Caption = '&Pause'
      ShortCut = 114
      OnClick = Pause1Click
    end
    object Help1: TMenuItem
      Caption = '&?'
      object Index1: TMenuItem
        Caption = '&Index'
        ShortCut = 112
        OnClick = Index1Click
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object About1: TMenuItem
        Caption = '&About'
        ShortCut = 16449
        OnClick = About1Click
      end
    end
  end
  object Joystick1: TJoystick
    Enabled = True
    GamePort = One
    RepeatPosition = True
    RepeatButton1 = False
    RepeatButton2 = False
    RepeatButton3 = False
    RepeatButton4 = False
    OnJoyMove = JoyStickMove
    Left = 48
    Top = 8
  end
end