Fun CD 26/OTACD26.ISO/archive/etc/jessie01/jessie01.lzh/JESSICA.EXE/0/RCDATA/TFRMMAIN/TFRMMAIN.txt

Text File | 1999-12-22 | 8KB | 336 lines

object frmMain: TfrmMain
  Left = 86
  Top = 274
  BorderIcons = [biSystemMenu, biMinimize]
  BorderStyle = bsSingle
  Caption = 'Jessica Plus'
  ClientHeight = 352
  ClientWidth = 571
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -12
  Font.Name = 'ｿｽlｿｽr ｿｽoｿｽSｿｽVｿｽbｿｽN'
  Font.Style = []
  Icon.Data = {<image000.ico>}
  Menu = mnuMain
  OldCreateOrder = False
  Position = poScreenCenter
  Scaled = False
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  PixelsPerInch = 96
  TextHeight = 12
  object imgMain: TImage
    Left = 0
    Top = 0
    Width = 185
    Height = 89
    PopupMenu = PopupMenu
    OnMouseDown = imgMainMouseDown
  end
  object imgBack: TImage
    Left = 112
    Top = 144
    Width = 177
    Height = 81
    Picture.Data = {<image001.bmp>}
    Visible = False
  end
  object Label1: TLabel
    Left = 0
    Top = 232
    Width = 76
    Height = 12
    Caption = 'Debug Window.'
    Color = clAqua
    ParentColor = False
    Visible = False
  end
  object Label2: TLabel
    Left = 56
    Top = 192
    Width = 33
    Height = 12
    Caption = 'Label2'
    Visible = False
  end
  object Label3: TLabel
    Left = 56
    Top = 176
    Width = 33
    Height = 12
    Caption = 'Label3'
    Color = clFuchsia
    ParentColor = False
    Visible = False
  end
  object Button2: TButton
    Left = 192
    Top = 104
    Width = 57
    Height = 25
    Caption = 'Debug'
    TabOrder = 0
    Visible = False
    OnClick = Button2Click
  end
  object StatusBar: TStatusBar
    Left = 0
    Top = 333
    Width = 571
    Height = 19
    Panels = <>
    SimplePanel = True
    SizeGrip = False
  end
  object mnuMain: TMainMenu
    Left = 248
    Top = 8
    object mnuGame: TMenuItem
      Caption = '&Game'
      object mnuGameStart: TMenuItem
        Caption = '&Start'
        OnClick = mnuGameStartClick
      end
      object mnuGameOpen: TMenuItem
        Caption = '&Open...'
        OnClick = mnuGameOpenClick
      end
      object N3: TMenuItem
        Caption = '-'
      end
      object mnuGameOption: TMenuItem
        Caption = 'Sou&nd'
        object mnuGameOptionMidi: TMenuItem
          Caption = '&Midi'
          Visible = False
        end
        object mnuGameOptionSounds: TMenuItem
          Caption = '&Sounds'
          Checked = True
          OnClick = mnuGameOptionSoundsClick
        end
        object mnuGameOptionVoices: TMenuItem
          Caption = '&Voices'
          Checked = True
          OnClick = mnuGameOptionVoicesClick
        end
      end
      object mnuGameAssistance: TMenuItem
        Caption = '&Assistance'
        object mnuAssistanceNot: TMenuItem
          Caption = 'Not Use'
          Checked = True
          GroupIndex = 1
          RadioItem = True
          OnClick = mnuAssistanceSelect
        end
        object mnuAssistanceCorrect: TMenuItem
          Tag = 1
          Caption = '&Correct'
          GroupIndex = 1
          RadioItem = True
          OnClick = mnuAssistanceSelect
        end
        object mnuAssistanceIncorrect: TMenuItem
          Tag = 2
          Caption = '&Incorrect'
          GroupIndex = 1
          RadioItem = True
          OnClick = mnuAssistanceSelect
        end
      end
      object mnuExample: TMenuItem
        Caption = '&Example'
        OnClick = mnuExampleClick
      end
      object mnuGameDifficulty: TMenuItem
        Caption = '&Difficulty'
        object mnuGameD3: TMenuItem
          Tag = 3
          Caption = ' &3 x 3'
          Checked = True
          GroupIndex = 2
          RadioItem = True
          OnClick = mnuDifficultySelectClick
        end
        object mnuGameD4: TMenuItem
          Tag = 4
          Caption = ' &4 x 4'
          GroupIndex = 2
          RadioItem = True
          OnClick = mnuDifficultySelectClick
        end
        object mnuGameD5: TMenuItem
          Tag = 5
          Caption = ' &5 x 5'
          GroupIndex = 2
          RadioItem = True
          OnClick = mnuDifficultySelectClick
        end
        object mnuGameD6: TMenuItem
          Tag = 6
          Caption = ' &6 x 6'
          GroupIndex = 2
          RadioItem = True
          OnClick = mnuDifficultySelectClick
        end
        object mnuGameD7: TMenuItem
          Tag = 7
          Caption = ' &7 x 7'
          GroupIndex = 2
          RadioItem = True
          OnClick = mnuDifficultySelectClick
        end
        object mnuGameD8: TMenuItem
          Tag = 8
          Caption = ' &8 x 8'
          GroupIndex = 2
          RadioItem = True
          OnClick = mnuDifficultySelectClick
        end
        object mnuGameD9: TMenuItem
          Tag = 9
          Caption = ' &9 x 9'
          GroupIndex = 2
          RadioItem = True
          OnClick = mnuDifficultySelectClick
        end
        object mnuGameD10: TMenuItem
          Tag = 10
          Caption = '1&0 x 10'
          GroupIndex = 2
          RadioItem = True
          OnClick = mnuDifficultySelectClick
        end
        object mnuGameD15: TMenuItem
          Tag = 15
          Caption = '15 &x 15'
          GroupIndex = 2
          RadioItem = True
          OnClick = mnuDifficultySelectClick
        end
        object mnuGameD20: TMenuItem
          Tag = 20
          Caption = '&20 x 20'
          GroupIndex = 2
          RadioItem = True
          OnClick = mnuDifficultySelectClick
        end
      end
      object N4: TMenuItem
        Caption = '-'
      end
      object mnuGameLoadState: TMenuItem
        Caption = '&Load State...'
        Enabled = False
        Visible = False
      end
      object mnuGameSaveState: TMenuItem
        Caption = 'Sa&ve State...'
        Enabled = False
        Visible = False
      end
      object N5: TMenuItem
        Caption = '-'
        Visible = False
      end
      object mnuGameExit: TMenuItem
        Caption = 'E&xit'
        OnClick = mnuGameExitClick
      end
    end
    object mnuAlbum: TMenuItem
      Caption = '&Album'
      Enabled = False
      Visible = False
      object mnuAlbumAdd: TMenuItem
        Caption = 'Add Album'
      end
      object mnuAlbumEdit: TMenuItem
        Caption = '&Edit Album...'
      end
      object N2: TMenuItem
        Caption = '-'
      end
      object mnuAlbumItems: TMenuItem
        Caption = 'Items1'
      end
    end
    object mnuHelp: TMenuItem
      Caption = '&Help'
      object mnuHelpIndex: TMenuItem
        Caption = '&ReadMe'
        ShortCut = 112
        OnClick = mnuHelpIndexClick
      end
      object N6: TMenuItem
        Caption = '-'
      end
      object menuHelpLanguage: TMenuItem
        Caption = '&Language'
        Visible = False
        object menuHelpLanguageEnglish: TMenuItem
          Caption = '&English'
          Checked = True
          GroupIndex = 5
          RadioItem = True
          OnClick = menuHelpLanguageEnglishClick
        end
        object menuHelpLanguageJapanese: TMenuItem
          Caption = '&Japanese'
          GroupIndex = 5
          RadioItem = True
          OnClick = menuHelpLanguageJapaneseClick
        end
      end
      object N1: TMenuItem
        Caption = '-'
        Visible = False
      end
      object mnuVersion: TMenuItem
        Caption = '&About Jessica...'
        OnClick = mnuVersionClick
      end
    end
  end
  object SaveDialog: TSaveDialog
    Left = 248
    Top = 56
  end
  object OpenDialog1: TOpenDialog
    Filter =
      'Supported Image|*.jpg; *.jpeg; *.jpe; *.bmp|JPEG Image( *.jpg; *' +
      '.jpeg; *jpe)|*.jpg;*.jpeg;*.jpe|Bitmap Image( *.bmp)|*.bmp'
    Options = [ofHideReadOnly, ofPathMustExist, ofFileMustExist, ofEnableSizing]
    Left = 312
    Top = 56
  end
  object PopupMenu: TPopupMenu
    Left = 312
    Top = 8
    object popNotUse: TMenuItem
      Caption = '&Not Use'
      Checked = True
      GroupIndex = 9
      RadioItem = True
      OnClick = mnuAssistanceSelect
    end
    object popCorrect: TMenuItem
      Tag = 1
      Caption = 'Correct'
      GroupIndex = 9
      RadioItem = True
      OnClick = mnuAssistanceSelect
    end
    object popIncorrect: TMenuItem
      Tag = 2
      Caption = '&Incorrect'
      GroupIndex = 9
      RadioItem = True
      OnClick = mnuAssistanceSelect
    end
  end
end