object FormMain: TFormMain Left = 208 Top = 121 BorderIcons = [biSystemMenu, biMinimize] BorderStyle = bsSingle Caption = 'Let It Ride for 95' ClientHeight = 381 ClientWidth = 359 Color = clGreen Font.Color = clWindowText Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] Icon.Data = {} Menu = MainMenu1 Position = poScreenCenter OnActivate = FormActivate OnCreate = FormCreate PixelsPerInch = 96 TextHeight = 13 object Holder3: TShape Left = 96 Top = 160 Width = 33 Height = 33 Brush.Color = clBlack Brush.Style = bsDiagCross Shape = stCircle end object Holder2: TShape Left = 152 Top = 160 Width = 33 Height = 33 Brush.Color = clBlack Brush.Style = bsDiagCross Shape = stCircle end object Holder1: TShape Left = 208 Top = 160 Width = 33 Height = 33 Brush.Color = clBlack Brush.Style = bsDiagCross Shape = stCircle end object Chip3: TShape Left = 100 Top = 160 Width = 25 Height = 33 Brush.Color = clRed Pen.Color = clMaroon Pen.Width = 2 Shape = stCircle end object Chip2: TShape Left = 156 Top = 160 Width = 25 Height = 33 Brush.Color = clRed Enabled = False Pen.Color = clMaroon Pen.Width = 2 Shape = stCircle OnMouseUp = Chip2MouseUp end object Chip1: TShape Left = 212 Top = 160 Width = 25 Height = 33 Brush.Color = clRed Enabled = False Pen.Color = clMaroon Pen.Width = 2 Shape = stCircle OnMouseUp = Chip1MouseUp end object Label1: TLabel Tag = 5 Left = 94 Top = 135 Width = 37 Height = 20 Alignment = taCenter AutoSize = False Caption = '$5' Color = clWhite Font.Color = clWhite Font.Height = -16 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentColor = False ParentFont = False Transparent = True end object Label2: TLabel Tag = 5 Left = 151 Top = 135 Width = 37 Height = 20 Alignment = taCenter AutoSize = False Caption = '$5' Color = clWhite Font.Color = clWhite Font.Height = -16 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentColor = False ParentFont = False Transparent = True end object Label3: TLabel Tag = 5 Left = 205 Top = 135 Width = 37 Height = 20 Alignment = taCenter AutoSize = False Caption = '$5' Color = clWhite Font.Color = clWhite Font.Height = -16 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentColor = False ParentFont = False Transparent = True end object Label4: TLabel Left = 35 Top = 137 Width = 35 Height = 13 Caption = 'Wager:' Font.Color = clWhite Font.Height = -11 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Deal: TSpeedButton Left = 256 Top = 160 Width = 89 Height = 33 Caption = 'Deal' OnClick = DealClick end object GameStatus: TLabel Left = 28 Top = 240 Width = 273 Height = 21 Alignment = taCenter AutoSize = False Caption = 'End of Hand' Font.Color = clWhite Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [fsBold] ParentFont = False Transparent = True Visible = False end object Label5: TLabel Left = 256 Top = 16 Width = 47 Height = 16 Caption = 'Cash: $' Font.Color = clWhite Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object CashLabel: TLabel Left = 309 Top = 16 Width = 52 Height = 16 AutoSize = False Caption = '100' Font.Color = clWhite Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Label6: TLabel Left = 257 Top = 34 Width = 56 Height = 16 Caption = 'PayOff: $' Font.Color = clWhite Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object PayOffLabel: TLabel Left = 315 Top = 34 Width = 42 Height = 16 AutoSize = False Font.Color = clWhite Font.Height = -13 Font.Name = 'MS Sans Serif' Font.Style = [] ParentFont = False end object Card1: TSilverCards Left = 88 Top = 8 Width = 71 Height = 95 Picture.Data = {} CardSuit = sClubs CardRank = rAce CardNumber = 1 CardDesign = 1 CardSide = sFront end object Card2: TSilverCards Left = 176 Top = 8 Width = 71 Height = 95 Picture.Data = {} CardSuit = sClubs CardRank = rAce CardNumber = 1 CardDesign = 1 CardSide = sFront end object Card3: TSilverCards Left = 48 Top = 264 Width = 71 Height = 95 Picture.Data = {} CardSuit = sClubs CardRank = rAce CardNumber = 1 CardDesign = 1 CardSide = sFront end object Card4: TSilverCards Left = 128 Top = 264 Width = 71 Height = 95 Picture.Data = {} CardSuit = sClubs CardRank = rAce CardNumber = 1 CardDesign = 1 CardSide = sFront end object Card5: TSilverCards Left = 208 Top = 264 Width = 71 Height = 95 Picture.Data = {} CardSuit = sClubs CardRank = rAce CardNumber = 1 CardDesign = 1 CardSide = sFront end object StatusBar1: TStatusBar Left = 0 Top = 364 Width = 359 Height = 17 Panels = <> SimplePanel = False SizeGrip = False end object SpinButton: TSpinButton Left = 40 Top = 155 Width = 25 Height = 41 Hint = 'Increase or Decrease the amount of your bet' Ctl3D = False DownGlyph.Data = { DE000000424DDE00000000000000360000002800000009000000060000000100 180000000000A800000000000000000000000000000000000000007F7F007F7F 007F7F007F7F007F7F007F7F007F7F007F7F007F7F00007F7F007F7F007F7F00 7F7F000000007F7F007F7F007F7F007F7F00007F7F007F7F007F7F0000000000 00000000007F7F007F7F007F7F00007F7F007F7F000000000000000000000000 000000007F7F007F7F00007F7F00000000000000000000000000000000000000 0000007F7F37007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F 7FF7} ParentCtl3D = False ParentShowHint = False ShowHint = False TabOrder = 1 UpGlyph.Data = { DE000000424DDE00000000000000360000002800000009000000060000000100 180000000000A800000000000000000000000000000000000000007F7F007F7F 007F7F007F7F007F7F007F7F007F7F007F7F007F7F67007F7F00000000000000 0000000000000000000000000000007F7F75007F7F007F7F0000000000000000 00000000000000007F7F007F7F00007F7F007F7F007F7F000000000000000000 007F7F007F7F007F7F00007F7F007F7F007F7F007F7F000000007F7F007F7F00 7F7F007F7F37007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F7F007F 7FF7} OnDownClick = SpinButtonDownClick OnUpClick = SpinButtonUpClick end object MainMenu1: TMainMenu Left = 32 object File1: TMenuItem Caption = '&File' ShortCut = 0 object mnuCashOut: TMenuItem Caption = '&Cash Out' ShortCut = 0 OnClick = mnuCashOutClick end object N1: TMenuItem Caption = '-' ShortCut = 0 end object mnuExit: TMenuItem Caption = '&Exit' ShortCut = 0 OnClick = mnuExitClick end end object Game1: TMenuItem Caption = '&Game' ShortCut = 0 object Scores1: TMenuItem Caption = '&High Scores' ShortCut = 0 OnClick = Scores1Click end object PayOffTable1: TMenuItem Caption = '&Pay-Off Table' ShortCut = 0 OnClick = PayOffTable1Click end object mnuSounds: TMenuItem Caption = '&Sounds On' Checked = True ShortCut = 0 OnClick = mnuSoundsClick end end object N2: TMenuItem Caption = '&Cards' ShortCut = 0 object mnuHand: TMenuItem Caption = '&Hand' ShortCut = 0 OnClick = mnuHandClick end object mnuBeach: TMenuItem Caption = '&Beach' ShortCut = 0 OnClick = mnuBeachClick end object mnuCastle: TMenuItem Caption = '&Castle' ShortCut = 0 OnClick = mnuCastleClick end object mnuConch: TMenuItem Caption = 'C&onch' ShortCut = 0 OnClick = mnuConchClick end object mnuBlue: TMenuItem Caption = '&Blue Fish' ShortCut = 0 OnClick = mnuBlueClick end object mnuCyan: TMenuItem Caption = 'C&yan Fish' ShortCut = 0 OnClick = mnuCyanClick end object mnuBLeaves: TMenuItem Caption = 'B&lue Leaves' ShortCut = 0 OnClick = mnuBLeavesClick end object mnuGLeaves: TMenuItem Caption = '&Green Leaves' ShortCut = 0 OnClick = mnuGLeavesClick end object mnuRoses: TMenuItem Caption = '&Roses' ShortCut = 0 OnClick = mnuRosesClick end object mnuRobot: TMenuItem Caption = 'Robo&t' ShortCut = 0 OnClick = mnuRobotClick end end object Help1: TMenuItem Caption = '&Help' ShortCut = 0 object Contents1: TMenuItem Caption = 'How To Play' ShortCut = 0 OnClick = Contents1Click end object RegisterInfo1: TMenuItem Caption = 'Register Info' ShortCut = 0 OnClick = RegisterInfo1Click end object About1: TMenuItem Caption = 'About' ShortCut = 0 OnClick = About1Click end end end object Sleeper1: TSleeper Interval = 1000 Left = 312 Top = 224 end end