TVstWindowSizer

type TVstWindowSizer = class(TObject)

protected

  FAnchoredWindows: TObjectList;

  FEditorInfo: TWindowInfo;

  FEffect: TCustomVSTModule;

  FFrameHwnd: HWND;

  FHostApp: THostApp;

  FHostCanResize: Boolean;

  FPreventChildSIze: Integer;

  FRect: TRect;

  FResizeFlags: TResizeFlags;

  FResizeOffset: TPoint;

  FSizingCursor: TCursor;

  FStartMouseOffset: TPoint;

  FTrackingInitialized: Boolean;

  FWindowsAdjust: TObjectList;

  FConstraints: TSizeConstraints;

  function HitTest;

  function OnButtonDown;

  function OnButtonUp;

  function OnMouseMove;

  procedure ApplyFrameSizeLimits();

  procedure ClientRectToScreen();

  procedure DetectHost;

  procedure EndTracking();

  procedure FixupWindowSize;

  procedure ScreenRectToClient();

  procedure SetEffect();

  procedure SetupTracking;

  procedure TrackParentWindowSize();

  procedure UpdateAnchoredWindow();

  procedure UpdateEdgeCursor;

public

  constructor Create; virtual;

  destructor Destroy; override;

  function GetCurrentSize;

  procedure SetAnchoredWindow();

  procedure SetCurrentSize();

  procedure SetEditorHwnd();

  property Effect: TCustomVSTModule; [rw]

  property Constraints: TSizeConstraints; [r]

end;

TVstWindowSizer

TObject