TScrollingWinControl

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;

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