Gitarist писал(а):
Можно ли как то реализовать приближение\отдаление изображения (увеличение\уменьшение) с помощью колеса мыши?
Add(MainForm,2953706,105,70)
{
Width=563
Height=613
WindowsState=2
link(onCreate,1967545:doEvent1,[])
}
Add(PaintBox,14094555,287,217)
{
Width=547
Height=574
Align=5
Point(onMouseWheel)
link(onBeforeDraw,14315532:doDraw,[(326,223)(326,342)])
link(onMouseWheel,14527575:doCalc,[])
}
Add(Img_UseScale,10738813,357,287)
{
Mode=1
link(X,14878706:Var2,[])
link(Y,14878706:Var3,[(377,271)])
}
Add(Bitmap,5824505,350,84)
{
}
Add(Img_Bmp,14315532,343,336)
{
Point(Transform)
link(Bitmap,14094555:Bitmap,[(349,327)(293,327)])
link(SourceBitmap,5824505:Bitmap,[])
link(Transform,10738813:Transform,[])
}
Add(Img_GDIFileProcessor,7702392,273,84)
{
link(onLoad,5824505:doLoad,[])
}
Add(ODialog,5685971,224,84)
{
Filter="Все изображения|*.jpg;*.jpeg;*.png;*.bmp"
link(onExecute,7702392:doLoadFrom,[])
}
Add(Hub,1967545,161,84)
{
link(onEvent1,5685971:doExecute,[])
link(onEvent2,4201370:doWork2,[(207,97)(207,223)])
}
Add(MathParse,14527575,364,224)
{
MathStr="(sign(%1) / 50) + %0"
Default=1
link(onResult,6173712:doEvent1,[(403,230)(403,188)(228,188)(228,202)])
}
Add(GetDataEx,14878706,364,266)
{
link(Data,14527575:Result,[])
}
Add(Hub,6173712,238,196)
{
link(onEvent1,14094555:doClear,[(277,202)(277,230)])
link(onEvent2,4201370:doWork1,[(270,209)])
}
Add(HubEx,4201370,266,217)
{
link(onEvent,14094555:doRefresh,[])
}



Поиск
Друзья
Администрация