TScrollingWinControl

type TScrollingWinControl = class(TCustomControl)

protected

  procedure WSRegisterClass; override;

WSRegisterClass - Register this Class for the current Widget Set

  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?

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

  function HasVisibleScrollbars; virtual;

Whether the scroll bars are visible

  function GetControlClassDefaultSize; override;

GetControlClassDefaultSize inserts its own defaults, overriding inherited values

  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;

TScrollingWinControl

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

TCustomControl

TCustomControl - a base class for many window controls

TWinControl

TWinControl - the base class for all windowed controls

TControl

TControl - the main ancestor class for visual controls.

TLCLComponent

TObject