Код:
MODULE PrivResizeWrap;
IMPORT Log := StdLog, ypkHostCmds, ypkHostWindows, ypkHostWin;
CONST
path = 'Priv/Rsrc/ResizeWrap2';
title = 'Проба ресайза обернутой формы';
PROCEDURE Do*;
VAR w: ypkHostWindows.Window;
BEGIN
w := ypkHostCmds.OpenWin(ypkHostCmds.ThisMask(path), title, NIL, '', NIL, {ypkHostWindows.isAux, ypkHostWindows.neverDirty, ypkHostWindows.noVScroll, ypkHostWindows.noHScroll});
END Do;
PROCEDURE WindowNotifier* (op, from, to: INTEGER);
BEGIN
CASE op OF ypkHostWin.resize:
Log.String('PrivResizeWrap: resize'); Log.Ln;
ELSE
END
END WindowNotifier;
END PrivResizeWrap.
PrivResizeWrap.Do
P.S. На форму бросается якорь ypkHostWin.Deposit