CDXUTScrollBar

type CDXUTScrollBar = class(CDXUTControl)

protected

  m_bShowThumb: Boolean;

  m_bDrag: Boolean;

  m_rcUpButton: TRect;

  m_rcDownButton: TRect;

  m_rcTrack: TRect;

  m_rcThumb: TRect;

  m_nPosition: Integer;

  m_nPageSize: Integer;

  m_nStart: Integer;

  m_nEnd: Integer;

  m_LastMouse: TPoint;

  m_Arrow: TDXUTScrollBar_ArrayState;

  m_dArrowTS: Double;

  procedure UpdateThumbRect;

  procedure Cap;

  procedure SetTrackPos();

  procedure SetPageSize();

public

  constructor Create(); override;

  destructor Destroy; override;

  function HandleKeyboard(); override;

  function HandleMouse(); override;

  function MsgProc(); override;

  procedure Render(); override;

  procedure UpdateRects; override;

  procedure SetTrackRange();

  procedure Scroll();

  procedure ShowItem();

  property TrackPos: Integer; [rw]

  property PageSize: Integer; [rw]

end;

CDXUTScrollBar

CDXUTControl

TObject