Теория и практика объектно-ориентированного программирования. Ноткин А.М. - 49 стр.

                                   50
                  Command:Word;
                  end;
      В свою очередь записи TStatusItem создаются функцией New-
StatusKey.
      Пример:
        Procedure TMyApp.InitStatusLine;
        Var r:TRect;
        Begin
        GetExtent(r);
        r.a.y:=pred(r.b.y);
        StatusLine:=New(PStatusLine,Init(r,NewStatusDef(0,$FFFF,
                  NewStatusKey('~Alt-X~ Выход',kbAltX,cmQuit,
                  NewStatusKey('~F2~ Закрыть',kbF2,cmSaveFile,
                  NewStatusKey('~F3~ Открыть',kbF3,cmOpenFile,
                  NewStatusKey('~F4~ Работа',kbF4,cmWork,
                  NewStatusKey('~F10~ Меню',kbF10,cmMenu,
                  Nil))))),Nil)));
        End;


      •Окна. Окно в TV − это объект класса TWindow, владеющий специ-
альной рамкой(TFrame) и, как правило, объектами TScroller и TScrollBar,
которые позволяют осуществлять скроллинг не размещающейся в окне
информации.
      Как правило, в программе используется потомок TWindow, так как
для конкретных окон необходимо переопределить метод Init для размеще-
ния в окне его компонентов и метод HandleEvent для соответствующей об-
работки событий, предназначенных окну.
      Для того чтобы отобразить что-нибудь в окне (например, текст), не-
обходимо поместить внутрь окна специальный отображаемый объект, ко-
торый отвечал бы за содержимое окна. Для этой цели используется объект
класса TScroller. Следует создать потомок TScroller и переопределить в
нем метод Draw для того, чтобы наполнить поле скроллера соответствую-
щей информацией. Имеются четыре метода класса TView, которые исполь-
зуются в методе Draw для размещения в скроллере текстовых строк:
WriteBuf, WriteLine, WriteStr, WriteChar. Для копирования в буфер ис-
пользуются следующие глобальные процедуры: MoveBuf, MoveStr,
MoveChar, MoveCStr.
      Пример:
           PInterior =^TInterior;
           TInterior =object(TScroller)
            Constructor Init(Var Bounds:TRect;HS,VS:PScrollBar);