| Class TRxSlider (unit RXSlider) |
TCustomControl
TRxSlider
| Constructors |
constructor Create(AOwner: TComponent);| Functions |
procedure DefaultDrawPoints(PointsStep, PointsHeight,
ExtremePointsHeight: Longint);
destructor Destroy;
procedure Change;
procedure DefineProperties(Filer: TFiler);
procedure KeyDown(var Key: Word; Shift: TShiftState);
procedure Loaded;
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 ThumbMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure ThumbMouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
procedure ThumbMouseUp(Sender: TObject; Thumb: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure AdjustElements;
procedure BuildRuler;
procedure CMFocusChanged(var Message: TCMFocusChanged);
procedure CreateElements;
function GetImage(Index: Integer): TBitmap;
function GetNumThumbStates: TNumThumbStates;
function GetOffsetByValue(Value: Longint): Integer;
function GetRulerLength: Integer;
function GetThumbOffset: Integer;
function GetValueByOffset(Offset: Integer): Longint;
procedure ImageChanged;
function JumpTo(X, Y: Integer): TJumpMode;
procedure ReadUserImages(Stream: TStream);
procedure SetEdgeSize(Value: Integer);
procedure SetImage(Index: Integer; Value: TBitmap);
procedure SetIncrement(Value: Longint);
procedure SetMaxValue(Value: Longint);
procedure SetMinValue(Value: Longint);
procedure SetNumThumbStates(Value: TNumThumbStates);
procedure SetOptions(Value: TSliderOptions);
procedure SetOrientation(Value: TSliderOrientation);
procedure SetThumbOffset(Value: Integer);
procedure SetValue(Value: Longint);
procedure StopTracking;
function StoreImage(Index: Integer): Boolean;
procedure ThumbJump(Jump: TJumpMode);
procedure TimerTrack;
procedure WMGetDlgCode(var Msg: TWMGetDlgCode);
procedure WMSize(var Message: TWMSize);
procedure WMTimer(var Message: TMessage);
procedure WriteUserImages(Stream: TStream);| Properties |
property Align :
property Color :
property Cursor :
property DragCursor :
property DragMode :
property EdgeSize : Integer
property Enabled :
property ImageHRuler : TBitmap
property ImageHThumb : TBitmap
property ImageVRuler : TBitmap
property ImageVThumb : TBitmap
property Increment : Longint
property MaxValue : Longint
property MinValue : Longint
property NumThumbStates : TNumThumbStates
property Options : TSliderOptions
property Orientation : TSliderOrientation
property ParentColor :
property ParentShowHint :
property ShowHint :
property TabOrder :
property TabStop :
property Value : Longint
property Visible :
property Canvas :
property ThumbOffset : Integer| Events |
event OnChange : TNotifyEvent
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnDrawPoints : TNotifyEvent
event OnEndDrag :
event OnEnter :
event OnExit :
event OnKeyDown :
event OnKeyPress :
event OnKeyUp :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
event OnStartDrag : | Variables |
FEdgeSize : Integer;
FFocused : Boolean;
FHit : Integer;
FImages : TImageArray;
FIncrement : Longint;
FMaxValue : Longint;
FMinValue : Longint;
FMousePos : TPoint;
FOnChange : TNotifyEvent;
FOnDrawPoints : TNotifyEvent;
FOptions : TSliderOptions;
FOrientation : TSliderOrientation;
FPointsRect : TRect;
FRuler : TBitmap;
FRulerOrg : TPoint;
FSliding : Boolean;
FStartJump : TJumpMode;
FThumb : TSliderThumb;
FTimerActive : Boolean;
FTracking : Boolean;
FUserImages : TSliderImages;
FValue : Longint;| Constructors |
constructor Create(AOwner: TComponent);TRxSlider
| Functions |
procedure DefaultDrawPoints(PointsStep, PointsHeight,
ExtremePointsHeight: Longint);
destructor Destroy;
procedure Change;
procedure DefineProperties(Filer: TFiler);
procedure KeyDown(var Key: Word; Shift: TShiftState);
procedure Loaded;
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 ThumbMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure ThumbMouseMove(Sender: TObject;
Shift: TShiftState; X, Y: Integer);
procedure ThumbMouseUp(Sender: TObject; Thumb: TMouseButton;
Shift: TShiftState; X, Y: Integer);
procedure AdjustElements;
procedure BuildRuler;
procedure CMFocusChanged(var Message: TCMFocusChanged);
procedure CreateElements;
function GetImage(Index: Integer): TBitmap;Get/Set properties methods
function GetNumThumbStates: TNumThumbStates;
function GetOffsetByValue(Value: Longint): Integer;
function GetRulerLength: Integer;- FThumb.Height
function GetThumbOffset: Integer;
function GetValueByOffset(Offset: Integer): Longint;
procedure ImageChanged;
function JumpTo(X, Y: Integer): TJumpMode;
procedure ReadUserImages(Stream: TStream);
procedure SetEdgeSize(Value: Integer);
procedure SetImage(Index: Integer; Value: TBitmap);
procedure SetIncrement(Value: Longint);
procedure SetMaxValue(Value: Longint);
procedure SetMinValue(Value: Longint);
procedure SetNumThumbStates(Value: TNumThumbStates);
procedure SetOptions(Value: TSliderOptions);
procedure SetOrientation(Value: TSliderOrientation);
procedure SetThumbOffset(Value: Integer);
procedure SetValue(Value: Longint);
procedure StopTracking;
function StoreImage(Index: Integer): Boolean;
procedure ThumbJump(Jump: TJumpMode);Internal methods
procedure TimerTrack;
procedure WMGetDlgCode(var Msg: TWMGetDlgCode);
procedure WMSize(var Message: TWMSize);
procedure WMTimer(var Message: TMessage);
procedure WriteUserImages(Stream: TStream);| Properties |
property Align :
property Color :
property Cursor :
property DragCursor :
property DragMode :
property EdgeSize : Integerensure Orientation is declared before EdgeSize
property Enabled :
property ImageHRuler : TBitmap
property ImageHThumb : TBitmap
property ImageVRuler : TBitmap
property ImageVThumb : TBitmap
property Increment : Longint
property MaxValue : Longint
property MinValue : Longint
property NumThumbStates : TNumThumbStates
property Options : TSliderOptions
property Orientation : TSliderOrientation
property ParentColor :
property ParentShowHint :
property ShowHint :
property TabOrder :
property TabStop :
property Value : Longint
property Visible :
property Canvas :
property ThumbOffset : Integer| Events |
event OnChange : TNotifyEvent
event OnClick :
event OnDblClick :
event OnDragDrop :
event OnDragOver :
event OnDrawPoints : TNotifyEvent
event OnEndDrag :
event OnEnter :
event OnExit :
event OnKeyDown :
event OnKeyPress :
event OnKeyUp :
event OnMouseDown :
event OnMouseMove :
event OnMouseUp :
event OnStartDrag : | Variables |
FEdgeSize : Integer;
FFocused : Boolean;
FHit : Integer;Internal
FImages : TImageArray;
FIncrement : Longint;
FMaxValue : Longint;
FMinValue : Longint;Values
FMousePos : TPoint;
FOnChange : TNotifyEvent;Events
FOnDrawPoints : TNotifyEvent;
FOptions : TSliderOptions;
FOrientation : TSliderOrientation;Styles
FPointsRect : TRect;
FRuler : TBitmap;Elements
FRulerOrg : TPoint;
FSliding : Boolean;
FStartJump : TJumpMode;
FThumb : TSliderThumb;
FTimerActive : Boolean;
FTracking : Boolean;
FUserImages : TSliderImages;Images
FValue : Longint;