WinFiles.com/InfoMagic-WinFilesDotCom-June1998-Disc2of3-DAMAGED_DISC.iso/games-card/patien20.exe/PATIENCE.EXE/0/RCDATA/TPATFORM/TPATFORM.txt

Text File | 1998-01-12 | 19KB | 850 lines

object PatForm: TPatForm
  Left = 312
  Top = 133
  Width = 647
  Height = 445
  Caption = 'Patience v2.0'
  Color = clGreen
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -16
  Font.Name = 'MS Sans Serif'
  Font.Style = [fsBold]
  Menu = MainMenu1
  OnCreate = FormCreate
  OnDestroy = FormDestroy
  OnMouseDown = FormMouseDown
  OnMouseMove = FormMouseMove
  OnMouseUp = FormMouseUp
  OnPaint = FormPaint
  OnResize = FormResize
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 20
  object AcroImage: TImage
    Tag = 3
    Left = 184
    Top = 24
    Width = 71
    Height = 96
    Picture.Data = {<image000.bmp>}
    Visible = False
  end
  object CowImage: TImage
    Tag = 1
    Left = 24
    Top = 24
    Width = 71
    Height = 96
    Picture.Data = {<image001.bmp>}
    Visible = False
  end
  object FlagImage: TImage
    Tag = 7
    Left = 104
    Top = 128
    Width = 71
    Height = 96
    Picture.Data = {<image002.bmp>}
    Visible = False
  end
  object LaunchImage: TImage
    Tag = 11
    Left = 24
    Top = 232
    Width = 71
    Height = 96
    Picture.Data = {<image003.bmp>}
    Visible = False
  end
  object LipsImage: TImage
    Tag = 4
    Left = 264
    Top = 24
    Width = 71
    Height = 96
    Picture.Data = {<image004.bmp>}
    Visible = False
  end
  object LoveImage: TImage
    Tag = 2
    Left = 104
    Top = 24
    Width = 71
    Height = 96
    Picture.Data = {<image005.bmp>}
    Visible = False
  end
  object Patt1Image: TImage
    Tag = 8
    Left = 184
    Top = 128
    Width = 71
    Height = 96
    Picture.Data = {<image006.bmp>}
    Visible = False
  end
  object Patt2Image: TImage
    Tag = 9
    Left = 264
    Top = 128
    Width = 71
    Height = 96
    Picture.Data = {<image007.bmp>}
    Visible = False
  end
  object SeaHorseImage: TImage
    Tag = 6
    Left = 24
    Top = 128
    Width = 71
    Height = 96
    Picture.Data = {<image008.bmp>}
    Visible = False
  end
  object ShuffleImage: TImage
    Left = 264
    Top = 232
    Width = 71
    Height = 96
    Picture.Data = {<image009.bmp>}
    Visible = False
  end
  object SwansImage: TImage
    Tag = 10
    Left = 344
    Top = 128
    Width = 71
    Height = 96
    Picture.Data = {<image010.bmp>}
    Visible = False
  end
  object ZZTopImage: TImage
    Tag = 5
    Left = 344
    Top = 24
    Width = 71
    Height = 96
    Picture.Data = {<image011.bmp>}
    Visible = False
  end
  object Cards8Image: TImage
    Left = 464
    Top = 72
    Width = 90
    Height = 32
    Picture.Data = {<image012.bmp>}
    Visible = False
  end
  object Cards10Image: TImage
    Left = 464
    Top = 120
    Width = 106
    Height = 40
    Picture.Data = {<image013.bmp>}
    Visible = False
  end
  object Cards12Image: TImage
    Left = 464
    Top = 184
    Width = 122
    Height = 48
    Picture.Data = {<image014.bmp>}
    Visible = False
  end
  object Cards14Image: TImage
    Left = 464
    Top = 256
    Width = 160
    Height = 56
    Picture.Data = {<image015.bmp>}
    Visible = False
  end
  object BeachImage: TImage
    Tag = 12
    Left = 104
    Top = 232
    Width = 71
    Height = 96
    Picture.Data = {<image016.bmp>}
    Visible = False
  end
  object Patt3Image: TImage
    Tag = 13
    Left = 184
    Top = 232
    Width = 71
    Height = 96
    Picture.Data = {<image017.bmp>}
    Visible = False
  end
  object JackClubImg: TImage
    Left = 24
    Top = 336
    Width = 30
    Height = 48
    Picture.Data = {<image018.bmp>}
    Visible = False
  end
  object JackDiamImg: TImage
    Left = 64
    Top = 336
    Width = 30
    Height = 48
    Picture.Data = {<image019.bmp>}
    Visible = False
  end
  object JackHeartImg: TImage
    Left = 104
    Top = 336
    Width = 30
    Height = 48
    Picture.Data = {<image020.bmp>}
    Visible = False
  end
  object JackSpadeImg: TImage
    Left = 144
    Top = 336
    Width = 30
    Height = 48
    Picture.Data = {<image021.bmp>}
    Visible = False
  end
  object QnClubImg: TImage
    Left = 200
    Top = 336
    Width = 30
    Height = 48
    Picture.Data = {<image022.bmp>}
    Visible = False
  end
  object QnDiamImg: TImage
    Left = 240
    Top = 336
    Width = 30
    Height = 48
    Picture.Data = {<image023.bmp>}
    Visible = False
  end
  object QnHeartImg: TImage
    Left = 280
    Top = 336
    Width = 30
    Height = 48
    Picture.Data = {<image024.bmp>}
    Visible = False
  end
  object QnSpadeImg: TImage
    Left = 320
    Top = 336
    Width = 30
    Height = 48
    Picture.Data = {<image025.bmp>}
    Visible = False
  end
  object KgClubImg: TImage
    Left = 384
    Top = 336
    Width = 30
    Height = 48
    Picture.Data = {<image026.bmp>}
    Visible = False
  end
  object KgDiamImg: TImage
    Left = 424
    Top = 336
    Width = 30
    Height = 48
    Picture.Data = {<image027.bmp>}
    Visible = False
  end
  object KgHeartImg: TImage
    Left = 464
    Top = 336
    Width = 30
    Height = 48
    Picture.Data = {<image028.bmp>}
    Visible = False
  end
  object KgSpadeImg: TImage
    Left = 504
    Top = 336
    Width = 30
    Height = 48
    Picture.Data = {<image029.bmp>}
    Visible = False
  end
  object MaskImg: TImage
    Left = 344
    Top = 240
    Width = 55
    Height = 74
    Picture.Data = {<image030.bmp>}
    Visible = False
  end
  object GhostImg: TImage
    Left = 408
    Top = 256
    Width = 32
    Height = 32
    Picture.Data = {<image031.ico>}
    Visible = False
  end
  object MainMenu1: TMainMenu
    Left = 480
    Top = 16
    object GameMItm: TMenuItem
      Caption = '&Game'
      ShortCut = 0
      object NewMItm: TMenuItem
        Caption = '&New Game'
        ShortCut = 16462
        OnClick = NewMItmClick
      end
      object RestartMItm: TMenuItem
        Caption = '&Restart Game'
        ShortCut = 16466
        OnClick = RestartMItmClick
      end
      object QuitMItm: TMenuItem
        Caption = '&Quit'
        ShortCut = 0
        OnClick = QuitMItmClick
      end
    end
    object SelectMItm: TMenuItem
      Caption = '&Select Game'
      ShortCut = 0
      object BakersMItm: TMenuItem
        Caption = 'Baker'#39's Dozen'
        ShortCut = 0
        OnClick = SelectMItmClick
      end
      object CastleMItm: TMenuItem
        Tag = 1
        Caption = 'Beleaguered Castle'
        ShortCut = 0
        OnClick = SelectMItmClick
      end
      object CalculationMItm: TMenuItem
        Tag = 2
        Caption = 'Calculation'
        ShortCut = 0
        OnClick = SelectMItmClick
      end
      object CradleMItm: TMenuItem
        Tag = 3
        Caption = 'Cat'#39's Cradle'
        ShortCut = 0
        OnClick = SelectMItmClick
      end
      object ClubMItm: TMenuItem
        Tag = 4
        Caption = 'Club'
        ShortCut = 0
        OnClick = SelectMItmClick
      end
      object CornersMItm: TMenuItem
        Tag = 5
        Caption = 'Corners'
        ShortCut = 0
        OnClick = SelectMItmClick
      end
      object DemonMItm: TMenuItem
        Tag = 6
        Caption = 'Demon'
        ShortCut = 0
        OnClick = SelectMItmClick
      end
      object FortyMItm: TMenuItem
        Tag = 7
        Caption = 'Forty Thieves'
        ShortCut = 0
        OnClick = SelectMItmClick
      end
      object GapsMItm: TMenuItem
        Tag = 8
        Caption = 'Gaps'
        ShortCut = 0
        OnClick = SelectMItmClick
      end
      object GolfMItm: TMenuItem
        Tag = 9
        Caption = 'Golf'
        ShortCut = 0
        OnClick = SelectMItmClick
      end
      object HeadsMItm: TMenuItem
        Tag = 10
        Caption = 'Heads and Tails'
        ShortCut = 0
        OnClick = SelectMItmClick
      end
      object IdiotMItm: TMenuItem
        Tag = 11
        Caption = 'Idiot'
        ShortCut = 0
        OnClick = SelectMItmClick
      end
      object IndianMItm: TMenuItem
        Tag = 12
        Caption = 'Indian Patience'
        ShortCut = 0
        OnClick = SelectMItmClick
      end
      object InterMItm: TMenuItem
        Tag = 13
        Caption = 'Interregnum'
        ShortCut = 0
        OnClick = SelectMItmClick
      end
      object KlonMItm: TMenuItem
        Tag = 14
        Caption = 'Klondike'
        ShortCut = 0
        OnClick = SelectMItmClick
      end
      object PolyMItm: TMenuItem
        Tag = 15
        Break = mbBarBreak
        Caption = 'Polyandry'
        ShortCut = 0
        OnClick = SelectMItmClick
      end
      object PyramidMItm: TMenuItem
        Tag = 16
        Caption = 'Pyramid'
        ShortCut = 0
        OnClick = SelectMItmClick
      end
      object RenoMItm: TMenuItem
        Tag = 17
        Caption = 'Reno'
        ShortCut = 0
        OnClick = SelectMItmClick
      end
      object ScorpionMItm: TMenuItem
        Tag = 18
        Caption = 'Scorpion'
        ShortCut = 0
        OnClick = SelectMItmClick
      end
      object ScroogeMItm: TMenuItem
        Tag = 19
        Caption = 'Scrooge'
        ShortCut = 0
        OnClick = SelectMItmClick
      end
      object TowersWideMItm: TMenuItem
        Tag = 20
        Caption = 'Seahaven Towers (wide)'
        ShortCut = 0
        OnClick = SelectMItmClick
      end
      object TowersMItm: TMenuItem
        Caption = 'Seahaven Towers (narrow)'
        ShortCut = 0
        OnClick = SelectMItmClick
      end
      object DevilsMItm: TMenuItem
        Tag = 22
        Caption = 'Seven Devils'
        ShortCut = 0
        OnClick = SelectMItmClick
      end
      object ShamMItm: TMenuItem
        Tag = 23
        Caption = 'Shamrocks'
        ShortCut = 0
        OnClick = SelectMItmClick
      end
      object TommyMItm: TMenuItem
        Tag = 24
        Caption = 'Sir Tommy'
        ShortCut = 0
        OnClick = SelectMItmClick
      end
      object SpiderMItm: TMenuItem
        Tag = 25
        Caption = 'Spider'
        ShortCut = 0
        OnClick = SelectMItmClick
      end
      object StrategyMItm: TMenuItem
        Tag = 26
        Caption = 'Strategy'
        ShortCut = 0
        OnClick = SelectMItmClick
      end
      object SultanMItm: TMenuItem
        Tag = 27
        Caption = 'Sultan'
        ShortCut = 0
        OnClick = SelectMItmClick
      end
      object TerraceMItm: TMenuItem
        Tag = 28
        Caption = 'Terrace'
        ShortCut = 0
        OnClick = SelectMItmClick
      end
      object WispMItm: TMenuItem
        Tag = 29
        Caption = 'Will-o-Wisp'
        ShortCut = 0
        OnClick = SelectMItmClick
      end
    end
    object OptionsMItm: TMenuItem
      Caption = '&Options'
      ShortCut = 0
      object UndoMItm: TMenuItem
        Caption = 'Undo'
        ShortCut = 16474
        OnClick = UndoMItmClick
      end
      object RedoMItm: TMenuItem
        Caption = 'Redo'
        ShortCut = 16449
        OnClick = RedoMItmClick
      end
      object StatsMItm: TMenuItem
        Caption = '&Statistics'
        ShortCut = 0
        object ThisStatsMItm: TMenuItem
          Caption = 'For This Game'
          ShortCut = 0
          OnClick = ThisStatsMItmClick
        end
        object AllStatsMItm: TMenuItem
          Caption = 'For All Games'
          ShortCut = 0
          OnClick = AllStatsMItmClick
        end
      end
      object AutoMoveMItm: TMenuItem
        Caption = 'AutoMove Cards'
        ShortCut = 0
        OnClick = AutoMoveMItmClick
      end
      object DesignMItm: TMenuItem
        Caption = '&Card Design'
        ShortCut = 0
        OnClick = DesignMItmClick
      end
      object SetNameMItm: TMenuItem
        Caption = 'Set Player'#39's Name'
        ShortCut = 0
        OnClick = SetNameMItmClick
      end
    end
    object HelpMItm: TMenuItem
      Caption = '&Help'
      ShortCut = 0
      object ContentsMItm: TMenuItem
        Caption = '&Contents'
        ShortCut = 0
        OnClick = ContentsMItmClick
      end
      object HowMItm: TMenuItem
        Caption = '&How to Play...'
        ShortCut = 0
        OnClick = HowMItmClick
      end
      object RegInfoMItm: TMenuItem
        Caption = 'Registration Info'
        ShortCut = 0
        OnClick = RegInfoMItmClick
      end
      object RegMItm: TMenuItem
        Caption = '&Register'
        ShortCut = 0
        OnClick = RegMItmClick
      end
      object KeyMItm: TMenuItem
        Caption = 'Enter Reg &Key'
        ShortCut = 0
        OnClick = KeyMItmClick
      end
      object AboutMItm: TMenuItem
        Caption = '&About Patience'
        ShortCut = 0
        OnClick = AboutMItmClick
      end
    end
    object ToursMItm: TMenuItem
      Caption = 'Tours'
      Enabled = False
      ShortCut = 0
      Visible = False
      object SelectGame2: TMenuItem
        Caption = 'The Cube'
        ShortCut = 0
        object CubeNewMItm: TMenuItem
          Caption = 'New Tour'
          ShortCut = 0
        end
        object CubeCalcMItm: TMenuItem
          Tag = 2
          Caption = 'Calculation'
          ShortCut = 0
        end
        object CubeFortyMItm: TMenuItem
          Tag = 7
          Caption = 'Forty Thieves'
          ShortCut = 0
        end
        object CubeGolfMItm: TMenuItem
          Tag = 9
          Caption = 'Golf'
          ShortCut = 0
        end
        object CubeScorpMItm: TMenuItem
          Tag = 18
          Caption = 'Scorpion'
          ShortCut = 0
        end
        object CubeScroogeMItm: TMenuItem
          Tag = 19
          Caption = 'Scrooge'
          ShortCut = 0
        end
        object CubeTowersMItm: TMenuItem
          Tag = 20
          Caption = 'Seahaven Towers (wide)'
          ShortCut = 0
        end
      end
      object TheCube1: TMenuItem
        Caption = 'The Dirty Dozen'
        ShortCut = 0
        object DDNewMItm: TMenuItem
          Caption = 'New Tour'
          ShortCut = 0
        end
        object DDDozenMItm: TMenuItem
          Caption = 'Baker'#39's Dozen'
          ShortCut = 0
        end
        object DDCastleMItm: TMenuItem
          Tag = 1
          Caption = 'Beleaguered Castle'
          ShortCut = 0
        end
        object DDDemonMItm: TMenuItem
          Tag = 6
          Caption = 'Demon'
          ShortCut = 0
        end
        object DDGapsMItm: TMenuItem
          Tag = 8
          Caption = 'Gaps'
          ShortCut = 0
        end
        object DDGolfMItm: TMenuItem
          Tag = 9
          Caption = 'Golf'
          ShortCut = 0
        end
        object DDIdiotMItm: TMenuItem
          Tag = 11
          Caption = 'Idiot'
          ShortCut = 0
        end
        object DDKlondikeMItm: TMenuItem
          Tag = 14
          Caption = 'Klondike'
          ShortCut = 0
        end
        object DDPolyMItm: TMenuItem
          Tag = 15
          Caption = 'Polyandry'
          ShortCut = 0
        end
        object DDPyramidMItm: TMenuItem
          Tag = 16
          Caption = 'Pyramid'
          ShortCut = 0
        end
        object DDTowersMItm: TMenuItem
          Caption = 'Seahaven Towers (narrow)'
          ShortCut = 0
        end
        object DDSpiderMItm: TMenuItem
          Tag = 25
          Caption = 'Spider'
          ShortCut = 0
        end
        object DDTerraceMItm: TMenuItem
          Tag = 28
          Caption = 'Terrace'
          ShortCut = 0
        end
      end
      object SelectGame1: TMenuItem
        Caption = 'Red Queen'#39's Tour'
        ShortCut = 0
        object RQNewMItm: TMenuItem
          Caption = 'New Tour'
          ShortCut = 0
        end
        object RQDozenMItm: TMenuItem
          Caption = 'Baker'#39's Dozen'
          ShortCut = 0
        end
        object RQCastleMItm: TMenuItem
          Tag = 1
          Caption = 'Beleaguered Castle'
          ShortCut = 0
        end
        object RQCalcMItm: TMenuItem
          Tag = 2
          Caption = 'Calculation'
          ShortCut = 0
        end
        object RQCatsMItm: TMenuItem
          Tag = 3
          Caption = 'Cat'#39's Cradle'
          ShortCut = 0
        end
        object RQClubMItm: TMenuItem
          Tag = 4
          Caption = 'Club'
          ShortCut = 0
        end
        object RQCornersMItm: TMenuItem
          Tag = 5
          Caption = 'Corners'
          ShortCut = 0
        end
        object RQDemonMItm: TMenuItem
          Tag = 6
          Caption = 'Demon'
          ShortCut = 0
        end
        object RQFortyMItm: TMenuItem
          Tag = 7
          Caption = 'Forty Thieves'
          ShortCut = 0
        end
        object RQGapsMItm: TMenuItem
          Tag = 8
          Caption = 'Gaps'
          ShortCut = 0
        end
        object RQGolfMItm: TMenuItem
          Tag = 9
          Caption = 'Golf'
          ShortCut = 0
        end
        object RQTailsMItm: TMenuItem
          Tag = 10
          Caption = 'Heads and Tails'
          ShortCut = 0
        end
        object RQIdiotMItm: TMenuItem
          Tag = 11
          Caption = 'Idiot'
          ShortCut = 0
        end
        object RQIndianMItm: TMenuItem
          Tag = 12
          Caption = 'Indian Patience'
          ShortCut = 0
        end
        object RQInterMItm: TMenuItem
          Tag = 13
          Caption = 'Interregnum'
          ShortCut = 0
        end
        object RQKlondikeMItm: TMenuItem
          Tag = 14
          Caption = 'Klondike'
          ShortCut = 0
        end
        object RQPolyMItm: TMenuItem
          Tag = 15
          Break = mbBarBreak
          Caption = 'Polyandry'
          ShortCut = 0
        end
        object RQPyramidMItm: TMenuItem
          Tag = 16
          Caption = 'Pyramid'
          ShortCut = 0
        end
        object RQRenoMItm: TMenuItem
          Tag = 17
          Caption = 'Reno'
          ShortCut = 0
        end
        object RQScorpMItm: TMenuItem
          Tag = 18
          Caption = 'Scorpion'
          ShortCut = 0
        end
        object RQScroogeMItm: TMenuItem
          Tag = 19
          Caption = 'Scrooge'
          ShortCut = 0
        end
        object RQWTowersMItm: TMenuItem
          Tag = 20
          Caption = 'Seahaven Towers (wide)'
          ShortCut = 0
        end
        object RQNTowersMItm: TMenuItem
          Caption = 'Seahaven Towers (narrow)'
          ShortCut = 0
        end
        object RQSevenMItm: TMenuItem
          Tag = 22
          Caption = 'Seven Devils'
          ShortCut = 0
        end
        object RQShamMItm: TMenuItem
          Tag = 23
          Caption = 'Shamrocks'
          ShortCut = 0
        end
        object RQTommyMItm: TMenuItem
          Tag = 24
          Caption = 'Sir Tommy'
          ShortCut = 0
        end
        object RQSpiderMItm: TMenuItem
          Tag = 25
          Caption = 'Spider'
          ShortCut = 0
        end
        object RQStrategyMItm: TMenuItem
          Tag = 26
          Caption = 'Strategy'
          ShortCut = 0
        end
        object RQSultanMItm: TMenuItem
          Tag = 27
          Caption = 'Sultan'
          ShortCut = 0
        end
        object RQTerraceMItm: TMenuItem
          Tag = 28
          Caption = 'Terrace'
          ShortCut = 0
        end
        object RQWispMItm: TMenuItem
          Tag = 29
          Caption = 'Will-o-Wisp'
          ShortCut = 0
        end
      end
    end
  end
  object Timer: TTimer
    Interval = 50
    OnTimer = TimerTimer
    Left = 528
    Top = 16
  end
end