end;

PD^.PL".NewList(PD'.PL^.PFL) ;

PD^.HelpCtx := 3;

{Выполняем}

DeskTop".ExecView(PD) ;

Dispose(PD,Done) end; {DelFilesf /——————————————;

Procedure TDelFileBox.HandleEvent;

iОбработчик событий окна удаления файла(ов)} var

R: TRect;

k: Integer;

s: String;

p: PWindow;

begin

TDialog.HandleEvent(Event) ;

case Event.What of evConmiand: case Event. Command of cmHelp: AntiV'.DoHelp;

cmAll: begin

PL^SetAll;

PL*.Draw;

ClearEvent(Event) end;

cmRun:

begin

R.Assign(15,10,65,13) ;

P :- New(PWindow,Init(R,'Удаляется файл:',0));

DeskTop^.Insert(P);

with PL'-,PFLA do for k := 0 to pred(count) do begin

s := GetText(k,255);

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

begin (Только для помеченных файлов} {Удаляем радикал и пробелы в имен^ while (s[Length(s)]=»251) or

(s[Length(s) ]"' ') do System.Delete(s,Length(s),1) ;

(Сообщаем имя удаляемого файла} R.Assign(1,1,48,2) ;

PA.Insert(New(PStaticText,Init(R,#3+s))) ;

DelFile(s) fУдаляем из архива} end end;

Dispose(P,Done);

EndModal(cmCancel) end {cmR.un} end; {case Event.Command} evKeyDown: case Event.KeyCode of kbLeft : SelectNext(True) ;

kbRight: SelectNext(False) end {case Event.KeyCode} end; {case Event.What} ClearEvent(Event) end; {TDelf'ileBox.HandleEvent}

{

^.__—-----———--—----——————---——-+