хочется чтобы названия были над столбиками
Add(MainForm,16184661,133,196)
{
Left=20
Top=105
Width=792
Height=412
Caption="Histogram"
link(onCreate,6817355:doWork2,[])
}
Add(Plotter,10574215,504,49)
{
Width=776
Height=368
Align=5
Name="pl1"
GridColor=16776960
BorderColor=-16777211
GridStyle=0
GridX=0
GridY=0
MaxH=10
}
Add(PlotAxis,4986410,602,49)
{
Grapher="pl1"
Name="X1"
Color=0
Style=2
}
Add(PlotHistogram,7049018,455,217)
{
Grapher="pl1"
Color=8421504
Step=3
Name="Values"
BgColor=-16777203
Axis="X1"
Point(ValuesX)
Point(ValuesY)
link(onAdd,9665008:doSetText,[])
}
Add(Button,13093684,448,49)
{
Left=225
Top=30
Caption="clear"
link(onClick,10574215:doClear,[])
}
Add(StrList,11326325,280,91)
{
Strings=#8:яблоки;9|8:бананы;8|9:персики;6|7:вишня;5|9:черешня;5|8:клюква;3|0:|
}
Add(ArrayEnum,11780986,294,217)
{
link(onItem,1190069:doSplit,[])
link(Array,16511161:Var2,[])
}
Add(PlotSeriesMarker,9665008,525,217)
{
Grapher="pl1"
FrameStyle=5
BgStyle=1
HAlign=1
Series="Values"
link(QueryText,8481455:GetData,[])
}
Add(ArrayRW,16487273,574,168)
{
link(onRead,15673581:doSplit,[])
link(Array,16511161:Var3,[(580,145)])
}
Add(EventFromData,8481455,525,168)
{
link(onEvent,16487273:doRead,[])
}
Add(MultiStrData,1190069,385,217)
{
link(Str,11780986:Item,[(391,205)(345,205)(345,261)(300,261)])
link(onPart1,7049018:doAdd,[])
}
Add(Hub,5989497,224,210)
{
link(onEvent1,1948542:In,[])
link(onEvent2,11780986:doEnum,[])
}
Add(LineBreak,6545,224,98)
{
Caption="cl"
Primary=[1948542,28,112]
}
Add(GetDataEx,16511161,294,140)
{
link(Data,11326325:Array,[])
}
Add(MultiStrData,15673581,616,168)
{
link(onPart1,8481455:doData,[(660,174)(660,162)(513,162)(513,174)])
}
Add(Button,6787751,133,245)
{
Left=160
Top=30
Caption="go"
link(onClick,6817355:doWork3,[(193,251)])
}
Add(HubEx,6817355,189,210)
{
link(onEvent,5989497:doEvent1,[])
}
Редактировалось 1 раз(а), последний 2025-11-09 03:19:44



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