## Код:
```
PROCEDURE ResizeDoc;
   BEGIN
      StdCmds.InitLayoutDialog;
      StdCmds.layout.wType := 0;
      StdCmds.layout.width := 40;
      StdCmds.SetLayout
   END ResizeDoc;
```


Смелее, товарищи, юзаем команды из кода и наоборот

Глобальные переменные как параметры в таких случаях рулят. Входные параметры могут приходить как от диалогов, так и программно. Выставляемый глобально результат может использоваться как программно, так и "человечески" через Global Variables - не нужно писать разные варианты...