CDXUTSlider

type CDXUTSlider = class(CDXUTControl)

protected

  m_nValue: Integer;

  m_nMin: Integer;

  m_nMax: Integer;

  m_nDragX: Integer;

  m_nDragOffset: Integer;

  m_nButtonX: Integer;

  m_bPressed: Boolean;

  m_rcButton: TRect;

  procedure SetValueInternal();

  function ValueFromPos();

  procedure SetValue();

public

  constructor Create(); override;

  function ContainsPoint(); override;

  function CanHaveFocus; override;

  function HandleKeyboard(); override;

  function HandleMouse(); override;

  procedure UpdateRects; override;

  procedure Render(); override;

  procedure GetRange();

  procedure SetRange();

  property Value: Integer; [rw]

end;

CDXUTSlider

CDXUTControl

TObject