Make(delphi) ver(4.04 build 185) Add(Mutex,13628893,189,42) { Name="LanScanner_ID218" } Add(MainForm,3527407,91,28) { Width=470 Height=304 Color=0 Caption="RegExp Parser" BorderStyle=1 Position=1 Point(onClose) link(onCreate,13628893:doCreateMutex,[]) link(onClose,13628893:doReleaseMutex,[(142,55)(142,62)]) } Add(TrayIcon,13222985,91,91) { Hint="RegExp Parser" link(onClick,13222985:doShow,[(134,97)(134,80)(79,80)(79,97)]) } Add(ODialog,9614841,322,168) { Filter="Текстовый документ|*.txt|Все файлы|*.*" FileName="Текстовый документ" link(onExecute,8359713:doSearch,[]) link(onCancel,6494004:doWork1,[(375,181)]) } Add(SearchInFile,8359713,441,168) { Point(onEnd) Point(doStop) link(onSearch,8781004:doExec,[]) link(onEnd,6494004:doWork2,[(480,188)(480,209)]) } Add(BitBtn,8809320,91,168) { Left=1 Top=222 Width=119 Height=25 Color=0 Font=[MS Sans Serif,8,1,16777215,1] Caption="Open file" link(onClick,15220599:doEvent1,[]) } Add(Thread,10756918,266,168) { Delay=1215752192 Point(doDelay) Point(doStopFlag) link(onExec,9614841:doExecute,[]) } Add(GlobalVar,1446390,189,133) { Name="Time" } Add(DoData,14457038,189,182) { link(onEventData,10756918:doDelay,[]) link(Data,1446390:Var,[]) } Add(Hub,15220599,147,168) { link(onEvent1,10756918:doStart,[]) link(onEvent2,14457038:doData,[(175,181)(175,188)]) } Add(BitBtn,5734803,91,266) { Left=353 Top=222 Width=110 Height=25 Color=-16777215 Font=[MS Sans Serif,8,1,16777215,1] Cursor=2 Caption="Save" Point(doEnabled) link(onClick,9926959:doExecute,[]) } Add(SDialog,9926959,196,266) { Filter="Текстовые файлы|*.txt" FileName="pars" link(onExecute,10233058:doSave,[]) } Add(BitBtn,5645387,91,217) { Left=244 Top=222 Width=107 Height=25 Color=0 Font=[MS Sans Serif,8,1,16777215,1] Caption="Clear" link(onClick,4568483:doEvent1,[]) } Add(BitBtn,12377275,91,308) { Left=122 Top=222 Width=120 Height=25 Color=0 Font=[MS Sans Serif,8,1,16777215,1] Cursor=2 Caption="Stop" Point(doEnabled) link(onClick,8268948:In,[]) } Add(LineBreak,1585821,392,175) { link(Out,8359713:doStop,[]) Primary=[8268948,-252,133] } Add(StyleXP,576142,91,133) { } Add(Memo,10233058,266,231) { Top=23 Width=465 Height=195 ScrollBars=3 } Add(RE_Search,8781004,504,175) { link(onMatch,15612968:doEvent1,[]) link(Expression,2802582:Text,[]) } Add(Counter,14567541,602,203) { Max=1316134911 Point(Max) link(onNext,9971399:doText,[]) } Add(Label,15915704,189,84) { Left=5 Top=255 Width=60 Color=0 Font=[MS Sans Serif,8,1,16777215,1] Caption="Progress:" } Add(Label,9971399,651,203) { Left=65 Top=255 Width=145 Color=0 Font=[MS Sans Serif,8,1,16777215,1] Caption="0" } Add(Edit,2802582,511,112) { Width=465 Text="'[^']+;[^']+'" } Add(Hub,4568483,140,217) { link(onEvent1,14567541:doReset,[]) link(onEvent2,10233058:doClear,[(210,230)(210,244)]) } Add(Hub,15612968,560,175) { link(onEvent1,11262621:doCopyFromStream,[]) link(onEvent2,14567541:doNext,[(590,188)(590,209)]) } Add(FileStream,11262621,602,161) { FileName="pars.txt" Mode=1 Point(doCopyFromStream) } Add(HubEx,6494004,371,203) { Angle=2 link(onEvent,10756918:doStopFlag,[(254,209)(254,195)]) }