-= DriveR =- писал(а):
как можно тоже самое реализовать опционально (флажком) ?
#sha
Add(MainForm,14513102,147,91)
{
Width=349
Height=281
}
Add(FileSearch,8062605,336,147)
{
link(onSearch,15574279:doWork2,[])
link(Dir,729144:Var3,[(349,128)])
}
Add(Edit,13967926,196,147)
{
Left=10
Top=30
Width=260
Text=""
link(onChange,6728803:doCompare,[])
}
Add(Label,11961580,105,49)
{
Left=10
Top=10
Width=172
Height=17
Caption="Укажите папку где лежат файлы"
}
Add(Button,10379888,105,147)
{
Left=275
Top=30
Caption="Обзор"
link(onClick,1142040:doBrowse,[])
}
Add(StyleXP,5956943,147,49)
{
}
Add(Browse,1142040,147,147)
{
link(onBrowse,13967926:doText,[])
}
Add(ListBox,5646009,406,147)
{
Top=109
Width=341
Height=145
Align=4
Point(doReplace)
}
Add(Label,7795811,106,91)
{
Left=10
Top=90
Width=93
Height=17
Caption="Найденые файлы"
}
Add(CheckBox,13244357,266,91)
{
Left=10
Top=50
Width=170
Caption="Искать во вложеных папках"
}
Add(FileSearch,16739247,315,196)
{
SubDir=1
link(onSearch,15574279:doWork3,[(382,202)])
link(Dir,729144:Var2,[])
}
Add(If_else,6728803,266,147)
{
Op2=Integer(1)
link(onTrue,8062605:doSearch,[])
link(onFalse,16739247:doSearch,[(303,160)(303,202)])
link(Op1,13244357:Checked,[])
}
Add(GetDataEx,729144,315,119)
{
Angle=3
link(Data,13967926:Text,[(263,128)(263,191)(202,191)])
}
Add(HubEx,15574279,378,140)
{
link(onEvent,5646009:doAdd,[])
}