a0005d26f писал(а):
Подскажите, как ускорить прорисовку увеличителяпоставить поток после MouseMove
code_15285.txt
увеличить часть картинки можно и попроще
Add(MainForm,2953706,231,175)
{
Width=929
Height=512
}
Add(Image,10613494,490,245)
{
Left=600
Top=5
Width=285
Height=250
HalfTone=1
}
Add(Image,5732267,385,133)
{
Left=5
Top=5
Width=585
Height=470
Point(onMouseMove)
Point(MouseX)
Point(ImageWidth)
Point(MouseY)
Point(ImageHeight)
link(onMouseMove,4199795:doCopy,[(429,146)(429,170)(366,170)(366,251)])
}
Add(Button,15756459,231,133)
{
Left=605
Top=270
Width=115
Height=30
Font=[MS Sans Serif,8,1,0,1]
Caption="Загрузить фон"
link(onClick,3564843:doExecute,[])
}
Add(ODialog,3564843,280,133)
{
Filter=""
Title="Выбор фона"
link(onExecute,3977070:doLoad,[])
}
Add(PictureStream,3977070,329,133)
{
link(onLoad,5732267:doLoad,[])
}
Add(Resize,15431784,441,245)
{
Width=100
Height=100
HalfTone=1
link(onResult,10613494:doLoad,[])
}
Add(Img_Copy,4199795,392,245)
{
Width=25
Height=25
link(onCopy,15431784:doResize,[])
link(Source,5732267:ImageBitmap,[(398,205)(391,205)])
link(X,10315518:reCalc,[])
link(Y,5732267:MouseY,[])
}
Add(MathParse,10315518,392,189)
{
DataCount=1
MathStr="%1 - 125"
Point(reCalc)
link(X1,5732267:MouseX,[])
}