Вверх ↑
Разработчик
Ответов: 4697
Рейтинг: 426
#1: 2009-03-26 15:59:50 ЛС | профиль | цитата
Вот кусок моей проги, правда немного другого назначения. Уверен найдешь че надо!
#sha
Add(Edit,12914149,367,106)
{
@Hint=#25:Путь туды куды копировать|
Left=5
Top=35
Width=425
Height=25
Font=[MS Sans Serif,10,0,0,1]
Text="Путь к папке"
AddHint(9,-38,156,13,@Hint)
}
Add(Browse,11188591,262,148)
{
link(onBrowse,14882776:doStrCat,[])
}
Add(Button,10421767,213,106)
{
@Hint=#15:Туды копировать|
Left=440
Top=35
Width=60
Height=25
Caption="Выбрать"
link(onClick,13543899:doBrowse,[])
AddHint(-1,-39,103,13,@Hint)
}
Add(Edit,14248607,381,148)
{
@Hint=#22:Путь туды откуда брать|
Left=5
Top=100
Width=425
Height=25
Font=[MS Sans Serif,10,0,0,1]
Text="Путь к папке"
AddHint(51,-21,135,13,@Hint)
}
Add(Button,1789080,213,148)
{
@Hint=#12:Оттуда брать|
Left=440
Top=100
Width=60
Height=25
Caption="Выбрать"
link(onClick,11188591:doBrowse,[])
AddHint(-35,44,82,13,@Hint)
}
Add(Button,7324329,185,246)
{
Left=5
Top=410
Width=135
Height=25
Caption="Начать"
Point(doEnabled)
link(onClick,1902390:doEvent1,[])
AddHint(-13,-29,51,13,Caption)
}
Add(Button,5578446,185,302)
{
Left=365
Top=410
Width=135
Height=25
Enabled=1
Caption="Отменить"
Point(doEnabled)
link(onClick,2575536:doEvent1,[])
AddHint(-13,41,65,13,Caption)
}
Add(Browse,13543899,262,106)
{
link(onBrowse,7618828:doStrCat,[])
}
Add(Hub,1902390,227,246)
{
OutCount=6
link(onEvent1,6971642:doClear,[(332,252)(332,259)])
link(onEvent2,16764575:doStart,[(259,259)(259,252)])
link(onEvent3,9517126:doWork1,[(253,266)(253,281)(112,281)])
link(onEvent4,10571376:doClear,[(255,273)(255,581)])
link(onEvent5,3014202:doWork3,[(253,280)(253,276)(105,276)])
link(onEvent6,8957637:doEvent2,[(253,287)(253,275)(61,275)(61,287)])
}
Add(StringTable,10571376,724,568)
{
Left=5
Top=145
Width=495
Height=195
Columns=#4:Файл|6:Размер|4:Путь|
Redaction=1
Flat=1
Point(doSelect)
}
Add(StrCat,7618828,311,106)
{
Str2=""
link(onStrCat,12914149:doText,[])
}
Add(StrCat,14882776,311,148)
{
Str2=""
link(onStrCat,14248607:doText,[])
}
Add(StrCat,5745043,766,470)
{
link(onStrCat,2617486:doData,[(810,476)(810,464)(705,464)(705,476)])
link(Str1,3886008:Var1,[(772,345)(333,345)])
link(Str2,6534454:Var1,[(779,369)])
}
Add(FileSearch,12366938,325,246)
{
Include=2
link(onSearch,12495545:doReplace,[])
link(onEndSearch,4813702:doEvent1,[(365,259)(365,329)])
link(Dir,3886008:Var2,[])
}
Add(StrList,6971642,423,246)
{
}
Add(FileSearch,10167679,458,330)
{
link(onSearch,2547099:doReplace,[])
link(onEndSearch,8957637:doEvent1,[(500,343)(500,384)(61,384)(61,280)])
link(Dir,6332170:Var2,[])
}
Add(Replace,2547099,507,330)
{
link(onReplace,1203937:doValue,[])
link(Sub_str,6332170:Var3,[(520,311)])
}
Add(GetDataEx,6332170,458,302)
{
link(Data,14248607:Text,[(471,243)(387,243)])
}
Add(Replace,12495545,374,246)
{
link(onReplace,6971642:doAdd,[])
link(Sub_str,3886008:Var3,[(387,220)])
}
Add(GetDataEx,3886008,325,211)
{
link(Data,11479293:Var1,[(338,185)])
}
Add(ArrayEnum,1782633,605,330)
{
onBreakEnable=0
link(onItem,3994309:doCompare,[])
link(onEndEnum,10324423:doEvent1,[(645,343)(645,427)])
link(Array,702594:Var3,[(611,304)])
}
Add(If_else,3994309,654,330)
{
link(onTrue,1782633:doStop,[(697,336)(697,376)(598,376)(598,343)])
link(Op2,6534454:Var3,[(667,318)(592,318)(592,374)])
}
Add(Memory,1203937,549,330)
{
link(onData,1782633:doEnum,[])
}
Add(StrCat,2373649,703,421)
{
link(Str1,12908538:Var3,[(709,409)])
link(Str2,6534454:Var2,[(716,399)(583,399)])
}
Add(GetDataEx,6534454,570,365)
{
Angle=3
link(Data,1203937:Value,[(555,374)])
}
Add(FileTools,13088458,703,526)
{
link(onEnd,12482480:doNext,[])
link(FileName,2373649:Result,[])
link(NewFileName,6146321:Var2,[(716,518)(723,518)])
}
Add(Hub,10324423,654,421)
{
OutCount=3
link(onEvent1,2373649:doStrCat,[])
link(onEvent2,13088458:doCopy,[(686,434)(686,539)])
link(onEvent3,591551:doStrCat,[(680,441)(680,507)(642,507)(642,574)])
}
Add(EventFromData,2617486,717,470)
{
link(onEvent,5745043:doStrCat,[])
}
Add(DoData,5594371,829,470)
{
link(onEventData,1980889:doMax,[])
link(Data,4078096:getVar,[])
}
Add(LineBreak,9834740,787,533)
{
Caption="2"
link(Out,5594371:doData,[(823,539)(823,476)])
Primary=[6411655,-371,-49]
}
Add(Counter,12482480,752,526)
{
Max=10000000
link(onNext,1980889:doPosition,[(816,532)(816,469)])
}
Add(MultiElementEx,591551,654,568)
{
link(onStrCat,10571376:doAdd,[])
link(Str1,15329069:Var2,[])
link(Str2,15329069:Var3,[(667,556)])
link(Str21,15329069:Var1,[(674,562)(655,562)])
}
BEGIN_SDK
Add(EditMultiEx,12299841,21,21)
{
WorkCount=#35:doStrCat=Создает строку для таблицы|
EventCount=#40:onStrCat=Выдает в поток созданную строку|
DataCount=#9:Str1=Файл|17:Str2=Размер файла|18:Str21=Путь к файлу|
link(doStrCat,5767611:doStrCat,[(31,27)(31,139)])
}
Add(StrCat,5767611,42,133)
{
Str2=";"
link(onStrCat,5894107:doStrCat,[])
link(Str1,13189765:GetData,[])
}
Add(StrCat,5894107,140,133)
{
link(onStrCat,14293971:doStrCat,[(183,139)(183,81)(142,81)(142,48)])
link(Str2,9866699:GetData,[])
}
Add(StrCat,14293971,154,42)
{
Str2=";"
link(onStrCat,713293:doStrCat,[])
}
Add(StrCat,713293,210,42)
{
link(onStrCat,12299841:onStrCat,[(282,48)(282,27)])
link(Str2,12299841:Str21,[(223,32)(41,32)])
}
Add(EventFromData,9866699,147,91)
{
link(onEvent,13608464:doRead,[])
}
Add(FileAttributes,13608464,196,91)
{
Point(FileSize)
link(onRead,4994337:doData,[])
link(FileName,12299841:Str2,[(202,30)(34,30)])
}
Add(DoData,4994337,245,91)
{
link(onEventData,9866699:doData,[(289,97)(289,85)(135,85)(135,97)])
link(Data,13608464:FileSize,[(251,83)(236,83)(236,130)(223,130)])
}
Add(EventFromData,13189765,42,84)
{
link(onEvent,16463911:doPart,[])
}
Add(FilePart,16463911,84,84)
{
NameWOExt=1
link(onName,13189765:doData,[(124,97)(124,72)(35,72)(35,90)])
link(FileName,12299841:Str1,[(90,32)(27,32)])
}
END_SDK
Add(GetDataEx,15329069,647,547)
{
link(Data,6146321:Var1,[(660,507)])
}
Add(GetDataEx,6146321,710,498)
{
link(Data,2617486:GetData,[])
}
Add(ArrayEnum,4161970,514,442)
{
onBreakEnable=0
link(onItem,13235914:doCompare,[])
link(onEndEnum,16311364:doNext,[(554,455)(554,490)])
link(Array,702594:Var2,[(520,429)(443,429)])
}
Add(If_else,13235914,563,442)
{
link(onTrue,4161970:doStop,[(606,448)(606,481)(502,481)(502,455)])
link(Op2,5770994:Value,[(576,430)(524,430)(524,486)(471,486)])
}
Add(FileSearch,2707975,367,442)
{
link(onSearch,10912527:doReplace,[])
link(onEndSearch,6411655:In,[(407,455)(407,490)])
link(Dir,9775930:Var2,[])
}
Add(Replace,10912527,416,442)
{
link(onReplace,5770994:doValue,[])
link(Sub_str,12908538:Var2,[(429,428)(457,428)])
}
Add(Memory,5770994,465,442)
{
link(onData,4161970:doEnum,[])
}
Add(GetDataEx,702594,430,295)
{
link(Data,6971642:Array,[])
}
Add(GetDataEx,12908538,444,400)
{
Angle=3
link(Data,6332170:Var1,[(452,311)])
}
Add(Hub,4813702,374,323)
{
OutCount=3
link(onEvent1,2707975:doSearch,[(400,329)(400,389)(355,389)(355,448)])
link(onEvent2,9174538:doSearch,[(398,336)(398,423)(343,423)(343,518)])
link(onEvent3,10167679:doSearch,[(423,343)(423,336)])
}
Add(Counter,16311364,563,484)
{
Max=10000000
}
Add(Thread,16764575,276,246)
{
Delay=1
FastStop=0
Point(doStopFlag)
link(onExec,12366938:doSearch,[])
}
Add(Hub,2575536,234,302)
{
OutCount=10
link(onEvent1,16764575:doStopFlag,[(262,308)(262,266)])
link(onEvent2,12366938:doStop,[(314,315)(314,259)])
link(onEvent3,2707975:doStop,[(313,322)(313,455)])
link(onEvent4,10167679:doStop,[(353,329)(353,343)])
link(onEvent5,9174538:doStop,[(308,336)(308,525)])
link(onEvent7,9517126:doWork3,[(260,350)(260,378)(112,378)])
link(onEvent8,3014202:doWork1,[(260,357)(260,261)])
link(onEvent9,6339136:doWork1,[(266,364)])
link(onEvent10,7979208:doWork2,[(258,371)(258,399)])
}
Add(GProgressBar,1980889,885,463)
{
Left=5
Top=345
Width=495
Height=30
Ctl3D=0
LightProgress=65280
DarkProgress=32768
Point(doMax)
}
Add(FileSearch,9174538,367,512)
{
Include=1
link(onSearch,3445223:doReplace,[])
link(Dir,9775930:Var1,[(380,479)(360,479)(360,423)])
}
Add(GetDataEx,9775930,367,414)
{
link(Data,12908538:Var1,[(380,404)])
}
Add(Dir,14162382,507,512)
{
}
Add(Replace,3445223,423,512)
{
link(onReplace,12502631:doStrCat,[])
link(Sub_str,9775930:Var3,[(436,423)])
}
Add(StrCat,12502631,465,512)
{
link(onStrCat,14162382:doDir,[])
link(Str1,11479293:Var2,[(471,372)(359,372)])
}
Add(GetDataEx,11479293,346,176)
{
Angle=1
link(Data,12914149:Text,[(373,185)])
}
Add(LineBreakEx,10615544,563,533)
{
Caption="Max"
Type=3
link(_Data,16311364:Count,[])
}
Add(Hub,8957637,73,274)
{
InCount=2
OutCount=5
link(onEvent1,3014202:doWork2,[(94,280)(94,266)])
link(onEvent2,9517126:doWork2,[(97,287)(97,301)])
link(onEvent4,6339136:doWork2,[(175,301)(175,420)])
link(onEvent5,7979208:doWork1,[(273,308)])
}
Add(Switch,7303216,122,295)
{
DataOn=Integer(0)
DataOff=Integer(1)
link(onSwitch,5578446:doEnabled,[(170,301)(170,308)])
}
Add(Switch,8232494,122,260)
{
DataOn=Integer(0)
DataOff=Integer(1)
Default=0
link(onSwitch,7324329:doEnabled,[(170,266)(170,252)])
}
Add(HubEx,3014202,101,253)
{
link(onEvent,8232494:doSwitch,[])
}
Add(HubEx,9517126,108,288)
{
link(onEvent,7303216:doSwitch,[])
}
Add(HubEx,6339136,262,407)
{
Angle=1
link(onEvent,12482480:doReset,[(266,546)])
}
Add(HubEx,7979208,269,386)
{
Angle=1
link(onEvent,16311364:doReset,[(273,504)])
}
Add(LineBreakEx,4078096,829,435)
{
Caption="Max"
Type=2
}
карма: 10
0
файлы: 1code_12437.txt [9.2KB] [774]