| Class TRxSpinButton (unit RXSpin) |
TGraphicControl
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
destructor Destroy;
procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer);
procedure MouseMove(Shift: TShiftState; X, Y: Integer);
procedure MouseUp(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer);
procedure Paint;
procedure BottomClick;
procedure CMEnabledChanged(var Message: TMessage);
procedure DrawAllBitmap;
procedure DrawBitmap(ABitmap: TBitmap; ADownState: TSpinButtonState);
function GetDownGlyph: TBitmap;
function GetUpGlyph: TBitmap;
procedure GlyphChanged(Sender: TObject);
procedure SetDown(Value: TSpinButtonState);
procedure SetDownGlyph(Value: TBitmap);
procedure SetUpGlyph(Value: TBitmap);
procedure TimerExpired(Sender: TObject);
procedure TopClick;| Properties |
property DownGlyph : TBitmap
property DragCursor :
property DragMode :
property Enabled :
property ShowHint :
property UpGlyph : TBitmap
property Visible :
property Down : TSpinButtonState| Events |
event OnBottomClick : TNotifyEvent
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnStartDrag :
event OnTopClick : TNotifyEvent| Variables |
FBottomDownBtn : TBitmap;
FDown : TSpinButtonState;
FDownBitmap : TBitmap;
FDragging : Boolean;
FInvalidate : Boolean;
FLastDown : TSpinButtonState;
FNotDownBtn : TBitmap;
FOnBottomClick : TNotifyEvent;
FOnTopClick : TNotifyEvent;
FRepeatTimer : TTimer;
FTopDownBtn : TBitmap;
FUpBitmap : TBitmap;| Constructors |
constructor Create(AOwner: TComponent);pause before hint window displays (ms)} { TRxSpinButton
| Functions |
destructor Destroy;
procedure MouseDown(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer);
procedure MouseMove(Shift: TShiftState; X, Y: Integer);
procedure MouseUp(Button: TMouseButton; Shift: TShiftState;
X, Y: Integer);
procedure Paint;
procedure BottomClick;
procedure CMEnabledChanged(var Message: TMessage);if Self.Enabled or (csDesigning in ComponentState) then BrushCopy(R, FDownBitmap, RSrc, FDownBitmap.TransparentColor) else begin Temp := CreateDisabledBitmap(FDownBitmap, clBlack); try BrushCopy(R, Temp, RSrc, Temp.TransparentColor); finally Temp.Free; end; end;
procedure DrawAllBitmap;
procedure DrawBitmap(ABitmap: TBitmap; ADownState: TSpinButtonState);
function GetDownGlyph: TBitmap;
function GetUpGlyph: TBitmap;
procedure GlyphChanged(Sender: TObject);
procedure SetDown(Value: TSpinButtonState);
procedure SetDownGlyph(Value: TBitmap);
procedure SetUpGlyph(Value: TBitmap);
procedure TimerExpired(Sender: TObject);
procedure TopClick;| Properties |
property DownGlyph : TBitmap
property DragCursor :
property DragMode :
property Enabled :
property ShowHint :
property UpGlyph : TBitmap
property Visible :
property Down : TSpinButtonState| Events |
event OnBottomClick : TNotifyEvent
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnStartDrag :
event OnTopClick : TNotifyEvent| Variables |
FBottomDownBtn : TBitmap;
FDown : TSpinButtonState;
FDownBitmap : TBitmap;
FDragging : Boolean;
FInvalidate : Boolean;
FLastDown : TSpinButtonState;
FNotDownBtn : TBitmap;
FOnBottomClick : TNotifyEvent;
FOnTopClick : TNotifyEvent;
FRepeatTimer : TTimer;
FTopDownBtn : TBitmap;
FUpBitmap : TBitmap;