TScrollBar

TControl that allows the user to select a position within a range by dragging a bar.

Inheritance

Level	Ancestor	Description
1	TObject	Ultimate ancestor in a class hierarchy
2	TBaseObject	A base class for objects that can be used instead of `TObject`.
3	TControl	Visual user interface element that can react to user input.
4	TScrollBar

UserInterface.Control.Scroll.Bar.pas (40)

Scope	Visibility	Type	Name
Instance	private	TScrollModel	FModel
Instance	private	T2dDimension	FDimension
Instance	protected	T2dDimension	OtherDimension
Instance	protected	TInteger32Size	ButtonSize
Instance	protected	TInteger32	BarSize
Instance	protected	TInteger32Interval	ThumbRange
Instance	protected	TScrollBarPart	DownPart
Instance	protected	TScrollBarPart	HotPart
Instance	protected	TScrollBarPart	PressedPart
Instance	protected	TInteger32	RepeatDelta
Instance	protected	TInteger32	OffsetInThumb
Instance	protected	TInteger32	StartPosition
Instance	protected	TBoolean	Dragging
Instance	protected	TTimer	FirstTimer
Instance	protected	TTimer	RepeatTimer

Scope	Visibility	Result	Name
Instance	private		SetModel(Value: TScrollModel)
Instance	private		SetDimension(Value: T2dDimension)
Instance	private	TInteger32	ComputeThumbSize()
Instance	private	TInteger32	ComputeThumbPosition(BarSize: TInteger32; ThumbSize: TInteger32)
Instance	protected	TScrollBarPart	PartWithPosition(Position: TInteger32Point)
Instance	protected		AdjustThumbPosition(Position: TInteger32)
Instance	protected		HandleDownPart()
Instance	protected	TButtonState	PartState(Part: TScrollBarPart)
Instance	protected		PaintButton(Canvas: TCanvas; Bounds: TInteger32Rectangle; State: TButtonState)
Instance	protected		PaintBackground(Canvas: TCanvas; Bounds: TInteger32Rectangle; State: TButtonState)
Instance	protected		HandleTimerFired(Timer: TTimer)
Instance	public		Create()
Instance	public		Destroy()
Instance	public		Paint(Canvas: TCanvas)
Instance	public	TBoolean	HandleEvent(Event: TEvent)
Instance	public	TBoolean	MouseLeftDown(Event: TMouseButtonEvent)
Instance	public	TBoolean	MouseLeftUp(Event: TMouseButtonEvent)
Instance	public	TBoolean	MouseMove(Event: TMouseMoveEvent)
Instance	public	TBoolean	MouseWheel(Event: TMouseWheelEvent)
Instance	public	TBoolean	MouseLeave(Event: TMouseLeaveEvent)
Instance	public	TInteger32Size	GetPreferredSize(AvailableSize: TInteger32Size)