case Control of

StdDlg.cmFileOpen,cmOk:

begin {польов. указал имя файла:}

PF^.GetFileName(s); {s содержит имя файла}

Assign(DataFile,s);

{$I-}

Reset(DataFile);

if IOResult <> 0 then

Rewrite(Datafile);

OpFileF := IOResult=0;

{$I+}

if OpFileF then

begin

DisableCommands(WinCom2);

EnableCommands(WinCom1);

Work {переход к работе}

end

end;

end; {caseControl}

Dispose(PF, Done) {уничтожение экземпляра}

end; {FileOpen}

{---------------------------}

procedure TNotebook.FileSave;

{закрывает файл данных}

begin

Close(DataFile);

OpFileF :=False;

EnableCommands(WinCom2); {разрешение открыть файл}

DisableCommands(WinCom1) {запрещение работы и сохранение}

end; {TNotebook.FileSave}

{--------------------------}

procedure TNotebook.ChangeDir;

{изменяет текущий каталог}

var

PD: PChDirDialog; {диалоговое окно смены каталога диска}

Control: Word;

begin

New(PD, Init(cdNormal,0)); {создание диалогового окна}

Control :=DeskTop^.ExecView(PD); {использование окна}

ChDir(PD^.DirInput^.Data^); {установка нового каталога}

Dispose(PD, Done) {удаление окна из кучи}

end; {TNotebook.ChangeDir}

{-------------------------}

procedure TNotebook.DOSCall;

{временный выход в дос}

const

txt='Для возврата введите EXIT в ответ'+

'на приглашение ДОС .';

begin

DoneEvents; {закрыть обработчик событий}

DoneVideo; {закрыть монитор экрана}

DoneMemory; {закрыть монитор памяти}

SetMemTop(HeapPtr); {освободить кучу}

writeln('Введите EXIT для возврата'); {выдать сообщение о выходе}

SwapVectors; {установить стандартные векторы}

{передать упр. ком. процессору дос}

Exec(GetEnv('COMSPEC'),'');

{возврат из дос}

SwapVectors; {восстановить векторы}

SetMemTop(HeapEnd); {восстановить кучу}

InitMemory; {открыть монитор памяти}

InitVideo; {открыть монитор экрана}

InitEvents; {открыть обработчик событий}

InitSysError; {открыть обработчик ошибок}

Redraw {восстановить вид экрана}

end; {DOSCall}

{------------------------------}

constructor TInterior.Init;

{создает окно скроллера}

begin

TScroller.Init(Bounds, HS, VS);

ReadFile;

GrowMode :=gfGrowHiX+gfGrowHiY;

SetLimit(LLine, PS^.Count)

end;

{-----------------------}

destructor TInterior.Done;

begin

Dispose(PS,Done);

inherited Done

end;

{--------------------------}

procedure TInterior.ReadFile;

{читает содержимое файла данных в массив LINES}

var

k: Integer;

s: String;

Data: DataType;

f: text;

begin

PS:= New(PStringCollection, Init(100,10));

seek(DataFile,0);

while not (EOF(DataFile) or LowMemory) do

begin

Read(DataFile, data);

with data do

begin

s:= Name;

while Length(s) < Lname do

s:= s+' ';

s:= s+Phone;

while Length(s) < LName+LPhone do

s:= s+' ';

s:= s+Addr

end;

if s<>'' then PS^.Insert(NewStr(S))

end;

Location:= 0;

end; {ReadFile}

{----------------------------}

procedure Tinterior.Draw;

{выводит данные в окно просмотра}

var

n, {текущая строка экрана}

k: integer; {текущая строка массива}

B: TDrawBuffer;

Color: Byte;

p: PString;

begin

if Delta.Y>Location then

Location:= Delta.Y;

if Location>Delta.Y+pred(Size.Y) then

Location:= Delta.Y+pred(Size.Y);

for n:= 0 to pred(Size.Y) do

{Size.Y- кол-во строк окна}

begin

k:= Delta.Y+n;

if k=Location then

Color:= GetColor(2)

else

Color:= GetColor(1);

MoveChar(B,' ',Color,Size.X);

if k<pred(PS^.Count) then

begin

p:= PS^.At(k);

MoveStr(B, Copy(p^,Delta.X+1,Size.X),Color);

end;

writeline(0,N,Size.X,1,B)

end

end; {TInterior.Draw}

{-----------------------------}

Function Control: Word;

{получает команду из основного диал. окна}

const

x=1;

L=12;

DX=13;

But: array [0 4] of string [13]= {надписи на кнопках}

('~1~ Выход ','~2~ Убрать ','~3~ Искать ','~4~ Изменить ','~5~ Добавить ');

Txt: array [0 3] of string [52] = (

{справочный текст}

'Убрать - удалить запись, выделенную цветом',

'Искать - искать запись, начинающуюся с нужных букв',

'Изменить - изменить поле (поля) выделенной записи',

'Добавить - добавить новую запись');

var

R: TRect;

D: PDlgWin;

k: Integer;

begin

R.Assign(7,6,74,15);

D:=New(PDlgWin,Init(R, 'Выберите продолжение:'));

with D^ do

begin

for k:=0 to 3 do {вставляем поясняющий текст}

begin

R.Assign(1,1+k,65,2+k);

Insert(New(PStaticTEXT,Init(R,#3+Txt[k])))

end;

for k:=0 to 4 do {вставляем кнопки:}

begin

R.Assign(X+k*DX,6,X+k*DX+L,8);

Insert(New(PButton,

Init(R,But[k],cmCan+k,bfNormal)))

end;

SelectNext(False); {активизируем первую кнопку}

end;

Control:=DeskTop^.ExecView(D); {выполняем диалог}

end;{Conrol}

{------------}

Procedure TInterior.HandleEvent;

Procedure DeleteItem;

{удаляет указанный в Location эл-т данных}

var

D: Integer;

PStr: PString;

s: String;

Data: DataType;

begin

PStr:=PS^.At(Location); {получаем текущую запись}

s:=copy(PStr^,1,LName);

seek(DataFile,0);

D:=-1; {D-номер записи в файле}

repeat {цикл поиска по освпадению поля Name:}

inc(D);

read(DataFile,Data);

with Data do while Length(Name)<LName do

Name:=Name+' '

until Data.Name=s;

seek(DataFile,pred(FileSize(DataFile)));

read(DataFile,Data); {читает последнюю запись}

seek(DataFile,D);

write(DataFile,Data); {помещает ее на место удаляемой}

seek(DataFile,pred(FileSize(DataFile)));

truncate(DataFile); {удаляет последнюю запись}

with PS^ do D:=IndexOf(At(Location));

PS^.AtFree(D); {удаляет строку из коллекции}

Draw {обновляет окно}

end;{DeleteItem}

{----------------------}

procedure AddItem(Edit: Boolean);

{добавляет новый или редактирует элемент данных}

const

y=1;

dy=2;

L=LName+LPhone+LAddr;

var

Data: DataType;

R: TRect;

InWin: PDialog;

BName,BPhone,BAddr:PInputLine;

Control: Word;

OldCount: Word;

s: String;

p: PString;

begin

Seek(DataFile,FileSize(DataFile)); {добавяет записи в конец файла}

repeat {цикл ввода записей}

if Edit then {готовит заголовок}

s:='Редактирование'

else

begin

Str(FileSize(DataFile)+1,s);

while Length(s)<3 do

s:='0'+s;

s:='Вводится запись N'+s

end;

FillChar(Data,SizeOf(Data),' '); {заполняет поля пробелами}

R.Assign(15,5,65,16);

InWin:=New(PDialog, Init(R, s)); {создает окно}

with InWin^ do

begin {формируем окно:}

R.Assign(2,y+1,2+LName,y+2);