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

                                   44

              Лабораторная работа № 5
ПРОСМОТР ТЕКСТОВОГО ФАЙЛА В ОКНЕ СО СКРОЛЛИНГОМ

      Цель. Получить практические навыки создания простой интерактив-
ной программы с использованием библиотеки Turbo Vision в среде Borland
Pascal.

      Основное содержание работы.
      Написать и отладить объектно-ориентированную программу для
просмотра текстового файла. Программа должна содержать меню (объект
TMenuBar) и строку состояния (объект TStatusLine). Для просмотра фай-
ла использовать объект TWindow, для скроллинга − TScroller. Написать
обработчик событий программы (метод HandleEvent).
      Краткие теоретические сведения.
      •Программирование в Turbo Vision. Сущность программирования
в TV − это проектирование того, что видит пользователь на экране, и того,
что делать, когда получена та или иная команда. В связи с этим програм-
мирование делится на две относительно независимые части:
      1) проектирование элементов экрана, с которыми взаимодействует
пользователь. В TV − это отображаемые объекты;
      2) проектирование реакции программы на те или иные действия
пользователя или на сообщения, посылаемые объектами. В TV − это обра-
ботка событий.
      Библиотека Turbo Vision содержит достаточное число отображаемых
объектов для создания стандартного интерфейса прикладной программы.
Задача программиста состоит в выборе необходимых объектов и перекры-
тия некоторых методов, применительно к требованиям конкретной при-
кладной программы.
      Интерфейс интерактивной программы содержит обычно панель эк-
рана (TDeskTop), меню (TMenuView) и строку состояния (TStatusLine).
Эти элементы создаются и вставляются в программу при вызове метода
TProgram.Init (MyApp.Init). На панели экрана размещаются окна (TWin-
dow), в том числе и диалоговые (TDialog) и различные элементы управле-
ния − кнопки, кластеры, строки ввода.
      Программа на Turbo Vision выглядит следующим образом:
      Type TMyApp=object(TApplication)
      Procedure HandleEvent(Var Event:TEvent);virtual;
      Procedure InitMenuBar;virtual;
      Procedure InitStatusLine;virtual;
      {объявление других методов, если они необходимы}