Class TRxDice (unit RXDice)

Inherits from

TCustomControl

TRxDice

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 : Boolean

Published 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;



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 : Boolean

Published 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;