C!T ROM 21/CTROM21B.mdf/win95/spel/newlines/newlines.exe/0/RCDATA/TF_MAIN/TF_MAIN.txt

Text File | 1999-05-03 | 7.9 KB | 358 lines

object F_Main: TF_Main
  Left = 346
  Top = 127
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'NewLines'
  ClientHeight = 305
  ClientWidth = 567
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -13
  Font.Name = 'System'
  Font.Style = []
  Menu = MM_Menu
  OldCreateOrder = True
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 16
  object I_StoreDesk: TImage
    Left = 408
    Top = 24
    Width = 62
    Height = 62
    Picture.Data = {<image000.bmp>}
    Visible = False
  end
  object I_Tiles: TImage
    Left = 304
    Top = 16
    Width = 91
    Height = 137
    Picture.Data = {<image001.bmp>}
    Visible = False
  end
  object I_Arrows: TImage
    Left = 304
    Top = 168
    Width = 114
    Height = 91
    Picture.Data = {<image002.bmp>}
    Visible = False
  end
  object P_Play: TPanel
    Left = 0
    Top = 0
    Width = 273
    Height = 306
    BevelOuter = bvNone
    TabOrder = 1
    Visible = False
    object P_Panel: TPanel
      Left = 0
      Top = 0
      Width = 273
      Height = 33
      BevelOuter = bvLowered
      TabOrder = 0
      object L_Scores: TLabel
        Left = 16
        Top = 9
        Width = 48
        Height = 16
        Hint = '����'
        Alignment = taCenter
        AutoSize = False
        Caption = '0'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clBlue
        Font.Height = -13
        Font.Name = 'System'
        Font.Style = [fsBold]
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
      end
      object I_Next1: TImage
        Left = 88
        Top = 5
        Width = 22
        Height = 22
        Picture.Data = {<image003.bmp>}
      end
      object I_Next2: TImage
        Left = 120
        Top = 5
        Width = 22
        Height = 22
        Picture.Data = {<image004.bmp>}
      end
      object I_Next3: TImage
        Left = 152
        Top = 5
        Width = 22
        Height = 22
        Picture.Data = {<image005.bmp>}
      end
    end
    object P_Desk: TPanel
      Left = 0
      Top = 32
      Width = 273
      Height = 273
      Caption = 'P_Desk'
      TabOrder = 1
      object I_Desk: TImage
        Left = 5
        Top = 5
        Width = 262
        Height = 262
        Picture.Data = {<image006.bmp>}
        OnMouseMove = I_DeskMouseMove
        OnMouseUp = I_DeskMouseUp
      end
    end
  end
  object P_RegInfo: TPanel
    Left = 272
    Top = 0
    Width = 273
    Height = 305
    HelpContext = 30
    BevelInner = bvRaised
    BevelOuter = bvLowered
    TabOrder = 0
    Visible = False
    object Label1: TLabel
      Left = 50
      Top = 96
      Width = 172
      Height = 16
      Caption = 'The trial period has ended!'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object ProductName: TLabel
      Left = 76
      Top = 18
      Width = 139
      Height = 36
      Caption = 'NewLines'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlue
      Font.Height = -32
      Font.Name = 'Arial'
      Font.Style = []
      ParentFont = False
      IsControl = True
    end
    object Label2: TLabel
      Left = 55
      Top = 136
      Width = 165
      Height = 16
      Caption = 'Please register NewLines.'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object B_InfoExit: TButton
      Left = 56
      Top = 240
      Width = 161
      Height = 33
      HelpContext = 30
      Caption = 'Exit'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 0
      OnClick = B_InfoExitClick
    end
    object Panel2: TPanel
      Left = 10
      Top = 8
      Width = 45
      Height = 45
      BevelInner = bvRaised
      BevelOuter = bvLowered
      TabOrder = 1
      object Image1: TImage
        Left = 6
        Top = 6
        Width = 32
        Height = 32
        Picture.Data = {<image007.ico>}
      end
    end
    object B_InfoReg: TBitBtn
      Left = 56
      Top = 192
      Width = 161
      Height = 33
      HelpContext = 30
      Caption = 'How To Register'
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clBlack
      Font.Height = -13
      Font.Name = 'Arial'
      Font.Style = [fsBold]
      ParentFont = False
      TabOrder = 2
      OnClick = B_InfoRegClick
    end
  end
  object MM_Menu: TMainMenu
    Left = 8
    Top = 48
    object MI_Game: TMenuItem
      Caption = '&Game'
      object MI_GameNew: TMenuItem
        Caption = '&Start'
        HelpContext = 10
        ShortCut = 113
        OnClick = MI_GameNewClick
      end
      object MI_GameScores: TMenuItem
        Caption = '&High Scores ...'
        HelpContext = 10
        OnClick = MI_GameScoresClick
      end
      object N2: TMenuItem
        Caption = '-'
        HelpContext = 10
      end
      object MI_GameLoad: TMenuItem
        Caption = '&Load...'
        HelpContext = 10
        OnClick = MI_GameLoadClick
      end
      object MI_GameSave: TMenuItem
        Caption = '&Save...'
        HelpContext = 10
        OnClick = MI_GameSaveClick
      end
      object N4: TMenuItem
        Caption = '-'
        HelpContext = 10
      end
      object MI_OptionsSound: TMenuItem
        Caption = 'Sound'
        HelpContext = 10
        OnClick = MI_OptionsSoundClick
      end
      object N1: TMenuItem
        Caption = '-'
        HelpContext = 10
      end
      object MI_GameExit: TMenuItem
        Caption = '&Exit'
        HelpContext = 10
        ShortCut = 16472
        OnClick = MI_GameExitClick
      end
    end
    object MI_Play: TMenuItem
      Caption = '&Start!'
      HelpContext = 10
      OnClick = MI_GameNewClick
    end
    object MI_Help: TMenuItem
      Caption = '&Help'
      object MI_HelpCont: TMenuItem
        Caption = '&Contents'
        HelpContext = 10
        ShortCut = 112
        OnClick = MI_HelpContClick
      end
      object N5: TMenuItem
        Caption = '-'
      end
      object MI_HelpReg: TMenuItem
        Caption = '&Enter Registration Code ...'
        HelpContext = 30
        OnClick = MI_HelpRegClick
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object MI_HelpLenaGamesHome: TMenuItem
        Caption = '&Lena Games Home Page'
        HelpContext = 10
        OnClick = MI_HelpLenaGamesHomeClick
      end
      object MI_HelpNewLinesHome: TMenuItem
        Caption = '&NewLines Home Page'
        HelpContext = 10
        OnClick = MI_HelpNewLinesHomeClick
      end
      object N6: TMenuItem
        Caption = '-'
      end
      object MI_HelpCredits: TMenuItem
        Caption = '&Credits...'
        OnClick = MI_HelpCreditsClick
      end
      object MI_HelpSep1: TMenuItem
        Caption = '-'
        HelpContext = 10
      end
      object MI_HelpAbout: TMenuItem
        Caption = '&About ...'
        HelpContext = 10
        OnClick = MI_HelpAboutClick
      end
    end
  end
  object T_GlowTimer: TTimer
    Enabled = False
    Interval = 100
    OnTimer = T_GlowTimerTimer
    Left = 56
    Top = 48
  end
  object WaitTimer: TTimer
    Enabled = False
    Interval = 100
    OnTimer = WaitTimerTimer
    Left = 96
    Top = 48
  end
  object MoveTimer: TTimer
    Enabled = False
    Interval = 50
    OnTimer = MoveTimerTimer
    Left = 136
    Top = 48
  end
  object SD_SaveGame: TSaveDialog
    DefaultExt = 'nls'
    Filter = 'NewLines game|*.nls'
    Options = [ofOverwritePrompt]
    Title = 'Save game'
    Left = 176
    Top = 48
  end
  object OD_OpenGame: TOpenDialog
    DefaultExt = 'nls'
    Filter = 'NewLines game|*.nls'
    Title = 'Load game'
    Left = 224
    Top = 48
  end
end