Tad писал(а):
Ну и с кем ещё sаmakacd пошутил ? Что бы не пугать людей чёрным монитором
Add(MainForm,2953706,63,161)
{
Width=798
Height=337
Caption=""
BorderStyle=0
WindowsState=2
Point(onMouseWheel)
link(onMouseWheel,4888333:doOperation,[(156,188)(156,251)])
}
Add(FileSearch,13607173,140,98)
{
SubDir=1
link(onSearch,14629420:doAdd,[(398,104)(398,125)])
link(onEndSearch,7077867:doWork1,[(191,111)])
link(Dir,5198685:Text,[(153,82)(279,82)])
}
Add(StrList,14629420,623,119)
{
}
Add(Timer,15066292,525,231)
{
Interval=100
Enable=1
Point(doInterval)
link(onTimer,8202143:doOperation,[])
}
Add(ArrayRW,13219292,637,231)
{
link(onRead,13127629:doLoad,[])
link(Array,14629420:Array,[])
}
Add(Image,2053203,847,231)
{
Width=798
Height=337
Align=5
Color=0
ViewStyle=0
Point(doRefresh)
Point(onMouseUp)
Point(onDblClick)
link(onMouseUp,6382843:doNext,[(857,244)(857,320)(81,320)(81,237)])
link(onDblClick,8202143:doClear,[(888,251)(888,292)(569,292)(569,244)])
}
Add(PictureStream,13127629,693,231)
{
link(onLoad,7918030:doEvent1,[])
}
Add(Math,8202143,581,231)
{
Op2=1
Default=-1
Point(doClear)
link(onResult,13219292:doRead,[])
link(Op1,8202143:Result,[(587,219)(575,219)(575,275)(587,275)])
}
Add(Img_Text,7407263,791,245)
{
X=50
Y=1
Font=[Calibri,7,0,16777215,204]
link(onDraw,2053203:doRefresh,[])
link(Bitmap,2053203:ImageBitmap,[(797,220)(900,220)(900,276)(853,276)])
link(Text,13219292:Item,[(804,227)(833,227)(833,286)(643,286)])
}
Add(Hub,7918030,749,231)
{
link(onEvent1,2053203:doLoad,[])
link(onEvent2,7407263:doDraw,[(777,244)(777,251)])
}
Add(CounterEx,6382843,98,231)
{
Max=1
link(onNext,14900531:doEvent,[])
}
Add(IndexToChanel,14900531,147,231)
{
link(onEvent1,7077867:doWork2,[])
link(onEvent2,15066292:doStop,[])
}
Add(HubEx,7077867,187,231)
{
link(onEvent,15066292:doTimer,[])
}
Add(Math,4888333,217,245)
{
OpType=34
link(onResult,7872735:doOperation,[])
}
Add(Math,7872735,259,245)
{
OpType=2
Op2=25
link(onResult,13224955:doOperation,[])
}
Add(Math,13224955,308,245)
{
Default=100
link(onResult,13043608:doCompare,[])
link(Op1,3036108:Value,[(314,233)(207,233)(207,338)(468,338)])
}
Add(If_else,13043608,357,245)
{
Type=1
Op2=Integer(25)
link(onTrue,3831672:doData,[])
link(onFalse,5550085:doWork3,[(452,258)])
}
Add(DoData,3831672,406,245)
{
Data=Integer(25)
link(onEventData,5550085:doWork2,[])
}
Add(HubEx,5550085,448,245)
{
link(onEvent,3036108:doValue,[])
}
Add(Memory,3036108,462,245)
{
link(onData,14468114:doEvent1,[(506,251)(506,284)])
}
Add(Button,3056877,91,35)
{
Left=10
Top=11
Caption="Открыть"
link(onClick,2760432:doBrowse,[])
}
Add(Edit,5198685,273,35)
{
Left=72
Top=11
Width=416
Text=""
}
Add(Browse,2760432,147,35)
{
link(onBrowse,5198685:doText,[])
}
Add(Button,5571150,672,49)
{
Left=522
Top=11
Caption="Закрыть"
link(onClick,2953706:doClose,[(716,55)(716,121)(51,121)(51,188)])
}
Add(Hub,14468114,518,278)
{
link(onEvent1,15066292:doInterval,[(544,284)(544,268)(513,268)(513,251)])
link(onEvent2,2169627:doText,[(542,291)(542,328)])
}
Add(Label,2169627,553,322)
{
Left=704
Top=14
Width=52
Height=17
Color=-16777215
Font=[MS Sans Serif,8,0,16777215,1]
Caption="25"
AutoSize=1
}
Add(Label,9775704,497,322)
{
Left=639
Top=13
Width=56
Caption="Задержка"
AutoSize=1
}
Add(Button,2316876,77,91)
{
Left=581
Top=58
Width=121
Height=38
Font=[Arial Narrow,15,1,0,204]
Caption="Старт"
link(onClick,13607173:doSearch,[(125,97)(125,104)])
}