Помню что подобное вроде делал... Нашел - может пригодится
## Код:
```
PROCEDURE InitPage*;
      CONST
         mm = Ports.mm;
      VAR
         v: V.View; c: Models.Context; d: Documents.Document; dm: Models.Model;
         w, h, l, t, r, b: INTEGER; decorate: BOOLEAN;
   BEGIN
      v := V.Focus();
      IF v # NIL THEN
         c := v.context; ASSERT(c IS Documents.Context, 20);
         d := c(Documents.Context).ThisDoc(); dm := d.ThisView().ThisModel();
         d.PollPage(w, h, l, t, r, b, decorate);
         Models.BeginModification(Models.invisible, dm);
         d.SetPage(w, h, 10 * mm, 15 * mm, w - 10 * mm, h - 10 * mm, Documents.decorate);
         Models.EndModification(Models.invisible, dm)
      END
   END InitPage;
```
