TCDPositionedControl

type TCDPositionedControl = class(TCDControl)

protected

  FSmallChange: Integer;

  FLargeChange: Integer;

  FPCState: TCDPositionedCStateEx;

  FMoveByDragging: Boolean;

  function GetPositionFromMousePosWithMargins();

  function GetPositionFromMousePos(); virtual; abstract;

  function GetPositionDisplacementWithMargins();

  function GetPositionDisplacement(); virtual; abstract;

  function GetButtonFromMousePos(); virtual;

  procedure CreateControlStateEx; override;

  procedure PrepareControlStateEx; override;

  procedure KeyDown(); override;

  procedure MouseDown(); override;

  procedure MouseMove(); override;

  procedure MouseUp(); override;

  property PageSize: Integer; [rw]

public

  constructor Create(); override;

  destructor Destroy; override;

published

  property Max: Integer; [rw]

  property Min: Integer; [rw]

  property OnChange: TNotifyEvent; [rw]

  property OnChangeByUser: TNotifyEvent; [rw]

  property Position: Integer; [rw]

end;

TCDPositionedControl

TCDControl

TCustomControl

The base class for windowed controls which paint themselves.

TWinControl

Implements a windowed control which can contain other child controls.

TControl

The base class for visible controls.

TLCLComponent

The base class for LCL components which have an associated widget.

TComponent,IUnknown,IInterfaceComponentReference

TPersistent,IFPObserved

TObject