LI:

S :~ Pinl." .Data"; (Новая маска} PL^biSt :- NIL;

{Удаляем коллекции} Dispose(PLЛ.PFL, Done);

WildC :- S;

{Создаем новую коллекцию} PL^GetDirO) end;

cmCD: begin {Сменить каталог}

{Выбираем новый диск/каталог:} NewlPCD, Init(0,0));

с := DeskTop^.ExecView(PCD);

GetDir(0,s);

{s - имя нового каталога.Удаляем старое юля из окна} Dispose(PDir,Done);

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

{Сообщить новое имя} PDir := New(PStaticText,Init(R,*3+'Каталог '+s));

Insert(PDir) ;

Goto LI;

end;

cmAll: begin {Выбрать все файлы) All: PL^SetAll;

PL".Draw end;

cmRun: SetFiles; {Добавить файлы в архив} end;

evKeyDown: case Event.KeyCode of kbLeft: SelectNext(True) ;

kbRight: SelectNext(False) ;

kbGrayPlus: Goto All;

end; {case Event.KeyCode} end; /case Event.What} ClearEvent(Event) end; {TAddFi 1 aBox. Hand-1 eEven t} ^————————————;

Procedure TAddFileBox.SetFiles ;

{Помещает в архив выбранные файлы.} var

S,ss: String;

k: Integer;

R: TRect;

p: PWindow;

PS: PString;

begin

{Сообщаем о добавлении файлов:} R.Assign(15,10,65,13) ;

P := New(PWindow,Init(R,'Добавляется файл:',0));

DeskTop".Insert(P) ;

{Выбираем из коллекции меченые файлы:} with PL^PFL" do for k := 0 to pred(count) do begin

s := GetText(k,255);

if s[Length(s)] = #251 then

begin (Выбран очередной меченый файл DemarkF(s); {Удаляем метку} System.GetDir(0,ss);