Class TChip (unit Chips)

Inherits from

TGraphicControl

Constructors


constructor Create(AOwner: TComponent);

Public declarations


Functions

destructor Destroy;


procedure Paint;


procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer);


procedure SetChipType(ChipType: TChipType);


procedure SetChipValue(ChipValue: LongInt);


Properties

property ChipType : TChipType


property ChipValue : LongInt

Published declarations

Events

Variables

FChipType : TChipType;


FChipValue : LongInt;

Protected declarations

ShadowColor : TColor;


TextColor : TColor;



Constructors


constructor Create(AOwner: TComponent);

Public declarations


Functions


destructor Destroy;


procedure Paint;


procedure SetBounds(ALeft, ATop, AWidth, AHeight: Integer);


procedure SetChipType(ChipType: TChipType);


procedure SetChipValue(ChipValue: LongInt);


Properties


property ChipType : TChipType


property ChipValue : LongInt

Published declarations


Events


Variables


FChipType : TChipType;


FChipValue : LongInt;

Protected declarations


ShadowColor : TColor;


TextColor : TColor;