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

                                     51
           Procedure Draw;Virtual;
           end;

       Lines :array[1..MaxLine] of string[LLines]; {массив для хранения
прочитанных из файла строк}
       Constructor TInterior.Init(Var Bounds:Trect;HS,VS:PScrollBar);
       Begin
       inherited Init(Bounds,HS,VS);
       ReadFile; {прочитать в память текстовый файл}
       GrowMode:=gfGrowHiX+gfGrowHiY;
       SetLimit(LLines,Nlines)
       End;

       Procedure TInterior.Draw;
       var
        Color: Byte;
        n,k: Integer;
        B: TDrawBuffer;
       begin
        Color := GetColor(1);
        for n := 0 to Size.Y - 1 do
        begin
         MoveChar(B, ' ', Color, Size.X);
         k := Delta.Y + n+1;
         MoveStr(B, Copy(Lines[k], Delta.X + 1, Size.X), Color);
         WriteLine(0, n, Size.X, 1, B);
        end;
       end;

      Порядок выполнения лабораторной работы.
      1. Сформировать меню прикладной TV-программы. Горизонтальное
меню должно содержать следующие пункты:
      • Файл
      • Работа
      Меню Файл содержит следующие подпункты:
      • Открыть файл
      • Закрыть файл
      • Сменить каталог
      • Выход
      При выборе пункта Работа просматривается открытый текстовый
файл.