Gitarist писал(а):
Подскажите еще, как сделать, чтобы столбики шли по порядку убывания, начиная с самого большого, и заодно надо чтобы самый высокий столбец помещался в плоттер, ведь яблок может быть условно не 8, а 50
Add(MainForm,16184661,112,161)
{
Left=20
Top=105
Width=792
Height=412
Caption="Histogram"
link(onCreate,5989497:doEvent1,[])
}
Add(Plotter,10574215,602,175)
{
Left=156
Top=45
Width=620
Height=328
Align=5
Name="pl1"
GridColor=16776960
BorderColor=-16777211
AxisColor=-16777201
GridStyle=0
GridX=0
GridY=0
MinH=-1
MaxH=15
MinW=-2
MaxW=20
Point(doMaxW)
Point(doMaxH)
}
Add(PlotHistogram,7049018,413,210)
{
Grapher="pl1"
Color=8421504
Step=3
Name="Values"
BgColor=-16777203
Axis="X1"
Point(ValuesX)
Point(ValuesY)
}
Add(StrList,11326325,217,49)
{
Strings=#12:яблоки;9 |12:бананы;8 |12:персики;6 |12:вишня;5 |12:черешня;5 |12:клюква;3 |8:киви;4 |9:черника;7|10:малина;12 |
}
Add(PlotSeriesMarker,9665008,301,406)
{
Grapher="pl1"
FrameStyle=5
BgStyle=1
HAlign=1
Series="Values"
link(QueryText,8481455:GetData,[])
}
Add(EventFromData,8481455,301,350)
{
link(onEvent,2127722:doRead,[(340,356)(340,342)(249,342)(249,356)])
}
Add(Hub,5989497,175,175)
{
InCount=2
OutCount=4
link(onEvent1,9513990:doEnum,[(200,181)(200,111)])
link(onEvent2,16209489:doCalc,[])
link(onEvent3,585307:doEMatrix,[(249,195)(249,251)])
link(onEvent4,9665008:doSetText,[(207,202)(207,412)])
}
Add(PlotAxis,4986410,658,175)
{
Grapher="pl1"
Name="X1"
Color=0
Style=2
}
Add(MathParse,16209489,511,182)
{
MathStr="(%1 - 1) * 3 + 2"
link(onResult,10574215:doMaxW,[])
link(X1,7967511:Count,[])
}
Add(MTStrTbl,7967511,497,133)
{
Top=45
Width=156
Height=328
Align=1
Color=-16777201
Ctl3D=1
WinStyle=1
Name="tabl"
Columns=#1:1|1:2|
ColorItems=0
Redaction=0
Style=4
Grid=0
}
Add(ArrayEnum,9513990,231,105)
{
link(onItem,658004:doMTString,[])
link(onEndEnum,5530192:doData,[(277,118)(277,146)])
link(Array,11326325:Array,[])
}
Add(MST_RowAction,14594931,336,91)
{
MSTControl="tabl"
}
Add(MST_SortInCol,4529767,336,133)
{
MethodSort=1
MSTControl="tabl"
Point(doSortDigit)
link(onChange,9859496:doColAction,[])
}
Add(DoData,5530192,287,140)
{
Data=Integer(1)
link(onEventData,4529767:doSortDigit,[])
}
Add(MT_String,658004,287,91)
{
link(onResult,14594931:doRowAction,[])
}
Add(MST_ColAction,9859496,385,133)
{
Action=9
MinColWidth=0
Index=-2
MSTControl="tabl"
}
Add(Label,2884795,448,133)
{
Width=776
Height=45
Align=2
Caption=""
AutoSize=1
}
Add(Button,13093684,546,133)
{
Left=225
Top=15
Caption="clear"
link(onClick,10574215:doClear,[(592,139)(592,181)])
}
Add(Button,6787751,112,210)
{
Left=160
Top=15
Caption="go"
link(onClick,5989497:doEvent2,[(151,216)(151,188)])
}
Add(MST_Matrix,585307,259,245)
{
X=1
Y=-1
MSTControl="tabl"
link(onEMatrix,10912701:doEnum,[])
}
Add(MT_Enum,10912701,308,245)
{
link(onItem,5285132:doEvent1,[])
link(onEndEnum,8266699:doOperation,[(361,258)(361,307)])
}
Add(MathParse,5636243,413,252)
{
MathStr="max( %1,%0)"
}
Add(MatrixRW,2127722,259,350)
{
X=1
link(onRead,8481455:doData,[])
link(Matrix,585307:Matrix,[])
link(X,10872164:Value,[])
}
Add(Memory,10872164,273,294)
{
Default=Integer(0)
}
Add(Hub,5285132,371,245)
{
link(onEvent1,7049018:doAdd,[(396,251)(396,216)])
link(onEvent2,5636243:doCalc,[])
}
Add(Math,8266699,413,301)
{
Op2=1
ResultType=0
link(onResult,10574215:doMaxH,[(550,307)(550,195)])
link(Op1,5636243:Result,[])
}



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