Вверх ↑
Этот топик читают: Гость
Ответов: 1052
Рейтинг: 219
#31: 2026-03-04 14:29:40 ЛС | профиль | цитата
Gitarist писал(а):
Если картинка в высоком разрешении, она загружается уже приближенной на всю. Как то надо сделать ее вписав в квадрат к примеру 800*800пк


Add(MainForm,37229,203,28)
{
Width=800
Height=800
link(onCreate,1967545:doEvent1,[])
}
Add(PaintBox,14094555,371,224)
{
Width=800
Height=800
Align=5
Point(onMouseWheel)
Point(MouseX)
Point(MouseY)
Point(Width)
Point(Height)
link(onBeforeDraw,14315532:doDraw,[(431,230)(431,440)])
link(onMouseWheel,14527575:doCalc,[])
}
Add(Img_UseScale,10738813,469,294)
{
Mode=1
link(X,14878706:Var2,[])
link(Y,14878706:Var3,[(489,278)])
}
Add(Bitmap,5824505,462,42)
{
Point(Width)
Point(Height)
}
Add(Img_Bmp,14315532,455,434)
{
AntiAlias=0
Point(Transform)
Point(X)
Point(Y)
link(Bitmap,14094555:Bitmap,[(461,425)(377,425)])
link(SourceBitmap,5824505:Bitmap,[])
link(Transform,10738813:Transform,[])
link(X,13253971:reCalc,[(482,418)(503,418)])
link(Y,8606305:reCalc,[(489,425)(545,425)])
}
Add(Img_GDIFileProcessor,7702392,413,42)
{
link(onLoad,5824505:doLoad,[])
}
Add(ODialog,5685971,364,42)
{
Filter="Все изображения|*.jpg;*.jpeg;*.png;*.bmp"
link(onExecute,7702392:doLoadFrom,[])
}
Add(Hub,1967545,259,42)
{
OutCount=3
link(onEvent1,5685971:doExecute,[])
link(onEvent2,11550076:doCalc,[(354,55)(354,132)])
link(onEvent3,4201370:doWork2,[(305,62)(305,230)])
}
Add(MathParse,14527575,476,231)
{
MathStr="%0 + (sign(%1) / 100)"
Default=1
Point(doDefault)
link(onResult,14478036:doValue,[])
}
Add(GetDataEx,14878706,476,273)
{
link(Data,14527575:Result,[])
}
Add(Hub,6173712,322,203)
{
link(onEvent1,14094555:doClear,[(361,209)(361,237)])
link(onEvent2,4201370:doWork1,[(354,216)])
}
Add(HubEx,4201370,350,224)
{
link(onEvent,14094555:doRefresh,[])
}
Add(MathParse,13253971,490,378)
{
DataCount=3
MathStr="%1 - (%1 - %0) * (%2 / %3)"
Point(reCalc)
link(X1,14094555:MouseX,[(496,369)(384,369)])
link(X2,8125089:Var1,[(503,271)])
link(X3,844822:Var1,[(510,278)])
}
Add(MathParse,8606305,532,378)
{
DataCount=3
MathStr="%1 - (%1 - %0) * (%2 / %3)"
Point(reCalc)
link(X1,14094555:MouseY,[(538,362)(391,362)])
link(X2,8125089:Var2,[])
link(X3,844822:Var2,[])
}
Add(MemFIFO,14478036,539,231)
{
link(onData,6173712:doEvent1,[(585,237)(585,195)(312,195)(312,209)])
}
Add(GetDataEx,8125089,539,266)
{
link(Data,14478036:Value1,[])
}
Add(GetDataEx,844822,546,273)
{
link(Data,14478036:Value2,[])
}
Add(MathParse,11550076,392,126)
{
DataCount=4
MathStr="max((%3 / %1) , (%4 / %2)) "
link(onResult,14527575:doDefault,[(452,132)(452,244)])
link(X1,5824505:Width,[(398,96)(475,96)])
link(X2,5824505:Height,[(405,103)(482,103)])
link(X3,14094555:Width,[(412,110)(447,110)(447,271)(398,271)])
link(X4,14094555:Height,[(419,117)(440,117)(440,264)(405,264)])
}

карма: 20

0
31
Сообщение
...
Прикрепленные файлы
(файлы не залиты)