TMultiSlider

type TMultiSlider = class(TCustomControl)

protected

  function BtnLength;

  procedure DoAutoAdjustLayout(); override;

  procedure DoPositionChange();

  function ExtendedThumbs;

  function GetRectFromPoint();

  function GetThumbCenter();

  function GetTrackLength;

  function IsInFirstHalf();

  procedure Loaded; override;

  function PointToPosition();

  procedure UpdateBounds;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure Paint; override;

  procedure Resize; override;

  procedure MouseDown(); override;

  procedure MouseMove(); override;

  procedure MouseUp(); override;

  procedure MouseLeave; override;

published

  property AutoRotate: Boolean; [rw]

  property ColorAbove: TColor; [rw]

  property ColorBelow: TColor; [rw]

  property ColorBetween: TColor; [rw]

  property ColorThumb: TColor; [rw]

  property DefaultSize: Integer; [rws]

  property Flat: Boolean; [rw]

  property MaxPosition: Integer; [rw]

  property MinPosition: Integer; [rw]

  property Position: Integer; [rw]

  property RangeMax: Integer; [rw]

  property RangeMin: Integer; [rw]

  property SliderMode: TSliderMode; [rw]

  property ThumbStyle: TThumbstyle; [rw]

  property TrackThickness: Integer; [rws]

  property Vertical: Boolean; [rw]

  property Height;

  property Width;

  property OnPositionChange: TSliderPositionEvent; [rw]

  property Align;

  property BorderSpacing;

  property Constraints;

  property Enabled;

  property HelpContext;

  property HelpKeyword;

  property HelpType;

  property Left;

  property ParentShowHint;

  property PopupMenu;

  property ShowHint;

  property Tag;

  property Top;

  property Visible;

  property OnChangeBounds;

  property OnClick;

  property OnContextPopup;

  property OnDblClick;

  property OnMouseDown;

  property OnMouseEnter;

  property OnMouseLeave;

  property OnMouseMove;

  property OnMouseUp;

  property OnMouseWheel;

  property OnMouseWheelDown;

  property OnMouseWheelUp;

  property OnMouseWheelHorz;

  property OnMouseWheelLeft;

  property OnMouseWheelRight;

  property OnResize;

end;

TMultiSlider

TObject