А так, да нет предела совершенству
схема
Add(MainForm,2695986,161,280)
{
Width=1093
Height=880
Position=1
}
Add(ScrollBar,13654110,462,238)
{
Left=25
Top=260
Width=140
Max=1000
Min=-100
link(onPosition,795243:doWork2,[])
}
Add(ScrollBar,1525466,469,315)
{
Left=25
Top=285
Width=140
Max=1000
Min=-500
link(onPosition,795243:doWork3,[(508,321)])
}
Add(Memo,15334567,273,203)
{
Left=25
Top=20
Width=140
Height=225
Strings=#12:Добрый день.|19:Сегодня будет ясно.|11:Без осадков|
link(onChange,10846677:doWork2,[])
}
Add(PaintBox,123921,245,280)
{
Left=200
Top=20
Width=590
Height=770
ClearBeforeDraw=0
link(onBeforeDraw,13701910:doEnum,[])
}
Add(Img_Text,2924064,385,280)
{
X=12
Y=50
Point(X)
Point(Y)
Point(Transform)
link(onDraw,9197779:doCalc,[])
link(Bitmap,123921:Bitmap,[(391,261)(275,261)(275,319)(251,319)])
link(Text,9719288:Part,[(398,270)(376,270)(376,324)(349,324)])
link(X,15008604:Text,[])
link(Y,8029249:Text,[])
link(Transform,16342343:Transform,[(419,268)(430,268)(430,458)(454,458)])
}
Add(Str_Enum,9719288,336,280)
{
Delimiter=""
link(onEnum,2924064:doDraw,[])
link(onEndEnum,734421:doCalc,[(382,293)(382,377)])
}
Add(ArrayEnum,13701910,287,280)
{
link(onItem,9719288:doEnum,[])
link(onEndEnum,734421:doClear,[(324,293)(324,384)])
link(Array,15334567:Array,[])
}
Add(Img_UseOffset,16342343,448,413)
{
link(X,9197779:Result,[])
link(Y,734421:Result,[])
}
Add(MathParse,9197779,455,280)
{
MathStr="%0 + %1 + %2 / 100"
Point(doClear)
link(X1,2924064:TextWidth,[(461,268)(435,268)(435,322)(391,322)])
link(X2,13654110:Position,[])
}
Add(MathParse,734421,462,371)
{
MathStr="%0 + %1 + %2 / 100"
Point(doClear)
link(onResult,9197779:doClear,[(500,377)(500,352)(443,352)(443,293)])
link(X1,2924064:TextHeight,[(468,362)(398,362)])
link(X2,1525466:Position,[])
}
Add(Edit,15008604,399,168)
{
Left=60
Top=310
Text="10"
link(onChange,4248558:doWork2,[])
}
Add(Edit,8029249,406,217)
{
Left=60
Top=340
Text="50"
link(onChange,3468805:doWork2,[])
}
Add(Label,11255565,350,168)
{
Left=35
Top=315
Width=11
Height=17
Caption="X"
}
Add(Label,10601649,350,217)
{
Left=35
Top=345
Width=11
Height=17
Caption="Y"
}
Add(HubEx,4248558,504,168)
{
Angle=3
link(onEvent,123921:doRefresh,[(508,158)(217,158)(217,286)])
}
Add(HubEx,3468805,504,217)
{
Angle=3
link(onEvent,10846677:doWork3,[])
}
Add(HubEx,795243,504,238)
{
Angle=3
link(onEvent,3468805:doWork3,[])
}
Add(HubEx,10846677,504,203)
{
Angle=3
link(onEvent,4248558:doWork3,[])
}