100 Great Games for Windows 98/TOP100WIN98.iso/100win98/Install/Apsquare/32psqr11.exe/APSquare.exe/0/RCDATA/TMAINFORM/TMAINFORM.txt

Text File | 1998-04-27 | 13KB | 579 lines

object MainForm: TMainForm
  Left = 145
  Top = 39
  HelpContext = 10
  BorderIcons = [biSystemMenu]
  BorderStyle = bsSingle
  Caption = 'Poker Squares'
  ClientHeight = 429
  ClientWidth = 531
  Color = clAppWorkSpace
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  Menu = MainMenu
  Position = poScreenCenter
  OnClose = FormClose
  OnShow = SetControls
  PixelsPerInch = 96
  TextHeight = 13
  object PnNextCard: TIndentPanel
    Left = 55
    Top = 281
    Width = 83
    Height = 113
    TabOrder = 0
    object LbNextCard: TSWShadowLabel
      Left = 5
      Top = 5
      Width = 73
      Height = 14
      Alignment = taCenter
      Align = alTop
      Caption = 'Next Card'
    end
  end
  object PnScores: TIndentPanel
    Left = 8
    Top = 4
    Width = 176
    Height = 272
    TabOrder = 1
    object LbHScoreA: TSWShadowLabel
      Left = 5
      Top = 5
      Width = 166
      Height = 14
      Alignment = taCenter
      Align = alTop
      Caption = 'Scores Across'
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsUnderline]
      ParentFont = False
    end
    object LbHScoreD: TSWShadowLabel
      Left = 5
      Top = 101
      Width = 166
      Height = 14
      Alignment = taCenter
      Align = alTop
      Caption = 'Scores Down'
    end
    object LbScoreT: TSWShadowLabel
      Left = 5
      Top = 197
      Width = 166
      Height = 14
      Alignment = taCenter
      Align = alTop
      Caption = 'Total Score'
    end
    object BrTotal: TSWShadowLabel
      Left = 72
      Top = 213
      Width = 32
      Height = 21
      Alignment = taCenter
      AutoSize = False
      Caption = '0'
      Font.Color = clBlue
      Font.Height = -16
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object SbPoints: TSpeedButton
      Left = 25
      Top = 237
      Width = 126
      Height = 25
      Caption = 'Show Scoring Values'
      OnClick = SbPointsClick
    end
    object PnScoreA: TPanel
      Left = 5
      Top = 19
      Width = 166
      Height = 82
      Align = alTop
      TabOrder = 0
      object BrScoreA1: TLabel
        Left = 147
        Top = 5
        Width = 15
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = '0'
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object BrScoreA2: TLabel
        Left = 147
        Top = 20
        Width = 15
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = '0'
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object BrScoreA3: TLabel
        Left = 147
        Top = 35
        Width = 15
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = '0'
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object BrScoreA4: TLabel
        Left = 147
        Top = 50
        Width = 15
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = '0'
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object BrScoreA5: TLabel
        Left = 147
        Top = 65
        Width = 15
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = '0'
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object LbRow1: TLabel
        Left = 5
        Top = 5
        Width = 31
        Height = 13
        Caption = 'Row 1'
      end
      object LbRow2: TLabel
        Left = 5
        Top = 20
        Width = 31
        Height = 13
        Caption = 'Row 2'
      end
      object LbRow3: TLabel
        Left = 5
        Top = 35
        Width = 31
        Height = 13
        Caption = 'Row 3'
      end
      object LbRow4: TLabel
        Left = 5
        Top = 50
        Width = 31
        Height = 13
        Caption = 'Row 4'
      end
      object LbRow5: TLabel
        Left = 5
        Top = 65
        Width = 31
        Height = 13
        Caption = 'Row 5'
      end
      object BrRow1: TLabel
        Left = 40
        Top = 5
        Width = 101
        Height = 13
        AutoSize = False
        Caption = 'Nothing'
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object BrRow2: TLabel
        Left = 40
        Top = 20
        Width = 101
        Height = 13
        AutoSize = False
        Caption = 'Nothing'
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object BrRow3: TLabel
        Left = 40
        Top = 35
        Width = 101
        Height = 13
        AutoSize = False
        Caption = 'Nothing'
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object BrRow4: TLabel
        Left = 40
        Top = 50
        Width = 101
        Height = 13
        AutoSize = False
        Caption = 'Nothing'
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object BrRow5: TLabel
        Left = 40
        Top = 65
        Width = 101
        Height = 13
        AutoSize = False
        Caption = 'Nothing'
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
    end
    object PnScoreD: TPanel
      Left = 5
      Top = 115
      Width = 166
      Height = 82
      Align = alTop
      TabOrder = 1
      object BrScoreD1: TLabel
        Left = 147
        Top = 5
        Width = 15
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = '0'
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object BrScoreD2: TLabel
        Left = 147
        Top = 20
        Width = 15
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = '0'
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object BrScoreD3: TLabel
        Left = 147
        Top = 35
        Width = 15
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = '0'
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object BrScoreD4: TLabel
        Left = 147
        Top = 50
        Width = 15
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = '0'
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object BrScoreD5: TLabel
        Left = 147
        Top = 65
        Width = 15
        Height = 13
        Alignment = taRightJustify
        AutoSize = False
        Caption = '0'
        Font.Color = clBlue
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object LbCol1: TLabel
        Left = 5
        Top = 5
        Width = 24
        Height = 13
        Caption = 'Col 1'
      end
      object LbCol2: TLabel
        Left = 5
        Top = 20
        Width = 24
        Height = 13
        Caption = 'Col 2'
      end
      object LbCol3: TLabel
        Left = 5
        Top = 35
        Width = 24
        Height = 13
        Caption = 'Col 3'
      end
      object LbCol4: TLabel
        Left = 5
        Top = 50
        Width = 24
        Height = 13
        Caption = 'Col 4'
      end
      object LbCol5: TLabel
        Left = 5
        Top = 65
        Width = 24
        Height = 13
        Caption = 'Col 5'
      end
      object BrCol1: TLabel
        Left = 40
        Top = 5
        Width = 101
        Height = 13
        AutoSize = False
        Caption = 'Nothing'
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object BrCol2: TLabel
        Left = 40
        Top = 20
        Width = 101
        Height = 13
        AutoSize = False
        Caption = 'Nothing'
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object BrCol3: TLabel
        Left = 40
        Top = 35
        Width = 101
        Height = 13
        AutoSize = False
        Caption = 'Nothing'
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object BrCol4: TLabel
        Left = 40
        Top = 50
        Width = 101
        Height = 13
        AutoSize = False
        Caption = 'Nothing'
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object BrCol5: TLabel
        Left = 40
        Top = 65
        Width = 101
        Height = 13
        AutoSize = False
        Caption = 'Nothing'
        Font.Color = clRed
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
    end
  end
  object PnPlay: TPanel
    Left = 191
    Top = 4
    Width = 331
    Height = 421
    BevelOuter = bvLowered
    TabOrder = 2
  end
  object BtNewGame: TButton
    Left = 33
    Top = 400
    Width = 126
    Height = 25
    Caption = '&Start a new game'
    TabOrder = 3
    OnClick = MnNewGameClick
  end
  object MainMenu: TMainMenu
    object MnFile: TMenuItem
      Caption = '&File'
      Hint = 'File Functions.'
      ShortCut = 0
      object MnNewGame: TMenuItem
        Caption = '&New Game'
        ShortCut = 113
        OnClick = MnNewGameClick
      end
      object MnRestartGame: TMenuItem
        Caption = '&Restart Game'
        ShortCut = 114
        OnClick = MnRestartGameClick
      end
      object MnHighScores: TMenuItem
        Caption = '&High Scores'
        ShortCut = 115
        OnClick = MnHighScoresClick
      end
      object N1: TMenuItem
        Caption = '-'
        ShortCut = 0
      end
      object MnExit: TMenuItem
        Caption = 'E&xit'
        Hint = 'Exit program.'
        ShortCut = 32856
        OnClick = MnExitClick
      end
    end
    object MnOptions: TMenuItem
      Caption = '&Options'
      ShortCut = 0
      object MnPlayers: TMenuItem
        Caption = '&Players'
        ShortCut = 0
        object MnOnePlayer: TMenuItem
          Caption = '&One Player'
          Checked = True
          RadioItem = True
          ShortCut = 0
          OnClick = MnOnePlayerClick
        end
        object MnTwoPlayers: TMenuItem
          Caption = '&Two Players'
          RadioItem = True
          ShortCut = 0
          OnClick = MnTwoPlayersClick
        end
        object MnThreePlayers: TMenuItem
          Caption = 'T&hree Players'
          RadioItem = True
          ShortCut = 0
          OnClick = MnThreePlayersClick
        end
        object MnFourPlayers: TMenuItem
          Caption = '&Four Players'
          RadioItem = True
          ShortCut = 0
          OnClick = MnFourPlayersClick
        end
      end
      object MnNames: TMenuItem
        Caption = '&Names'
        ShortCut = 0
        OnClick = MnNamesClick
      end
      object MnPlayMusic: TMenuItem
        Caption = 'Play &Music'
        ShortCut = 0
        OnClick = MnPlayMusicClick
      end
    end
    object Register1: TMenuItem
      Caption = 'Register'
      ShortCut = 0
      OnClick = Register1Click
    end
    object MnHelp: TMenuItem
      Caption = '&Help'
      ShortCut = 0
      object MnContents: TMenuItem
        Caption = '&Contents'
        ShortCut = 0
        OnClick = MnContentsClick
      end
      object MnSecureOnlineOrdering: TMenuItem
        Caption = 'Secure Online Ordering'
        ShortCut = 0
        OnClick = MnSecureOnlineOrderingClick
      end
      object MnFreeCDDisc: TMenuItem
        Caption = 'Free CD Disc'
        ShortCut = 0
        OnClick = MnFreeCDDiscClick
      end
    end
  end
  object JustOne: TJustOne32
    Left = 30
  end
  object WaveMix: TWaveMix
    Activated = True
    Channels = 3
    Left = 60
  end
end