Jumbo 2,500 Game Pack/DDVDAV937D1.iso/sharewarefin/RIDE.ZIP/LETITR~1.EXE/0/RCDATA/TFORMMAIN/TFORMMAIN.txt

Text File | 1996-06-16 | 10KB | 442 lines

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 = {<image000.ico>}
  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 = {<image001.bmp>}
    CardSuit = sClubs
    CardRank = rAce
    CardNumber = 1
    CardDesign = 1
    CardSide = sFront
  end
  object Card2: TSilverCards
    Left = 176
    Top = 8
    Width = 71
    Height = 95
    Picture.Data = {<image002.bmp>}
    CardSuit = sClubs
    CardRank = rAce
    CardNumber = 1
    CardDesign = 1
    CardSide = sFront
  end
  object Card3: TSilverCards
    Left = 48
    Top = 264
    Width = 71
    Height = 95
    Picture.Data = {<image003.bmp>}
    CardSuit = sClubs
    CardRank = rAce
    CardNumber = 1
    CardDesign = 1
    CardSide = sFront
  end
  object Card4: TSilverCards
    Left = 128
    Top = 264
    Width = 71
    Height = 95
    Picture.Data = {<image004.bmp>}
    CardSuit = sClubs
    CardRank = rAce
    CardNumber = 1
    CardDesign = 1
    CardSide = sFront
  end
  object Card5: TSilverCards
    Left = 208
    Top = 264
    Width = 71
    Height = 95
    Picture.Data = {<image005.bmp>}
    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