| Class TRxDice (unit RXDice) |
TCustomControl
TRxDice
| Constructors |
constructor Create(AOwner: TComponent);TRxDice
| Functions |
destructor Destroy;
procedure RandomValue;
procedure Change;
function GetPalette: HPALETTE;
procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer);
procedure Paint;
procedure AdjustBounds;
procedure CMFocusChanged(var Message: TCMFocusChanged);
procedure CreateBitmap;
procedure SetAutoSize(Value: Boolean);
procedure SetInterval(Value: Word);
procedure SetRotate(Value: Boolean);
procedure SetShowFocus(Value: Boolean);
procedure SetValue(Value: TRxDiceValue);
procedure TimerExpired(Sender: TObject);
procedure WMSize(var Message: TWMSize);| Properties |
property AutoSize : Boolean
property Color :
property Cursor :
property DragCursor :
property DragMode :
property Enabled :
property Interval : Word
property ParentColor :
property ParentShowHint :
property PopupMenu :
property Rotate : Boolean
property ShowFocus : Boolean
property ShowHint :
property TabOrder :
property TabStop :
property Value : TRxDiceValue
property Visible : | Events |
event OnChange : TNotifyEvent
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnEnter :
event OnExit :
event OnKeyDown :
event OnKeyPress :
event OnKeyUp :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
event OnStartDrag : | Variables |
FActive : Boolean;
FAutoSize : Boolean;
FBitmap : TBitmap;
FInterval : Word;
FOnChange : TNotifyEvent;
FRotate : Boolean;
FShowFocus : Boolean;
FTimer : TRxTimer;
FValue : TRxDiceValue;| Constructors |
constructor Create(AOwner: TComponent);Public declarations
TRxDice
| Functions |
destructor Destroy;
procedure RandomValue;
procedure Change;
function GetPalette: HPALETTE;Protected declarations
procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer);Adjust aspect ratio if control size changed
procedure Paint;
procedure AdjustBounds;
procedure CMFocusChanged(var Message: TCMFocusChanged);
procedure CreateBitmap;
procedure SetAutoSize(Value: Boolean);AdjustBounds;
procedure SetInterval(Value: Word);
procedure SetRotate(Value: Boolean);
procedure SetShowFocus(Value: Boolean);
procedure SetValue(Value: TRxDiceValue);
procedure TimerExpired(Sender: TObject);
procedure WMSize(var Message: TWMSize);| Properties |
property AutoSize : BooleanPublished declarations
property Color :
property Cursor :
property DragCursor :
property DragMode :
property Enabled :
property Interval : Word
property ParentColor :
property ParentShowHint :
property PopupMenu :
property Rotate : Boolean
property ShowFocus : Boolean
property ShowHint :
property TabOrder :
property TabStop :
property Value : TRxDiceValue
property Visible : | Events |
event OnChange : TNotifyEvent
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnEnter :
event OnExit :
event OnKeyDown :
event OnKeyPress :
event OnKeyUp :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
event OnStartDrag : | Variables |
FActive : Boolean;Private declarations
FAutoSize : Boolean;
FBitmap : TBitmap;
FInterval : Word;
FOnChange : TNotifyEvent;
FRotate : Boolean;
FShowFocus : Boolean;
FTimer : TRxTimer;
FValue : TRxDiceValue;