Вверх ↑
Ответов: 165
Рейтинг: 6
#1: 2017-06-13 07:47:50 ЛС | профиль | цитата
Dad2016, в твоей схеме изображение сохраняется с исходным размером.
Вот так (смотри вычисления в MathParse'ах над Resize'ом) можно влиять на исходный размер изображения. Ещё туда можно добавить условия, если хочешь масштабирование в зависимости от каких-то параметров.

Add(LineBreak,5571475,490,259)
{
Caption="y"
Type=1
link(Data,15619823:ImageHeight,[])
Primary=[6924287,133,-210]
}
Add(Image,14384757,476,329)
{
Left=5
Top=5
Width=120
Height=120
Point(onDblClick)
link(Bitmap,15619823:Bitmap,[])
link(onDblClick,14988390:doExecute,[(539,342)(539,240)(374,240)(374,209)])
}
Add(Img_Loader,15619823,476,203)
{
Point(ImageWidth)
Point(ImageHeight)
link(onLoad,12022459:doEvent1,[])
}
Add(ODialog,14988390,385,203)
{
Filter="BMP, GIF, JPG, JPEG, ICO, WMF, EMF, PNG, XBM, TIFF files (*.bmp;*.gif;*.ico;*wmf;*.emf;*.xbm;*.tiff;*.png;*.jpg;*.jpeg)|.bmp;*.gif;*.ico;*wmf;*.emf;*.xbm;*.tiff;*.png;*.jpg;*.jpeg|All files (*.*)|*.*"
link(onExecute,1185504:doEvent1,[])
}
Add(DropFile,6522652,385,252)
{
link(onDropFile,1185504:doEvent2,[(433,258)(433,216)])
}
Add(Hub,1185504,448,203)
{
InCount=3
OutCount=1
link(onEvent1,15619823:doLoad,[])
}
Add(Hub,12022459,574,203)
{
link(onEvent1,14384757:doLoad,[(602,209)(602,318)(459,318)(459,335)])
link(onEvent2,10278728:doResize,[])
}
Add(Jpeg,11130141,672,196)
{
Quality=100
Point(FileName)
Point(doLoadFromBitmap)
}
Add(ButtonRush,8382852,371,147)
{
Left=430
Top=5
Width=115
Caption="Сохранить"
Glyphs=[]
RoundWidth=7
RoundHeight=7
link(onClick,346940:doEvent1,[])
}
Add(Hub,346940,427,147)
{
OutCount=5
link(onEvent1,11130141:doSave,[(649,153)(649,209)])
}
Add(Resize,10278728,616,210)
{
link(onResult,11130141:doLoadFromBitmap,[])
link(Width,9647198:reCalc,[])
link(Height,6277983:reCalc,[])
}
Add(LineBreak,4953752,483,245)
{
Caption="x"
Type=1
link(Data,15619823:ImageWidth,[])
Primary=[7099704,133,-119]
}
Add(MathParse,9647198,616,161)
{
DataCount=1
MathStr="%1 / 2"
ResultType=0
Point(reCalc)
link(X1,7099704:Var,[])
}
Add(MathParse,6277983,623,77)
{
DataCount=1
MathStr="%1 / 2"
ResultType=0
Point(reCalc)
link(X1,6924287:Var,[])
}

карма: 4

0