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