[Overview][Constants][Types][Classes][Procedures and functions][Variables][Index] | Reference for unit 'Forms' (#lcl)

# TScrollingWinControl

[Properties (by Name)] [Methods (by Name)] [Events (by Name)]

TScrollingWinControl - a class of Window Control that has one or more scroll bars

## Declaration

Source position: forms.pp line 157

`type TScrollingWinControl = class(TCustomControl)`
``
`class procedure WSRegisterClass; override;` |  | WSRegisterClass - Register this Class for the current Widget Set
`protected`
`procedure AlignControls(); override;` |  | AlignControls - calls inherited AlignControls, then calculates sizes for the scrollbars if required
`procedure CreateWnd; override;` |  | CreateWnd - performs inherited CreateWnd then updates ScrollBars
`function GetClientScrollOffset; override;` |  | GetClientScrollOffset - finds the position for scrollbars from the client, if any, otherwise sets default postiions
`function GetLogicalClientRect; override;` |  | GetLogicalClientRect - adjusts client rect to allow for size of scrollbars
`procedure DoOnResize; override;` |  | DoOnResize - performs inherited DoOnResize then updates scrollbars if needed
`procedure WMHScroll(); message;` |  | WMHScroll - system message method for horizontal scrolling
`procedure WMVScroll(); message;` |  | WMVScroll - system message method for vertical scroling
`function ComputeScrollbars; virtual;` |  | ComputeScrollbars - returns True if scroll bar positions need to be computed
`procedure ScrollbarHandler(); virtual;` |  | ScrollbarHandler - method for handling scroll bars of specified kind at specified position
`procedure SetAutoScroll(); virtual;` |  |
`procedure Loaded; override;` |  | Loaded - calls inherited Loaded and updates scroll bars
`property AutoScroll: Boolean; [rw]` |  | Does auto-scrolling apply?
`procedure SetAutoSize(); override;`
`public`
`constructor Create(); override;` |  | Create - constructor for TScrollingWinControl: performs inherited Create then creates and intiialises the scrollbars
`destructor Destroy; override;` |  | Destroy - destructor for TScrollingWinControl: frees the horizontal and vertical scrollbars, then performs inherited Destroy
`procedure UpdateScrollbars;` |  | Update the position of the scroll indicatores in the scroll bars
`public`
`class function GetControlClassDefaultSize; override;` |  | GetControlClassDefaultSize inserts its own defaults, overriding inherited values
`public`
`procedure ScrollBy();` |  | ScrollBy - amount by which to scroll
`published`
`property HorzScrollBar: TControlScrollBar; [rws]` |  | The properties of the horizontal scroll bar
`property VertScrollBar: TControlScrollBar; [rws]` |  | The properties of the vertical scroll bar
`end;`

## Inheritance

`TScrollingWinControl` |  | TScrollingWinControl - a class of Window Control that has one or more scroll bars
`TCustomControl` |  | TCustomControl - a base class for many window controls
`TWinControl`
`TControl`
`TLCLComponent` |  | TLCLComponent - base class for LCL components
`TComponent,IUnknown,IInterfaceComponentReference`
`TPersistent`
`TObject`

## Description

Scrolling Window Control: A window control with scroll bars. An ancestor class for many forms with scrolling windows

The latest version of this document can be found at lazarus-ccr.sourceforge.net .