Class TRxSlider (unit RXSlider)

Inherits from

TCustomControl

TRxSlider

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.

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

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



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

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