Gitarist писал(а):
А куда послать координаты курсора мыши, чтобы от в эту координату увеличивал, как положено а не в 0.0?Add(MainForm,37229,301,105)
{
Width=563
Height=613
WindowsState=2
link(onCreate,1967545:doEvent1,[])
}
Add(PaintBox,14094555,469,203)
{
Width=547
Height=574
Align=5
Point(onMouseWheel)
Point(MouseX)
Point(MouseY)
link(onBeforeDraw,14315532:doDraw,[(529,209)(529,419)])
link(onMouseWheel,14527575:doCalc,[])
}
Add(Img_UseScale,10738813,567,273)
{
Mode=1
link(X,14878706:Var2,[])
link(Y,14878706:Var3,[(587,257)])
}
Add(Bitmap,5824505,560,119)
{
Point(Width)
Point(Height)
}
Add(Img_Bmp,14315532,553,413)
{
AntiAlias=0
Point(Transform)
Point(X)
Point(Y)
link(Bitmap,14094555:Bitmap,[(559,404)(475,404)])
link(SourceBitmap,5824505:Bitmap,[])
link(Transform,10738813:Transform,[])
link(X,13253971:reCalc,[(580,397)(601,397)])
link(Y,8606305:reCalc,[(587,404)(643,404)])
}
Add(Img_GDIFileProcessor,7702392,511,119)
{
link(onLoad,5824505:doLoad,[])
}
Add(ODialog,5685971,462,119)
{
Filter="Все изображения|*.jpg;*.jpeg;*.png;*.bmp"
link(onExecute,7702392:doLoadFrom,[])
}
Add(Hub,1967545,357,119)
{
OutCount=3
link(onEvent1,5685971:doExecute,[])
link(onEvent2,4201370:doWork2,[(403,132)(403,209)])
}
Add(MathParse,14527575,574,210)
{
MathStr="%0 + (sign(%1) / 100)"
Default=1
link(onResult,14478036:doValue,[])
}
Add(GetDataEx,14878706,574,252)
{
link(Data,14527575:Result,[])
}
Add(Hub,6173712,420,182)
{
link(onEvent1,14094555:doClear,[(459,188)(459,216)])
link(onEvent2,4201370:doWork1,[(452,195)])
}
Add(HubEx,4201370,448,203)
{
link(onEvent,14094555:doRefresh,[])
}
Add(MathParse,13253971,588,357)
{
DataCount=3
MathStr="%1 - (%1 - %0) * (%2 / %3)"
Point(reCalc)
link(X1,14094555:MouseX,[(594,348)(482,348)])
link(X2,8125089:Var1,[(601,250)])
link(X3,844822:Var1,[(608,257)])
}
Add(MathParse,8606305,630,357)
{
DataCount=3
MathStr="%1 - (%1 - %0) * (%2 / %3)"
Point(reCalc)
link(X1,14094555:MouseY,[(636,341)(489,341)])
link(X2,8125089:Var2,[])
link(X3,844822:Var2,[])
}
Add(MemFIFO,14478036,637,210)
{
link(onData,6173712:doEvent1,[(683,216)(683,174)(410,174)(410,188)])
}
Add(GetDataEx,8125089,637,245)
{
link(Data,14478036:Value1,[])
}
Add(GetDataEx,844822,644,252)
{
link(Data,14478036:Value2,[])
}



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