Объясните мне : нахрена при получении следующего имени файла генерить маску (ту же !) и загружать ее в компонент StrMask по новой ?
Add(Edit,37612,266,189)
{
Left=59
Top=8
Width=461
Height=26
Font=[Arial,8,0,0,1]
WinStyle=4
Layout="editors"
SizeSp=0
Text="D:\test"
}
Add(Edit,92259,490,168)
{
Left=59
Top=39
Width=459
Height=26
Font=[Arial,12,1,0,1]
Layout="editors"
WidthScale=10
HeightScale=30
Text="15"
}
Add(Browse,5408233,224,189)
{
Title="Выбор папки для поиска"
Point(doDefaultFolder)
link(onBrowse,37612:doText,[])
}
Add(ListBox,1169110,546,266)
{
Left=60
Top=70
Width=460
Height=225
link(Str,5734442:Value,[(552,254)(592,254)(592,320)(377,320)])
}
Add(Button,6072246,175,189)
{
Top=10
Caption="dir"
link(onClick,5408233:doBrowse,[])
}
Add(Button,13814461,224,147)
{
Top=40
Caption="find"
link(onClick,14523755:doEvent1,[])
}
Add(FileSearch,9959232,322,266)
{
link(onSearch,5734442:doValue,[])
link(Dir,37612:Text,[(335,244)(272,244)])
}
Add(Hub,14523755,273,147)
{
OutCount=3
link(onEvent1,1169110:doClear,[(533,153)(533,279)])
link(onEvent2,11003245:doStrCat,[(385,160)(385,223)])
link(onEvent3,9959232:doSearch,[(305,167)(305,272)])
}
Add(MainForm,47236,175,147)
{
Left=312
Top=284
Width=531
Height=333
Color=-16777206
Caption="VSV Поиск"
BorderStyle=1
TransparentColor=10987431
Position=1
}
Add(StrCat,11003245,483,217)
{
Str1=" ст "
link(Str2,92259:Text,[])
}
Add(Position,2190966,476,266)
{
link(onSearch,1169110:doAdd,[])
link(Target,11003245:Result,[])
}
Add(StrCase,3000232,420,266)
{
link(onModify,2190966:doSearch,[])
}
Add(Memory,5734442,371,266)
{
link(onData,3000232:doModify,[])
}