Вверх ↑
Ответов: 286
Рейтинг: 5
#1: 2022-07-03 02:09:21 ЛС | профиль | цитата
Gunta,sla8a неожидано.Я такой алгоритм даже не продумывал.Gunta в том то и дело что эталонная папка допустим *drawable-xhdpi* находится в одной папке с другими папками.На ум приходит только КОПИРОВАТЬ-УДАЛИТЬ-ВСТАВИТЬ.
Add(Button,1032059,14,147)
{
Left=45
Top=10
Width=120
Caption="эталонная папка"
link(onClick,5449089:doBrowse,[])
}
Add(Button,1454278,329,329)
{
Left=280
Top=30
Width=215
Caption="Папка где найти и удалить лубликаты"
link(onClick,8782185:doEvent1,[])
}
Add(FileSearch,9717498,567,217)
{
Ext="*.png"
TimeType=1
link(onSearch,3582628:doPart,[])
link(onEndSearch,8658984:doData,[(606,230)(606,293)])
}
Add(MainForm,11209390,154,49)
{
Width=602
Height=659
}
Add(Memo,2318742,742,266)
{
Left=15
Top=75
Width=195
Height=255
}
Add(Memo,10164561,899,251)
{
Left=235
Top=75
Width=330
Height=270
link(Str,1547101:Var3,[(905,208)])
}
Add(FilePartElm,3582628,616,217)
{
link(onPart,8494641:doAdd,[])
}
Add(Browse,6763020,462,336)
{
Title="Папка где искать дубликаты"
NewDirButton=1
link(onBrowse,6566935:doSearch,[])
}
Add(FileSearch,6566935,511,336)
{
Ext="*.png"
TimeType=1
link(onSearch,14001984:doValue,[])
}
Add(StrList,8494641,679,217)
{
Point(doGetIndex)
Point(onGetIndex)
link(onGetIndex,15132075:doCompare,[])
}
Add(DoData,8658984,679,287)
{
link(onEventData,2318742:doText,[])
link(Data,8494641:Text,[])
}
Add(Memory,14001984,560,336)
{
link(onData,8211724:doPart,[])
}
Add(FilePartElm,8211724,609,336)
{
link(onPart,8494641:doGetIndex,[(655,342)(655,251)])
}
Add(If_else,15132075,742,224)
{
Op2=Integer(-1)
link(onFalse,2652295:doEvent1,[])
}
Add(FileTools,539386,826,217)
{
link(FileName,1547101:Var1,[(832,208)])
}
Add(Hub,2652295,791,231)
{
link(onEvent1,539386:doDelete,[])
link(onEvent2,10164561:doAdd,[(816,244)(816,257)])
}
Add(GetDataEx,1547101,875,203)
{
Angle=2
link(Data,14001984:Value,[(881,390)(566,390)])
}
Add(StrMask,13872315,196,147)
{
Mask="*drawable*"
Point(doMask)
link(onTrue,10491973:doCompare,[])
}
Add(StrMask,10491973,245,154)
{
Mask="*hdpi*"
Point(doMask)
link(onFalse,8824824:doCompare,[(289,160)(289,132)])
link(onTrue,132297:doWork2,[])
}
Add(StrMask,8824824,301,126)
{
Mask="*mdpi*"
Point(doMask)
link(onFalse,7082500:doCompare,[])
link(onTrue,132297:doWork1,[(340,139)])
}
Add(Memo,5536696,420,161)
{
Left=84
Top=437
Width=340
Height=182
AddType=1
ScrollBars=2
Point(doLoad)
Point(SelText)
Point(onSetFocus)
Point(onMouseEnter)
}
Add(HubEx,132297,336,161)
{
link(onEvent,9455963:doWork2,[])
}
Add(StrMask,7082500,357,126)
{
Mask="*ldpi*"
Point(doMask)
link(onTrue,9455963:doWork1,[(403,139)])
}
Add(HubEx,9455963,399,161)
{
link(onEvent,5536696:doAdd,[])
}
Add(FileSearch,14184120,140,147)
{
FullName=1
Include=1
link(onSearch,13872315:doCompare,[])
}
Add(Browse,5449089,56,147)
{
Title="Папка где искать дубликаты"
NewDirButton=1
link(onBrowse,8494145:doText,[])
}
Add(Edit,8494145,98,147)
{
Left=60
Top=45
Width=195
Text=""
link(onChange,14184120:doSearch,[])
}
Add(FormatStr,12548257,518,217)
{
Mask="%2\\res\%1"
Point(FString)
link(onFString,9717498:doSearch,[])
link(Str1,11257383:Value,[(524,205)(486,205)(486,261)(447,261)])
link(Str2,8494145:Text,[(531,198)(104,198)])
}
Add(Memory,11257383,441,217)
{
Point(Data)
link(onData,12548257:doString,[])
link(Data,5536696:SelText,[])
}
Add(Hub,8782185,378,329)
{
link(onEvent1,11257383:doValue,[(416,335)(416,223)])
link(onEvent2,6763020:doBrowse,[])
}
Add(Label,5275819,196,56)
{
Left=155
Top=370
Width=222
Height=57
Caption="Выбор эталонной папки\r\nВыделить элемент"
}

карма: 0

0
Редактировалось 5 раз(а), последний 2022-07-03 03:14:52