Class TRxSpinButton (unit RXSpin) |
Inherits from
TGraphicControl
constructor Create(AOwner: TComponent);
- pause before hint window displays (ms)} { TRxSpinButton
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.
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;
property DownGlyph : TBitmap
property DragCursor :
property DragMode :
property Enabled :
property ShowHint :
property UpGlyph : TBitmap
property Visible :
property Down : TSpinButtonState
event OnBottomClick : TNotifyEvent
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnStartDrag :
event OnTopClick : TNotifyEvent
FBottomDownBtn : TBitmap;
FDown : TSpinButtonState;
FDownBitmap : TBitmap;
FDragging : Boolean;
FInvalidate : Boolean;
FLastDown : TSpinButtonState;
FNotDownBtn : TBitmap;
FOnBottomClick : TNotifyEvent;
FOnTopClick : TNotifyEvent;
FRepeatTimer : TTimer;
FTopDownBtn : TBitmap;
FUpBitmap : TBitmap;
constructor Create(AOwner: TComponent);
pause before hint window displays (ms)} { TRxSpinButton
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;
property DownGlyph : TBitmap
property DragCursor :
property DragMode :
property Enabled :
property ShowHint :
property UpGlyph : TBitmap
property Visible :
property Down : TSpinButtonState
event OnBottomClick : TNotifyEvent
event OnDragDrop :
event OnDragOver :
event OnEndDrag :
event OnStartDrag :
event OnTopClick : TNotifyEvent
FBottomDownBtn : TBitmap;
FDown : TSpinButtonState;
FDownBitmap : TBitmap;
FDragging : Boolean;
FInvalidate : Boolean;
FLastDown : TSpinButtonState;
FNotDownBtn : TBitmap;
FOnBottomClick : TNotifyEvent;
FOnTopClick : TNotifyEvent;
FRepeatTimer : TTimer;
FTopDownBtn : TBitmap;
FUpBitmap : TBitmap;