Game Zone - 1,000+ Games/GAMEZONE.BIN/Programs/Win/PUZZLE2/PUZZLE$$.EXE/PUZZLE/PUZZLE.EXE/0/RCDATA/TBASEFORM/TBASEFORM.txt

Text File | 1999-06-19 | 8KB | 322 lines

object BaseForm: TBaseForm
  Left = 264
  Top = 135
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'BaseForm'
  ClientHeight = 313
  ClientWidth = 286
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu
  OnActivate = FormActivate
  OnClose = FormClose
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnResize = FormResize
  PixelsPerInch = 96
  TextHeight = 13
  object CompoStatusBar1: TCompoStatusBar
    Left = 0
    Top = 293
    Width = 286
    Height = 20
    Panels = <
      item
        Width = 240
      end
      item
        Text = '34567'
        Width = 50
      end>
    SimplePanel = False
    object ProgressBar1: TProgressBar
      Left = 8
      Top = 6
      Width = 192
      Height = 10
      Min = 0
      Max = 100
      TabOrder = 0
    end
    object PanelProblemsCount: TPanel
      Left = 204
      Top = 6
      Width = 32
      Height = 9
      Alignment = taLeftJustify
      BevelOuter = bvNone
      Caption = '00000'
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ParentFont = False
      TabOrder = 1
    end
  end
  object MainMenu: TMainMenu
    Left = 232
    object MenuGame: TMenuItem
      Caption = '&Game'
      ShortCut = 0
      object MenuUser: TMenuItem
        Caption = '&User'
        ShortCut = 0
        object MenuUserNew: TMenuItem
          Caption = '&New...'
          ShortCut = 0
          OnClick = MenuUserNewClick
        end
        object MenuUserOpen: TMenuItem
          Caption = '&Open...'
          ShortCut = 0
          OnClick = MenuUserOpenClick
        end
        object MenuUserSave: TMenuItem
          Caption = '&Save'
          ShortCut = 0
          OnClick = SaveUser
        end
        object MenuUserSaveAs: TMenuItem
          Caption = 'Save &as...'
          ShortCut = 16467
          OnClick = MenuUserSaveAsClick
        end
        object N10: TMenuItem
          Caption = '-'
          ShortCut = 0
        end
        object MenuUserLink: TMenuItem
          Caption = 'Create &Link...'
          ShortCut = 0
          OnClick = MenuUserLinkClick
        end
      end
      object MenuLesson: TMenuItem
        Caption = '&Lesson'
        ShortCut = 0
        object MenuLessonNew: TMenuItem
          Caption = '&New...'
          ShortCut = 0
          OnClick = MenuLessonNewClick
        end
        object MenuLessonOpen: TMenuItem
          Caption = '&Open...'
          ShortCut = 16463
          OnClick = MenuLessonOpenClick
        end
        object MenuLessonMix: TMenuItem
          Caption = '&Mix...'
          ShortCut = 16461
          OnClick = MenuLessonMixClick
        end
      end
      object N1: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object MenuNewGame: TMenuItem
        Caption = 'New &Game'
        ShortCut = 113
        OnClick = MenuNewGameClick
      end
      object MenuPause: TMenuItem
        Caption = '&Pause'
        Enabled = False
        ShortCut = 114
        OnClick = MenuPauseClick
      end
      object MenuOptions: TMenuItem
        Caption = '&Options...'
        ShortCut = 0
        OnClick = MenuOptionsClick
      end
      object MenuDirection: TMenuItem
        Caption = 'Direction'
        ShortCut = 16452
        Visible = False
        OnClick = MenuDirectionClick
      end
      object MenuStayOnTop: TMenuItem
        Caption = 'Stay OnTop'
        ShortCut = 16468
        Visible = False
        OnClick = StayOnTopClick
      end
      object MenuKnowledge: TMenuItem
        Caption = '&Knowledge...'
        ShortCut = 16459
        OnClick = MenuKnowledgeClick
      end
      object MenuHighscore: TMenuItem
        Caption = '&Higshscore...'
        ShortCut = 0
        OnClick = MenuHighscoreClick
      end
      object N5: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object MenuLanguage: TMenuItem
        Caption = '&Lingua franca'
        ShortCut = 0
        object MenuSaveLanguage: TMenuItem
          Caption = '&Save'
          ShortCut = 0
          OnClick = MenuSaveLanguageClick
        end
      end
      object N4: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object MenuExit: TMenuItem
        Caption = '&Exit'
        ShortCut = 0
        OnClick = MenuExitClick
      end
    end
    object HelpMenu: TMenuItem
      Caption = '&?'
      ShortCut = 0
      object MenuTopics: TMenuItem
        Caption = '&Topics'
        ShortCut = 112
        OnClick = MenuHelpAndOnlineClick
      end
      object MenuSteps: TMenuItem
        Caption = '&Short Instruction'
        ShortCut = 0
        OnClick = MenuHelpAndOnlineClick
      end
      object MenuProducts: TMenuItem
        Caption = 'I want &more Games'
        ShortCut = 0
        OnClick = MenuHelpAndOnlineClick
      end
      object N2: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object MenuOnline: TMenuItem
        Caption = '&Online Service'
        ShortCut = 0
        object MenuHomepage: TMenuItem
          Caption = '&Homepage...'
          ShortCut = 0
          OnClick = MenuHelpAndOnlineClick
        end
        object N6: TMenuItem
          Caption = '-'
          ShortCut = 0
        end
        object MenuOrder: TMenuItem
          Caption = 'Online &Order Service...'
          ShortCut = 0
          OnClick = MenuHelpAndOnlineClick
        end
        object MenuUpdate: TMenuItem
          Caption = '&Update Service...'
          ShortCut = 0
          OnClick = MenuHelpAndOnlineClick
        end
        object N7: TMenuItem
          Caption = '-'
          ShortCut = 0
        end
        object MenuBugrep: TMenuItem
          Caption = 'Report a &Bug...'
          ShortCut = 0
          OnClick = MenuHelpAndOnlineClick
        end
        object MenuFeature: TMenuItem
          Caption = 'Suggest a &Feature...'
          ShortCut = 0
          OnClick = MenuHelpAndOnlineClick
        end
        object N9: TMenuItem
          Caption = '-'
          ShortCut = 0
        end
        object MenuTips: TMenuItem
          Caption = '&Learntips'
          ShortCut = 0
          OnClick = MenuHelpAndOnlineClick
        end
        object MenuHolly: TMenuItem
          Caption = '&Travelling'
          ShortCut = 0
          OnClick = MenuHelpAndOnlineClick
        end
        object N8: TMenuItem
          Caption = '-'
          ShortCut = 0
        end
        object MenuNewsletter: TMenuItem
          Caption = 'Subscribe a free &Newsletter...'
          ShortCut = 0
          OnClick = MenuHelpAndOnlineClick
        end
      end
      object MenuRegister: TMenuItem
        Caption = '&Register...'
        ShortCut = 0
        OnClick = MenuRegisterClick
      end
      object N3: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object MenuAbout: TMenuItem
        Caption = '&About...'
        ShortCut = 0
        OnClick = HelpAbout
      end
    end
  end
  object OpenDialog: TOpenDialog
    FileEditStyle = fsEdit
    Filter =
      'Lesson (*.rtf;*.txt;*.vok)|*.rtf;*.txt;*.vok|Rich Text Lesson (*' +
      '.rtf)|*.rtf|Text Lesson (*.txt)|*.txt|vokki Lesson (*.vok)|*.vok'
    Options = [ofAllowMultiSelect]
    Title = 'Open'
    Left = 198
    Top = 65535
  end
  object TimerNextProblem: TTimer
    Enabled = False
    Interval = 1500
    Left = 258
    Top = 2
  end
  object SaveDialog: TSaveDialog
    FileEditStyle = fsEdit
    Filter =
      'Lesson (*.rtf;*.txt;*.vok)|*.rtf;*.txt;*.vok|Rich Text Lesson (*' +
      '.rtf)|*.rtf|Text Lesson (*.txt)|*.txt|vokki Lesson (*.vok)|*.vok'
    Title = 'Save user as'
    Left = 170
    Top = 2
  end
  object MultiLanguage: TMultiLanguage
    Options = []
    Left = 144
  end
  object OpenUserDialog: TOpenDialog
    FileEditStyle = fsEdit
    Filter = 'User (*.usm;*.usf)|*.us*'
    Left = 200
    Top = 32
  end
  object SaveUserDialog: TSaveDialog
    FileEditStyle = fsEdit
    Filter = 'User (*.usm;*.usf)|*.us*'
    Left = 168
    Top = 32
  end
end