TChip -
Register -
TChipType
DEFAULT_CHIP_HEIGHT
DEFAULT_CHIP_WIDTH
ChipInstanceCount
ChipMask
ChipSet
procedure Register;
TChipType = (RedChip, BlueChip, WhiteChip);
DEFAULT_CHIP_HEIGHT = 32
DEFAULT_CHIP_WIDTH = 32
*********************************************************************** ** Chips Component ** *********************************************************************** ** This component simulates poker chips for a variety of gambling ** ** card games. Readily usable in any program, it is well suited ** ** for use with TCardV1, a component used for drawing cards. ** ** The code contained in this document is entirely free to use in ** ** both commercial and non-commercial applications. If this ** ** component is utilized in any way, shape, or form, I would ** ** appreciate a notification via email indicating this, as well as ** ** any comments or suggestions you may have. Bug reports are ** ** encouraged. ** ** I can be reached at: ** ** elvis@sway.com ** ** Sincerely, ** ** T. J. Sobotka ** ** March 1997 ** *********************************************************************** ** Properties: ** ** ChipType: Determines the color of the chip. ** ** ChipValue: Used to denote value of chip. Note that there ** ** are no methods to check the width of the numerical ** ** text, so use with care. Also note that the property ** ** is integer based for calculation purposes. **
ChipInstanceCount : LongInt = 0
ChipMask : TBitmap
ChipSet : TBitmap