Вверх ↑
Ответов: 165
Рейтинг: 6
#1: 2017-03-15 23:25:58 ЛС | профиль | цитата
Мой вариант:
Зум колесом мыши, можно таскать картинку ЛКМ
Add(MainForm,2953706,462,84)
{
Width=600
Height=400
Color=16777215
Caption=""
Position=1
Point(onMouseWheel)
Point(onKeyDown)
link(onCreate,11820223:doExecute,[])
link(onMouseWheel,1295109:doCompare,[(513,111)(513,188)])
link(onKeyDown,5584549:doCase,[(506,118)(506,156)(457,156)(457,195)])
}
Add(ODialog,11820223,546,98)
{
StartDir=""
FileName=""
link(onExecute,4062643:doEvent1,[])
}
Add(Image,11644418,875,84)
{
Color=16777215
MouseCapture=0
Point(doWidth)
Point(doHeight)
Point(Handle)
Point(onMouseWheel)
link(onClick,13897948:doMove,[(919,90)(919,126)(870,126)(870,146)])
}
Add(Img_GDIFileProcessor,9216498,644,84)
{
Point(doGetParamFrom)
Point(onGetParam)
link(onLoad,11644418:doLoad,[])
link(onGetParam,13789852:doSeparateMT,[])
}
Add(Hub,4062643,595,98)
{
link(onEvent1,9216498:doGetParamFrom,[])
link(onEvent2,9216498:doLoadFrom,[(627,111)(627,90)])
}
Add(MoveWindow,13897948,882,140)
{
link(Handle,11644418:Handle,[])
}
Add(MT_MultiData,13789852,693,91)
{
link(onData1,10214689:doValue,[])
link(onData2,7119505:doValue,[(765,104)(765,111)])
}
Add(Memory,10214689,763,91)
{
link(onData,15053578:doWork2,[(835,97)(835,104)])
}
Add(Memory,7119505,805,105)
{
link(onData,13436875:doWork2,[])
}
Add(FastMathParse,4841835,763,245)
{
MathStr="%1 * (1 + %2 * 0.5 * 0.1)"
@IsLib=True
link(onResult,15053578:doWork3,[(858,251)])
link(X1,10214689:Value,[])
link(X2,10515148:Var1,[(776,224)])
}
Add(FastMathParse,10477695,805,266)
{
elink(4841835)
link(onResult,13436875:doWork3,[(858,272)])
link(X1,7119505:Value,[])
link(X2,10515148:Var3,[(818,224)])
}
Add(LineBreakEx,11878571,791,189)
{
Caption="zoom"
Type=2
}
Add(GetDataEx,10515148,791,219)
{
link(Data,11878571:getVar,[])
}
Add(CounterEx,6597880,588,182)
{
Min=-100
Point(doPrev)
Point(onThroughMax)
Point(onThroughMin)
Point(doReset)
Point(onSet)
link(onNext,9998490:doEvent1,[(692,188)(692,251)])
link(onSet,9998490:doEvent2,[(667,209)(667,258)])
}
Add(Case,5584549,469,189)
{
Value=Integer(27)
link(onTrue,6597880:doReset,[])
}
Add(If_else,1295109,532,182)
{
Op2=Integer(120)
link(onTrue,6597880:doNext,[])
link(onFalse,6597880:doPrev,[])
}
Add(Hub,9998490,714,245)
{
InCount=2
link(onEvent1,4841835:doCalc,[])
link(onEvent2,10477695:doCalc,[(766,258)(766,272)])
}
Add(HubEx,15053578,854,98)
{
link(onEvent,11644418:doWidth,[])
}
Add(HubEx,13436875,854,105)
{
link(onEvent,11644418:doHeight,[])
}

--- Добавлено в 2017-03-15 23:51:44

sla8a, при уменьшении картинки в твоей схеме появляются цветовые искажения. Картинка деградирует.

Результат:

Оригинал:

карма: 4

0
Редактировалось 3 раз(а), последний 2017-03-15 23:52:40