Можно так
Add(MainForm,2953706,0,91) { } Add(Button,10436757,49,91) { Left=10 Top=85 Width=95 Height=25 Font=[Arial,9,0,0,204] Caption="Удалить" link(onClick,10013423:doEvent1,[]) } Add(ODialog,4948524,140,98) { Filter="cfg|*.cfg" Title="УДАЛЕНИЕ файла конфигурации" FileName="" Point(StartDir) } Add(Hub,10013423,105,91) { link(onEvent1,15145449:doStart,[]) link(onEvent2,4948524:doExecute,[]) } Add(WinEnum,10380141,266,84) { VisibleOnly=1 link(onFindWindow,14516471:doEnumChildWindows,[]) link(Caption,5011281:Text,[]) } Add(WinEnum,14516471,357,63) { Point(doEnumChildWindows) Point(onEnumChildWindows) Point(ParentHandle) link(onEnumChildWindows,3585944:doStr,[]) link(ParentHandle,10380141:Handle,[(370,51)(321,51)(321,128)(272,128)]) } Add(MT_String,3585944,413,77) { link(onResult,9018304:doCompare,[]) } Add(VisualStrings,5011281,266,49) { Lines=#27:УДАЛЕНИЕ файла конфигурации| } Add(StrMask,9018304,462,77) { Mask="*Button;*;&Открыть*" link(onTrue,5988400:doSplit,[]) } Add(MultiStrPart,5988400,511,84) { link(onSplit,15918280:doEvent1,[]) } Add(SendMessage,13367039,518,259) { Message=10 link(Handle,5988400:Part2,[]) link(LParam,4055860:Memory,[]) } Add(MemoryStream,4055860,518,147) { Stream=[ZIP6300000078DA05C1410EC2201005D0137D50134DEADA85AE8D07F88DC5A2E04C605ACAEDFBDE6CA6F5EA7D6BCD49DADC422F63E79AA67F9CBC16793323880955596808CB37869832EA69381F50F16331E950E64E8B385EF019F1B8B5FB6B7BBAD972DA0138AE2415] Point(Memory) Point(doSize) } Add(Hub,2436151,413,154) { OutCount=4 link(onEvent1,4055860:doClear,[]) link(onEvent2,1521875:doLength,[]) link(onEvent3,12194962:doPut,[(449,174)(449,209)]) link(onEvent4,13367039:doSendMessage,[(444,181)(444,265)]) } Add(Length,1521875,455,161) { link(onLength,4055860:doSize,[]) } Add(DataToFile,12194962,518,203) { Type=6 link(Stream,4055860:Stream,[]) } Add(VisualStrings,11960187,364,154) { Lines=#7:Удалить| Point(doText) Point(onText) link(onText,2436151:doEvent1,[]) } Add(Thread,15145449,217,91) { Delay=10 Point(doStopFlag) link(onExec,10380141:doFind,[]) } Add(Hub,15918280,553,84) { link(onEvent1,15145449:doStopFlag,[(579,90)(579,44)(203,44)(203,111)]) link(onEvent2,11960187:doText,[(579,97)(579,129)(352,129)(352,160)]) }
|