Make(delphi)
ver(4.04 build 185)
Add(MainForm,2953706,91,105)
{
 Caption=""
 BorderStyle=0
 WindowsState=2
 Point(onMouseWheel)
 link(onCreate,13607173:doSearch,[])
 link(onMouseWheel,4888333:doOperation,[(135,132)(135,251)])
}
Add(FileSearch,13607173,140,119)
{
 SubDir=1
 link(onSearch,14629420:doAdd,[])
 link(onEndSearch,7077867:doWork1,[(191,132)])
 link(Dir,15671543:Text,[])
}
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=400
 Height=300
 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=120
 Y=240
 Font=[Fixedsys,8,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)(482,338)])
}
Add(If_else,13043608,357,245)
{
 Type=1
 Op2=Integer(25)
 link(onTrue,3831672:doData,[])
 link(onFalse,5550085:doWork3,[(459,258)])
}
Add(DoData,3831672,413,245)
{
 Data=Integer(25)
 link(onEventData,5550085:doWork2,[])
}
Add(HubEx,5550085,455,245)
{
 link(onEvent,3036108:doValue,[])
}
Add(Memory,3036108,476,245)
{
 link(onData,15066292:doInterval,[])
}
Add(VisualStrings,15671543,147,84)
{
 Lines=#16:e:\\Images\\test|
 Width=249
}
Add(InfoTip,10294066,147,49)
{
 Info=#39:Укажите имя своей папки с фотографиями!|
 Font=[MS Sans Serif,10,1,255,1]
 Frame=1
 Width=246
}