sla8a писал(а):
Tad, я исходил из того, чтоб было понятно ТС. Он еще новичок и многое из наших компактных схем будет сложно понять.
А так, да нет предела совершенству
схема
Я её подогнал для своего удобства, Она удачно интегрируется в мою программу, но пока не поздно, хотел попросить добавить функцию изменения размера текста.
Add(MainForm,2695986,385,287)
{
Width=1093
Height=880
Position=1
}
Add(ScrollBar,13654110,679,273)
{
Left=25
Top=260
Width=140
Max=1000
Min=-100
link(onPosition,12010863:doWork,[])
}
Add(ScrollBar,1525466,686,350)
{
Left=25
Top=290
Width=140
Max=1000
Min=-500
link(onPosition,10625489:doWork,[])
}
Add(Memo,15334567,490,238)
{
Left=25
Top=20
Width=140
Height=225
Strings=#12:Добрый день.|19:Сегодня будет ясно.|11:Без осадков|
link(onChange,4467411:doWork,[])
}
Add(PaintBox,123921,434,252)
{
Left=200
Top=20
Width=590
Height=770
ClearBeforeDraw=0
link(onBeforeDraw,13701910:doEnum,[(475,258)(475,321)])
}
Add(Img_Text,2924064,602,315)
{
X=12
Y=50
Point(X)
Point(Y)
Point(Transform)
link(onDraw,9197779:doCalc,[])
link(Bitmap,123921:Bitmap,[(608,296)(492,296)(492,361)(440,361)])
link(Text,9719288:Part,[(615,305)(593,305)(593,359)(566,359)])
link(X,13607930:Position,[])
link(Y,6078927:Position,[])
link(Transform,16342343:Transform,[(636,303)(647,303)(647,493)(671,493)])
}
Add(Str_Enum,9719288,553,315)
{
Delimiter=""
link(onEnum,2924064:doDraw,[])
link(onEndEnum,734421:doCalc,[(599,328)(599,412)])
}
Add(ArrayEnum,13701910,504,315)
{
link(onItem,9719288:doEnum,[])
link(onEndEnum,734421:doClear,[(541,328)(541,419)])
link(Array,15334567:Array,[])
}
Add(Img_UseOffset,16342343,665,448)
{
link(X,9197779:Result,[])
link(Y,734421:Result,[])
}
Add(MathParse,9197779,672,315)
{
MathStr="%0 + %1 + %2 / 100"
Point(doClear)
link(X1,2924064:TextWidth,[(678,303)(652,303)(652,357)(608,357)])
link(X2,13654110:Position,[])
}
Add(MathParse,734421,679,406)
{
MathStr="%0 + %1 + %2 / 100"
Point(doClear)
link(onResult,9197779:doClear,[(724,412)(724,387)(660,387)(660,328)])
link(X1,2924064:TextHeight,[(685,397)(615,397)])
link(X2,1525466:Position,[])
}
Add(Label,11255565,504,196)
{
Left=10
Top=325
Width=11
Height=17
Caption="X"
}
Add(Label,10601649,560,196)
{
Left=10
Top=345
Width=11
Height=17
Caption="Y"
}
Add(ScrollBar,13607930,616,203)
{
Left=25
Top=325
Width=140
Max=1000
Min=-100
link(onPosition,11219448:doWork,[])
}
Add(ScrollBar,6078927,623,252)
{
Left=25
Top=345
Width=140
Max=1000
Min=-100
link(onPosition,6158223:doWork,[])
}
Add(LineBreakEx,15628690,378,252)
{
Caption="draw"
Type=1
link(OnEvent,123921:doRefresh,[])
}
Add(LineBreakEx,11219448,665,203)
{
Caption="draw"
}
Add(LineBreakEx,4467411,553,238)
{
Caption="draw"
}
Add(LineBreakEx,6158223,672,252)
{
Caption="draw"
}
Add(LineBreakEx,12010863,742,273)
{
Caption="draw"
}
Add(LineBreakEx,10625489,742,350)
{
Caption="draw"
}