Вверх ↑
Ответов: 1429
Рейтинг: 50
#1: 2012-02-10 19:14:10 ЛС | профиль | цитата
TICLIR, самый не кривой способ, на мой взгляд, это рисование на PainBox-е надписей прямо под графиком.
Предварительно рассчитывая расстояние между ними соответственно точкам на графике.



Add(Plotter,10574215,532,56)
{
Left=55
Top=10
Width=550
Height=230
Name="Plotter"
GridColor=16777215
}
Add(MainForm,16184661,287,91)
{
Left=20
Top=105
Width=644
Height=399
Caption="Histogram"
link(onCreate,2916465:doEvent1,[])
}
Add(For,14310219,434,105)
{
Start=1
End=10
link(onEvent,7049018:doAdd,[])
link(End,10236795:Var2,[])
}
Add(PlotHistogram,7049018,532,105)
{
Grapher="Plotter"
Color=8421504
Step=5
BgColor=65280
Axis=""
Point(MaxX)
}
Add(PaintBox,13462569,756,301)
{
Left=10
Top=240
Width=620
Height=105
Point(Width)
}
Add(Img_Text,7288015,756,462)
{
Text="Привет!"
Point(X)
Point(Y)
link(Bitmap,13462569:Bitmap,[])
link(X,1231886:Point,[])
}
Add(Memory,7008948,441,42)
{
Default=Integer(10)
}
Add(FastMathParse,6162556,532,462)
{
DataCount=3
MathStr="%1 / %2 * %3"
link(onResult,3690146:doData,[])
link(X1,13462569:Width,[(538,359)(769,359)])
link(X2,15359225:Var3,[(545,432)])
link(X3,9535666:Position,[(552,450)(515,450)(515,505)(475,505)])
}
Add(GetDataEx,10236795,441,84)
{
link(Data,7008948:Value,[])
}
Add(PointXY,1231886,770,413)
{
link(X,6162556:Result,[(776,400)(686,400)(686,517)(538,517)])
}
Add(DoData,3690146,714,462)
{
@Hint=#8:загрушка|
Data=String()
link(onEventData,7288015:doDraw,[])
AddHint(-19,40,63,13,@Hint)
}
Add(For,9535666,469,462)
{
Start=1
End=10
link(onEvent,6162556:doCalc,[])
link(End,15359225:Var2,[])
}
Add(Hub,2916465,371,105)
{
OutCount=3
link(onEvent1,14310219:doFor,[])
link(onEvent2,11361149:doOperation,[(421,118)(421,384)])
link(onEvent3,14089811:doData,[(408,125)(408,468)])
}
Add(Math,11361149,476,378)
{
Op2=1
ResultType=0
link(Op1,10236795:Var3,[(482,89)])
}
Add(GetDataEx,15359225,476,427)
{
link(Data,11361149:Result,[])
}
Add(DoData,14089811,413,462)
{
@Hint=#8:загрушка|
Data=String()
link(onEventData,9535666:doFor,[])
AddHint(-22,44,63,13,@Hint)
}


только я не знаю как перевернуть надпись вертикально, и не знаю как убрать непонятную ось X, которая выдает странные значения, не соответствующие зеленому графику.
карма: 0

0