406__________________________________________________Приложение

Р :» New(PLabel,Init(R,'~M~ Маска файлов:',PW^.PInL));

РН^.Insert(Р) ;

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

Р :-New(PHistory, Init(R,PHЛ.PInL,l)) ,• PW.Insert(P) ;

{Вставляем скроллер списка файлов} R.Assign(2,10,77,19);

RR.Assign(77,10,78,19);

ASB :- New(PScrollBar,Init(RR)) ;

PW.Insert(ASB) ;

New(PW^.PL,Init(R,4,ASB)) ;

PW.PL".GetDir(Wildcard) ;

PH".Insert(PW^.PL) ;

PW.PL^.MarkL := 15;

R.Assign(2,9,77,10) ;

P :- New(PLabel,Init(R,'~L~ Список файлов:',PW.PL));

PH".Insert(P) ;

{Вставляем кнопки! R.Assign (1,20,11,22) ;

PW^.Insert(New(PButton, Init(R,'~S~ Стоп',cmCancel,bfNormal))) ;

R.Assign (11,20,28,22) ;

PW.Insert(New(PButton, Init(R,'~A~ Выбрать все',cmAll,bfNormal)));

R.Assign (28,20,49,22) ;

PW.Insert(New(PButton, Init(R,'~D~ Сменить каталог',cmCD,bfNormal)));

R.Assign(49,20,63,22) ;

PW^.Insert(New(PButton, Init(R,'~R~ Добавить',cmRun,bfNormal))) ;

R.Assign(64,20,77,22) ;

PW.Insert(New(PButton, Init(R,'~E~ EXE/COM',cmEXE,bfMormal)));

PW^.HelpCtx := 2;

{Выполняем диалог)

DeskTop^.ExecView(PW)i

Dispose(PW,Done) ;

ChDir(pathO) /ВосстановДиваем текущий каталог} end {AddFlles}! ^————————————/

Procedure TAddFileBox.HandleEvent;

{Обработчик событий окна выбора файлов} vac

s: String;

PCD: PChDirDialog;

c: Word;

R: TRect;

p: Pointer;

label LI,All;

begin {TAddFileBox.HandleEvent] TDialog.HandleEvent(Event) ;

case Event.What of evCommand: case Event.Command of cmHelp: AntiV^.DoHelp;

cmExe: begin

if PInl^Data"-'*.СОМ' then

PInl^-Data^ :- '*.EXE else

Pin^-Data^ :° '*.COM';

PInl^.Draw;

goco LI end;

cmCDH: begin [Изменена маска выбора файлов)