home *** CD-ROM | disk | FTP | other *** search
- object Form1: TForm1
- Left = 207
- Top = 156
- HelpContext = 41008
- HorzScrollBar.Visible = False
- VertScrollBar.Visible = False
- BorderStyle = bsSingle
- Caption = 'Animated Slots'
- ClientHeight = 402
- ClientWidth = 632
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Icon.Data = {<image000.ico>}
- Menu = MainMenu1
- Position = poScreenCenter
- Scaled = False
- Visible = True
- OnClose = FormClose
- OnCreate = FormCreate
- OnPaint = FormPaint
- OnResize = FormResize
- PixelsPerInch = 96
- TextHeight = 16
- object Digits: TImage
- Left = 256
- Top = 144
- Width = 188
- Height = 147
- AutoSize = True
- Picture.Data = {<image001.bmp>}
- Visible = False
- end
- object Shape1: TShape
- Left = 0
- Top = 50
- Width = 640
- Height = 1
- Pen.Color = clBtnShadow
- Visible = False
- end
- object Alpha: TImage
- Left = 32
- Top = 64
- Width = 507
- Height = 28
- Picture.Data = {<image002.bmp>}
- Visible = False
- end
- object Image1: TImage
- Left = 72
- Top = 128
- Width = 17
- Height = 51
- AutoSize = True
- Picture.Data = {<image003.bmp>}
- Visible = False
- end
- object Image3: TImage
- Left = 520
- Top = 160
- Width = 70
- Height = 47
- AutoSize = True
- Picture.Data = {<image004.bmp>}
- Visible = False
- end
- object Image2: TImage
- Left = 267
- Top = 148
- Width = 105
- Height = 105
- end
- object FreeImage: TImage
- Left = 512
- Top = 256
- Width = 43
- Height = 43
- AutoSize = True
- Picture.Data = {<image005.bmp>}
- Visible = False
- end
- object Panel1: TPanel
- Left = 0
- Top = 345
- Width = 632
- Height = 57
- Align = alBottom
- TabOrder = 0
- object BitBtn1: TBitBtn
- Left = 15
- Top = 4
- Width = 132
- Height = 49
- Hint = 'Bet one credit'
- HelpContext = 41008
- Caption = 'Bet 1'
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 1
- OnClick = BitBtn1Click
- Glyph.Data = {
- 06020000424D0602000000000000760000002800000020000000190000000100
- 04000000000090010000CE0E0000C40E00000000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
- 6666666666666666666666666666666666666666666666666666666666666666
- 6666666666666666666666666666666666666666666666666666666666666666
- 6666666666666666666666666666666666666666666666666666666666666666
- 6666666666666666666666666666666666666666666666666666666000000000
- 000000000000000000666000888888888888888888888888800660B333333333
- 3333333333333333330660B3333333333333333333333333330660B333333333
- 3333333333333333330660B3333333333333333333333333330660BBB3333333
- 333333333333333333066000BBBBBBBBBBBBBBBBBBBBBBBBB006666000000000
- 0000000000000000006666666666666666666666666666666666666666666666
- 6666666666666666666666666666666666666666666666666666666666666666
- 6666666666666666666666666666666666666666666666666666666666666666
- 6666666666666666666666666666666666666666666666666666666666666666
- 66666666666666666666}
- Spacing = -1
- end
- object BitBtn2: TBitBtn
- Left = 170
- Top = 4
- Width = 132
- Height = 49
- Hint = 'Bet maximum credits'
- HelpContext = 41008
- Caption = 'Bet Max'
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 2
- OnClick = BitBtn2Click
- Glyph.Data = {
- CE020000424DCE0200000000000076000000280000002B000000190000000100
- 04000000000058020000CE0E0000C40E00000000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666000000000
- 0000000006600000000000000000066000006000888888888888888800008888
- 8888888888880060000060B3333333333333333330B333333333333333333060
- 000060B3333333333333333330B333333333333333333060000060B333333333
- 3333333330B333333333333333333060000060B3333333333333333330B33333
- 3333333333333060000060BBB33333333333333330BBB3333333333333333060
- 00006000BBBBBBBBBBBBBBBB0000BBBBBBBBBBBBBBBB00600000666000000000
- 0000000006600000000000000000066000006000888888888888888800008888
- 8888888888880060000060B3333333333333333330B333333333333333333060
- 000060B3333333333333333330B333333333333333333060000060B333333333
- 3333333330B333333333333333333060000060B3333333333333333330B33333
- 3333333333333060000060BBB33333333333333330BBB3333333333333333060
- 00006000BBBBBBBBBBBBBBBB0000BBBBBBBBBBBBBBBB00600000660000000000
- 0000000066600000000000000000066000006000888888888888888800008888
- 8888888888880060000060B3333333333333333330B333333333333333333060
- 000060B3333333333333333330B333333333333333333060000060B333333333
- 3333333330B333333333333333333060000060B3333333333333333330B33333
- 3333333333333060000060BBB33333333333333330BBB3333333333333333060
- 00006000BBBBBBBBBBBBBBBB0000BBBBBBBBBBBBBBBB00600000666000000000
- 000000000660000000000000000006600000}
- Spacing = -1
- end
- object Button1: TBitBtn
- Left = 484
- Top = 4
- Width = 132
- Height = 49
- Hint = 'Spins the slot wheels'
- HelpContext = 41008
- Caption = 'Spin'
- Default = True
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 0
- OnClick = Button1Click
- Glyph.Data = {
- 66040000424D66040000000000007600000028000000290000002A0000000100
- 040000000000F0030000CE0E0000C40E00000000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
- 6666666666666666666666666666600000006666666666666666666666666666
- 6666666666666000000060000000000000000000000000000666666666666000
- 0000600000000000000000000000000006666666666660000000603333333333
- 3333333333333333000000066666600000006033333333333333333333333333
- 0000000006666000000060333333333333333333333333330000000006666000
- 0000603333333333333333333333333300000000066660000000600000000000
- 0000000000000000066666000666600000006000000000000000000000000000
- 0666660006666000000060FFFFFFFFFFFFFFFFFFFFFFFFFF0666660006666000
- 000060FFFFFFFFFFFFFFFFFFFFFFFFFF0666660006666000000060FFFFFFFFFF
- FFFFFFFFFFFFFFFF0666660006666000000060FF0000000000000000000000FF
- 0666660006666000000060FF0FFFFFFFFFFFFFFFFFFFF0FF0666660006666000
- 000060FF0FFFFFFFFFFFFFFFFFFFF0FF0666660006666000000060FF0FF0000F
- F0000FF0000FF0FF0666660006666000000060FF0FF0CC0FF0AA0FF0990FF0FF
- 0666660006666000000060FF0FF0CC0FF0AA0FF0990FF0FF0666660006666000
- 000060FF0FF0CC0FF0AA0FF0990FF0FF0666660006666000000060FF0FF0000F
- F0000FF0000FF0FF0666660006666000000060FF0FF0000FF0000FF0000FF0FF
- 0666660006666000000060FF0FFFFFFFFFFFFFFFFFFFF0FF0666660006666000
- 000060FF0000000000000000000000FF0666660006666000000060FF00000000
- 00000000000000FF0666660006666000000060FF0CCCCCCCCCCCCCCCCCCCC0FF
- 0666660006666000000060FF0CC0000FFFFFFFFF999CC0FF0666660006666000
- 000060FF0CC0000FFFFFFFFF999CC0FF0666660006666000000060FF0CCCCCCC
- CCCCCCCCCCCCC0FF0666660006666000000060FF0CC0000FFFFFFFFF999CC0FF
- 0666660006666000000060FF0CC0000FFFFFFFFF999CC0FF0666660006666000
- 000060FF0CCCCCCCCCCCCCCCCCCCC0FF0666111111166000000060FF0CC0000F
- FFFFFFFF999CC0FF0669999999916000000060FF0CC0000FFFFFFFFF999CC0FF
- 0669999999916000000060FF0CCCCCCCCCCCCCCCCCCCC0FF0669999999916000
- 000060FF0000000000000000000000FF0666999999166000000060FF00000000
- 00000000000000FF0666999999166000000060FFFFFFFFFFFFFFFFFFFFFFFFFF
- 0666699991666000000060000000000000000000000000000666666666666000
- 0000600000000000000000000000000006666666666660000000666666666666
- 6666666666666666666666666666600000006666666666666666666666666666
- 66666666666660000000}
- Spacing = -1
- end
- object BitBtn3: TBitBtn
- Left = 327
- Top = 4
- Width = 132
- Height = 49
- Hint = 'View the Payoff Chart'
- HelpContext = 41008
- Caption = 'Payoff Chart'
- Font.Color = clBlack
- Font.Height = -13
- Font.Name = 'Arial'
- Font.Style = []
- ParentFont = False
- ParentShowHint = False
- ShowHint = True
- TabOrder = 3
- OnClick = BitBtn3Click
- Glyph.Data = {
- E6010000424DE60100000000000076000000280000001A000000170000000100
- 04000000000070010000CE0E0000C40E00000000000000000000000000000000
- 80000080000000808000800000008000800080800000C0C0C000808080000000
- FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00666666666666
- 6666666666666600000060000000000000000000000006000000600000000000
- 00000000000006000000600000000000AAAAAAAAAA0006000000600000A0000A
- 0AAAAAAAA0A00600000060000AA0000AA0AAAAAA0AA0060000006000AAA0000A
- AA000000AAA0060000006000AAA0000AAA000000AAA0060000006000AAA0000A
- AA000000AAA0060000006000AAA0000AAA000000AAA00600000060000AA0000A
- A00000000AA0060000006000000000000000000000000600000060000AA0000A
- A00000000AA0060000006000AAA0000AAA000000AAA0060000006000AAA0000A
- AA000000AAA0060000006000AAA0000AAA000000AAA0060000006000AAA0000A
- AA000000AAA00600000060000AA0000AA0AAAAAA0AA00600000060000AA0000A
- 0AAAAAAAA0A006000000600000000000AAAAAAAAAA0006000000600000000000
- 0000000000000600000060000000000000000000000006000000666666666666
- 66666666666666000000}
- Spacing = -1
- end
- end
- object MediaPlayer1: TMediaPlayer
- Left = 28
- Top = 321
- Width = 253
- Height = 20
- AutoEnable = False
- AutoRewind = False
- DeviceType = dtSequencer
- Visible = False
- TabOrder = 1
- OnNotify = MediaPlayer1Notify
- end
- object MainMenu1: TMainMenu
- Left = 334
- Top = 10
- object File1: TMenuItem
- Caption = '&File'
- ShortCut = 0
- object NewGame2: TMenuItem
- Caption = '&New Game'
- ShortCut = 0
- OnClick = NewGame2Click
- end
- object N9: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object Open1: TMenuItem
- Caption = '&Open'
- ShortCut = 0
- OnClick = Open1Click
- end
- object Save1: TMenuItem
- Caption = '&Save'
- ShortCut = 0
- OnClick = Save1Click
- end
- object N1: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object Exit1: TMenuItem
- Caption = 'E&xit'
- ShortCut = 0
- OnClick = Exit1Click
- end
- end
- object Option1: TMenuItem
- Caption = '&Options'
- ShortCut = 0
- object Animations1: TMenuItem
- Caption = 'Animations'
- Checked = True
- ShortCut = 0
- OnClick = Animations1Click
- end
- object N12: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object Background1: TMenuItem
- Caption = 'Back&ground'
- ShortCut = 0
- object Tiled1: TMenuItem
- Caption = 'Tiled Bitmap'
- Checked = True
- ShortCut = 0
- OnClick = Tiled1Click
- end
- object None1: TMenuItem
- Caption = 'Solid Color'
- ShortCut = 0
- OnClick = None1Click
- end
- end
- object N11: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object BetAmount1: TMenuItem
- Caption = '&Bet Amount'
- ShortCut = 0
- object N5001: TMenuItem
- Caption = '$5'
- ShortCut = 0
- OnClick = N5001Click
- end
- object N1001: TMenuItem
- Caption = '$1'
- ShortCut = 0
- OnClick = N1001Click
- end
- object N50c1: TMenuItem
- Caption = '50�'
- ShortCut = 0
- OnClick = N50c1Click
- end
- object N25c1: TMenuItem
- Caption = '25�'
- ShortCut = 0
- OnClick = N25c1Click
- end
- object N10c1: TMenuItem
- Caption = '10�'
- ShortCut = 0
- OnClick = N10c1Click
- end
- object N5c1: TMenuItem
- Caption = '5�'
- ShortCut = 0
- OnClick = N5c1Click
- end
- end
- object N10: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object Blackjack1: TMenuItem
- Caption = 'Black&jack'
- Checked = True
- ShortCut = 0
- OnClick = Blackjack1Click
- end
- object N13: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object BorrowCredits1: TMenuItem
- Caption = 'Borrow &Credits'
- ShortCut = 0
- OnClick = BorrowCredits1Click
- end
- object N7: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object Music1: TMenuItem
- Caption = '&Music'
- ShortCut = 0
- object On2: TMenuItem
- Caption = 'On'
- ShortCut = 0
- OnClick = On2Click
- end
- object N15: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object ChangeMIDISongs1: TMenuItem
- Caption = 'Change MIDs'
- ShortCut = 0
- OnClick = ChangeMIDISongs1Click
- end
- end
- object N14: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object Sounds1: TMenuItem
- Caption = '&Sounds'
- ShortCut = 0
- object On1: TMenuItem
- Caption = 'On'
- Checked = True
- ShortCut = 0
- OnClick = On1Click
- end
- object N6: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object Bonus1: TMenuItem
- Caption = 'Bonus'
- Checked = True
- ShortCut = 0
- OnClick = Bonus1Click
- end
- object PowerDrain1: TMenuItem
- Caption = 'Card Dealt'
- Checked = True
- ShortCut = 0
- OnClick = PowerDrain1Click
- end
- object Coins1: TMenuItem
- Caption = 'Coins'
- Checked = True
- ShortCut = 0
- OnClick = Coins1Click
- end
- object Credits1: TMenuItem
- Caption = 'Credits'
- Checked = True
- ShortCut = 0
- OnClick = Credits1Click
- end
- object Lose1: TMenuItem
- Caption = 'Lose'
- ShortCut = 0
- OnClick = Lose1Click
- end
- object SlotSpin1: TMenuItem
- Caption = 'Slot Spin'
- ShortCut = 0
- OnClick = SlotSpin1Click
- end
- object Stop1: TMenuItem
- Caption = 'Stop'
- Checked = True
- ShortCut = 0
- OnClick = Stop1Click
- end
- object WheelSpin1: TMenuItem
- Caption = 'Wheel Spin'
- Checked = True
- ShortCut = 0
- OnClick = WheelSpin1Click
- end
- object Win1: TMenuItem
- Caption = 'Win'
- Checked = True
- ShortCut = 0
- OnClick = Win1Click
- end
- object N2: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object ChangeWAVs1: TMenuItem
- Caption = 'Change WAVs'
- ShortCut = 0
- OnClick = ChangeWAVs1Click
- end
- end
- object N8: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object SpinSpeed1: TMenuItem
- Caption = 'Spin Spee&d'
- ShortCut = 0
- object Fast1: TMenuItem
- Caption = 'Fast'
- ShortCut = 0
- OnClick = Fast1Click
- end
- object Medium1: TMenuItem
- Caption = 'Medium'
- ShortCut = 0
- OnClick = Medium1Click
- end
- object Slow1: TMenuItem
- Caption = 'Slow'
- ShortCut = 0
- OnClick = Slow1Click
- end
- end
- end
- object Register1: TMenuItem
- Caption = '&Register'
- ShortCut = 0
- OnClick = Register1Click
- end
- object AutoSpin1: TMenuItem
- Caption = '&Auto'
- ShortCut = 0
- object AutoSpin2: TMenuItem
- Caption = '&Auto Spin'
- ShortCut = 0
- OnClick = AutoSpin2Click
- end
- end
- object Help1: TMenuItem
- Caption = '&Help'
- ShortCut = 0
- object About: TMenuItem
- Caption = '&About'
- ShortCut = 0
- OnClick = AboutClick
- end
- object N3: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object Catalog1: TMenuItem
- Caption = '&Catalog'
- ShortCut = 0
- OnClick = Catalog1Click
- end
- object SecureOnlineOrdering1: TMenuItem
- Caption = '&Secure Online Ordering'
- ShortCut = 0
- OnClick = SecureOnlineOrdering1Click
- end
- object N5: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object FreeCD1: TMenuItem
- Caption = '&Free CD'
- ShortCut = 0
- OnClick = FreeCD1Click
- end
- object N4: TMenuItem
- Caption = '-'
- ShortCut = 0
- end
- object Manual1: TMenuItem
- Caption = '&Help Contents'
- ShortCut = 0
- OnClick = Manual1Click
- end
- object Troubleshooting1: TMenuItem
- Caption = '&Troubleshooting'
- ShortCut = 0
- OnClick = Troubleshooting1Click
- end
- end
- end
- object OpenDialog1: TOpenDialog
- FileEditStyle = fsEdit
- Options = [ofReadOnly]
- Title = 'Load Tiled Bitmap File'
- Left = 366
- Top = 6
- end
- object ColorDialog1: TColorDialog
- Ctl3D = True
- Left = 398
- Top = 6
- end
- object Timer1: TTimer
- Enabled = False
- OnTimer = Timer1Timer
- Left = 302
- Top = 6
- end
- object Timer2: TTimer
- Interval = 200
- OnTimer = Timer2Timer
- Left = 262
- Top = 7
- end
- object Timer3: TTimer
- Interval = 75
- OnTimer = Timer3Timer
- Left = 38
- Top = 7
- end
- end
-