Вверх ↑
Ответов: 20
Рейтинг: 0
#1: 2012-05-09 21:57:41 ЛС | профиль | цитата
Сделал небольшую програмку для поиска и удаления одинаковых по размеру файлов. Но что-то в ней лишние опции. Есть ли способ попроще?



Add(FileSearch,211046,476,336)
{
link(onSearch,9473428:doEvent1,[])
link(onEndSearch,11418884:doData,[(566,349)(566,454)])
link(Dir,13584896:Data1,[(489,328)(461,328)])
}
Add(Browse,7180748,392,238)
{
link(onBrowse,11505797:doText,[])
}
Add(Button,3438720,341,238)
{
Left=15
Top=20
Caption="Dir"
link(onClick,7180748:doBrowse,[])
}
Add(Edit,11505797,460,238)
{
Left=80
Top=20
Width=520
Text=""
link(onChange,3968552:doString,[])
}
Add(DoData,11947413,623,399)
{
link(onEventData,4369936:doMove,[(671,405)(671,412)])
link(Data,11577139:Value,[(629,383)(610,383)])
}
Add(Memory,11577139,604,343)
{
}
Add(DirTools,4369936,686,399)
{
NoConfirmation=1
NoErrorUI=1
link(Dest,6561027:Value,[(699,338)(664,338)])
}
Add(Hub,9473428,525,336)
{
OutCount=3
link(onEvent1,12823884:doData,[(551,342)(551,430)(471,430)(471,503)])
link(onEvent2,11577139:doValue,[])
link(onEvent3,16118788:doData,[(551,356)(551,380)(492,380)(492,405)])
}
Add(ChangeMon,5244206,560,399)
{
link(onData,11947413:doData,[])
}
Add(Memory,6561027,658,238)
{
link(onData,8131636:doDir,[])
}
Add(DoData,16118788,504,399)
{
link(onEventData,5244206:doData,[])
link(Data,5267490:Data2,[(510,387)(486,387)(486,464)(461,464)])
}
Add(Dir,8131636,728,238)
{
}
Add(FormatStr,3968552,532,238)
{
Mask="%1_copy"
Point(FString)
link(onFString,6561027:doValue,[])
}
Add(DoData,11418884,623,448)
{
link(onEventData,11566897:doEvent1,[])
link(Data,13584896:Data2,[(629,384)(468,384)])
}
Add(GetData,13584896,455,287)
{
Count=3
link(Data,11505797:Text,[(461,275)(466,275)])
}
Add(Button,6189911,343,336)
{
Left=15
Top=55
Caption="Delete"
link(onClick,211046:doSearch,[])
}
Add(ProgressBar,8019686,553,497)
{
Left=15
Top=85
Width=585
Smooth=1
ProgressColor=0
Point(doMax)
}
Add(DoData,12823884,490,497)
{
link(onEventData,8019686:doPosition,[])
link(Data,5267490:Data1,[(496,481)(454,481)])
}
Add(GetData,5267490,448,420)
{
link(Data,211046:Size,[(454,394)(489,394)])
}
Add(DirTools,12300080,735,462)
{
NoConfirmation=1
NoErrorUI=1
link(Source,3968552:FString,[(741,366)(538,366)])
link(Dest,13584896:Data3,[(748,390)(475,390)])
}
Add(Hub,11566897,672,448)
{
OutCount=3
link(onEvent1,8019686:doMax,[(698,454)(698,482)(541,482)(541,510)])
link(onEvent2,4369936:doDelete,[(698,461)(698,440)(674,440)(674,419)])
link(onEvent3,12300080:doMove,[(710,468)(710,475)])
}

карма: 1

0
файлы: 1code_27858.txt [2.4KB] [109]