const {Команды для диалога}

cmQui ~ 199 {Выход} cmSet = 200 {Поместить новый} cmDel ° 201 {Удалить существующий} cmRun =203 {Выполнить проверку} cmFresh=2O4 /Обновить информацию) cmAll = 205 {Выбрать все} стСО = 206 {Сменить каталог} cmCDW -= 207 {Сменить маску выбора файлов} стЕХЕ » 208 {Сменять СОМ на ЕХЕ и наоборот} type

{Основное диалоговое окно} PDWT="DWT;

DWT - object (TDialog)

Procedure HandleEvent(var Event: TEvent); Virtual;

Procedure AddFiles;

Procedure DelFiles;

Procedure FreshFiles;

end;

{Скроллер списка файлов} PFileListBox = "TFileListBox;

TFileListBox = object (TListBox)

PFL: PStringCollection; {Коллекция имен}

MarkL: Byte; {Длина маркера}

Procedure HandleEvent(var Event: TEvent); Virtual;

Procedure GetDir(WC: String);

Procedure MarkF(var s: String);

Procedure DemarkF(var s: String) ;

Procediire SetAll;

end;

{Строка ввода имени/маски файла} PInpLine » "TInpLine;

TInpLine •= object (TInputLine)

Procedure HandleEvent(var Event: TEvent); Virtual;

end;

{Окно режима добавления файлов}

PAddFileBox = "TAddFileBox;

TAddFileBox « object (TDialog)

WildC: String; {Маска} PL : PFileListBox; {Скроллер списка} PInL : PInpLine; {Строка ввода маски} PDir : PStaticText; {Имя каталога] Procedure HandleEvent(var Event: TEvent); Virtual;

Procedure SetFiles;

end;

{Окно режима удаления файлов}

PDelFileBox ""TDelFileBox;

TDelFileBox = object (TDialog

PL: PFileListBox; {Скроллер списка} Procedure HandleEvent(var Event: TEvent); Virtual;

end;

{Окно справочной служОы PMyHelpWindow =ATMyHelpWinc:ow;

TMyHelpWindow = object (THelpWindow)