Вот написал начало, непонятно что делать дальше, прошу помощи. Надо чтобы при запуске программа сама открыла файл и отобразила его в окне. Прикрепляю exe файл, это то, как должна работать программа.
Program MyPhoneBook;
Uses App,Objects,Menus,Drivers,Views,MsgBox,StdDlg,Dos,Memory,Editors,Dialogs;
{Используемые модули библиотеки Turbo Vision}
const {TPhonebook.InitStatusLine}
{Команды для обработчиков событий:}
cmSerch=203; {Поиск по записям}
cmAdd=204; {Добавить запись}
cmDelete=205;{Удалить запись}
WinComl:TCommandSet=[];{Множество временно недоступных команд}
type
TPhoneBook=object(TApplication)
procedure InitMenuBar;virtual;
procedure InitStatusLine;virtual;
end;
Procedure TPhoneBook.InitMenuBar;{Создание верхнего меню}
var
R:TRect;
begin
GetExtent® ;
R.B.Y:=succ(R.A.Y);{R - координаты, строки меню}
MenuBar:=New(PMenuBar,Init(R,NewMenu({Создаем меню}
{Первый элемент нового меню представляет собой подменю (меню второго уровня) . Создаем его}
NewSubMenu('Меню',hcNoContext,
{Описываем элемент главного меню}
NewMenu({Создаем подменю}
NewItem({Второй элемент}
'~1~/Поиск','',kbF2,cmSerch,hcNoContext,
NewItem({Третий элемент}
'~2~/Добавить','',0,cmAdd,hcNoContext,
NewItem('~3~/Удалить','',0,cmDelete,
hcNoContext,
NIL))){Нет других элементов подменю}),
{Создаем второй элемент главного меню}
NewItem('Выход','E',kbAltX,cmQuit,hcNoContext,
NIL){Нет других элементов главного меню}))))
end;
Procedure TPhoneBook.InitStatusLine;
{Описание нового метода, с помощью которого создается строка статуса}
var
R:TRect;{Границы строки статуса}
begin
GetExtent®;{Получаем в R координаты всего экрана}
R.A.Y:=pred(R.B.Y);{Помещаем в R координаты строки статуса}
{Создаем строку статуса:}
StatusLine:=New(PStatusLine,Init(R,
NewStatusDef(0,$FFFF,{Устанавливаем для этого варианта максимальный диапазон контекстной справочной службы}
NewStatusKey('~F1~ Меню',kbF1,cmMenu,
NewStatusKey('~F2~ Поиск',kbF2, cmSerch,
NewStatusKey('~F3~ Добавить',kbF3,cmAdd,
NewStatusKey('~F4~ Удалить',kbF4,cmDelete,
NewStatusKey('~Alt-X~ Выход',kbAltX,cmQuit,nil))))),{Нет других клавиш}
nil){Нет других определений}
));
DisableCommands(WinComl){Запрещаем недоступные команды}
end;
var
PhoneBook:TPhoneBook;
begin
PhoneBook.Init;{Подготовить работу программы}
PhoneBook.Run;{Выполнить необходимые действия}
PhoneBook.Done{Завершить исполнение программы}
end.