cmRun: begin

Stop := False;

TDialog.Done;

Event.Command := cmCancel;

Exit end;

cmFresh: FreshFiles;

else

Exit end;

ClearEvent(Event) end;

evKeyboard: (Клавиши Left-Right! begin

case Event.KeyCode of

kbLeft: SelectNext(True);

kbRight: SelectNext(False) ;

end;

ClearEvent(Event) end;

end end; {DWT.HandleEvent}

{

+————-——————————————-—+

I Обработка команды "Добавить файл" I

+--—------------_————---———————+

/ Procedure DWT.AddFiles;

{Обеспечивает выбор файлов из списка и помещает выбранные файлы в архив} vac

R,RR : TRect; {Координаты}

PathO: String; {Начальный каталог}

РН : PAddFileBox; {Окно выбора файлов}

ASB : PScrollBar; {Полоса скроллера}

Р : PView; (Вспомогательные элементы} const

с1 = 'Используйте клавиши курсора';

с11=- ' и Insert для выбора файла';

с2 = 'ESC - отказаться и выйти';

Wildcard: String" '*.*';

begin

GetDir(0,PathO); {PathO- каталог по умолчанию!

{Создаем диалоговое окно выбора файлов)

R.Assign(О,О,80,23) ;

PW := New (PAddFileBox, Init (R, "));

PW^.WildC := Wildcard;

{Вставляем поясняющий текст}

R.Assign(l,l,79,4);

W.Insert(New(PStaticText,Init(R,»3+cl+cll+#13#3+c2)) ) ;

R.Assign(l,4,79,5);

PW".PDir := New(PStaticText,Init(R,#3+'Каталог '+path0));

PH". Insert (PW.PDir) ;

{Вставляем строку выбора имени/маски}

R.Assign(25,7,52,8) ;

PW.PInL := New(PInpLine, Init(R,40));

with PW.PInL" do

State :- State or sfCursorVis;

PWЛ.PInLЛ.DataA :- Wildcard;

PW.Insert(PW.PInL);

R.Assign(25,6,52,"?) ••