------------ Дoбавленo в 14.22:
Вот, оптимизировал под себя, возможно кому-то пригодиться, правда ограничения никто не отменял.
Add(MainForm,14384415,154,224)
{
}
Add(Math,5135760,266,238)
{
OpType=39
Point(doClear)
link(onResult,15746892:doWidth,[(383,244)(383,307)])
link(Op1,9200381:ImageWidth,[])
link(Op2,5135760:Result,[(279,226)(306,226)(306,282)(272,282)])
}
Add(Math,15946600,259,301)
{
Point(doClear)
link(onResult,7523957:doEvent1,[])
link(Op1,9200381:ImageHeight,[])
link(Op2,15946600:Result,[(272,289)(299,289)(299,347)(265,347)])
}
Add(Img_Bmp,12923560,399,371)
{
Point(Y)
link(onDraw,12662533:doLoad,[])
link(Bitmap,13453177:Var2,[])
link(SourceBitmap,9200381:Bitmap,[(412,358)(258,358)])
link(Y,1172193:Value2,[(419,345)(356,345)])
}
Add(Image,12662533,441,371)
{
Width=392
Height=273
Align=5
link(Bitmap,13453177:Var3,[(447,334)])
}
Add(GetDataEx,13453177,399,329)
{
link(Data,15746892:Bitmap,[])
}
Add(DropFile,2437532,154,175)
{
link(onDropFile,9586542:doEvent1,[])
}
Add(Img_Loader,9200381,252,175)
{
Point(ImageHeight)
Point(ImageWidth)
}
Add(PaintBox,15746892,399,287)
{
Left=535
Top=440
Point(doWidth)
Point(doHeight)
Point(Height)
}
Add(Hub,9586542,203,175)
{
OutCount=4
link(onEvent1,9200381:doLoad,[])
link(onEvent2,5135760:doOperation,[(246,188)(246,244)])
link(onEvent3,15946600:doOperation,[(238,195)(238,307)])
link(onEvent4,12923560:doDraw,[(228,202)(228,377)])
}
Add(MemFIFO,1172193,343,266)
{
Default=Integer(0)
}
Add(Hub,7523957,315,301)
{
link(onEvent1,1172193:doValue,[(336,307)(336,272)])
link(onEvent2,15746892:doHeight,[])
}