TScrollingSupport

type TScrollingSupport = class

public

  constructor Create();

  destructor Destroy; override;

  function ProcessEvent();

  function DistributeEvent();

  function SendToChild();

  procedure CalcSizes;

  procedure Resized;

  function CalcClientSize();

  procedure SetVirtualSize();

  function ScrollPos;

  procedure DefHorzScrollHandler();

  procedure DefVertScrollHandler();

  property Borders: TRect; [r]

  property ClientRect: TRect; [r]

  property HorzScrollBar: TScrollBar; [r]

  property VertScrollBar: TScrollBar; [r]

  property OnClientRectChange: TNotifyEvent; [rw]

end;

TScrollingSupport

TObject