Есть компанента для отображения разных графиков.
С размещением ее на форме все получилось, получилось ее "напичкать" данными а вот соединить данные и Диаграмму никак в хелпе был пример на VB

ChartControl.Content.Titles.Add("Total Hours Worked")
ChartControl.Content.Legend.Visible = True
ChartControl.Content.Legend.HorizontalAlignment = XtremeChartControl.ChartLegendAlignment.xtpChartLegendFarOutside

Dim Series As XtremeChartControl.ChartSeries
Series = ChartControl.Content.Series.Add("Quoted")

Series.Points.Add("Sam", 11)
Series.Points.Add("Jesse", 12)
Series.Points.Add("Dave", 4.5)
Series.Points.Add("Max", 6)
Series.Points.Add("Brian", 5)

Series = ChartControl.Content.Series.Add("Hourly")
Series.Points.Add("Sam", 12)
Series.Points.Add("Jesse", 9.5)
Series.Points.Add("Dave", 5)
Series.Points.Add("Max", 12)
Series.Points.Add("Brian", 11)

Series = ChartControl.Content.Series.Add("Unbillable")
Series.Points.Add("Sam", 7)
Series.Points.Add("Jesse", 2)
Series.Points.Add("Dave", 5)
Series.Points.Add("Max", 1)
Series.Points.Add("Brian", 4)

Dim Diagram As XtremeChartControl.ChartDiagram2D
Diagram = ChartControl.Content.Series(0).Diagram
Diagram.AxisY.Title.Visible = True
Diagram.AxisY.Title.Text = "Hours"
Diagram.AxisX.Title.Visible = True
Diagram.AxisX.Title.Text = "Employee" 

вот что у меня получилось

Компонента=СоздатьОбъект("АктивИкс");
    Компонента.УстановитьАтрибут(Форма,"ФБраузер");
    
	Компонента.СоздатьЭУ("Codejock.ChartControl.15.0.1");
	Компонента.УстановитьФокус();
	Компонента.ОбработкаСобытий=1;

	ChartControl = Компонента.Объект;
	ChartContent = ChartControl.Content;
	ChartContent.Titles.Add("Total Hours Worked");
	ChartContent.Legend.Visible = True;
	ChartContent.Legend.HorizontalAlignment = xtpChartLegendFar;//4 число

	Если ChartContent.Series.Count > 0 Тогда
		ChartContent.Series.DeleteAll();
	КонецЕсли;

	ChartBorder = ChartContent.Border;
	ChartBorder.Thickness = 5;
	ChartBorder.Visible = True;

	Series = ChartContent.Series.Add("Quoted") ;
    Series.Points.Add("Sam",11);
    Series.Points.Add("Jesse",12);
    Series.Points.Add("Dave",4.5);
    Series.Points.Add("Max",6);
    Series.Points.Add("Brian",5);
      
    Series = ChartContent.Series.Add("Hourly");
    Series.Points.Add("Sam", 12);
    Series.Points.Add("Jesse", 9.5);
    Series.Points.Add("Dave", 5);
    Series.Points.Add("Max", 12);
    Series.Points.Add("Brian", 11);

    Series = ChartContent.Series.Add("Unbillable");
    Series.Points.Add("Sam", 7);
    Series.Points.Add("Jesse", 2);
    Series.Points.Add("Dave", 5);
    Series.Points.Add("Max", 1);
    Series.Points.Add("Brian", 4);
    Форма.ФБраузер.Видимость(0);
    Форма.ФБраузер.Видимость(1); 

на этом все работает как только пытаюсь соединить диаграмму и серии данных...

Dim Diagram As XtremeChartControl.ChartDiagram2D
Diagram = ChartControl.Content.Series(0).Diagram 

ChartControl.Content.Series(0).Diagram.AxisY.Title.Text = "Hours";
ChartControl.Content.Series(0).Diagram.AxisX.Title.Visible = 1; 

все конец и ашибки
Подскажите КАК ... всю голову сломал

Компанента http://ifolder.ru/22078760 пароль:123
Файл описания http://ifolder.ru/22078867 пароль:123

chessman писал(а) 24. Февраля 2011 :: 10:36:


у меня такой объект
"Codejock.ChartControl.15.0.1"

Да

Eprst писал(а) 24. Февраля 2011 :: 11:39:


Да нет я снес весь дистрибутив и зарегистрировал только  Codejock.ChartPro.v15.0.1.ocx

все появилось

У меня програмка стоит COM Explorer я регистрирую через нее

а ХЕЛП вы не пробовали смотреть(это к моему вопросу в ШАПКЕ)
может Вам из него станет ясно, не регистрируя компанету???

Eprst писал(а) 24. Февраля 2011 :: 12:52:


Да Вы правы ругается
Плохой тип переменной

я вот смотрю по хелпу там написано так
ChartControl-Content-Series-Diagram-Titles
либо
ChartControl-Content-Diagrams
и как именно сделать этот код на 1С

Dim Diagram As XtremeChartControl.ChartDiagram2D
Diagram = ChartControl.Content.Series(0).Diagram  

невкурю никак

Так спробуй:

ChartControl.Content.Series.Item(0).Diagram.titles.Item(0).Text = "Hours";

Значит, в коллекции Diagram.Titles пусто, нужно сперва add делать...
Зы: "наугад" лень смотреть, проще методом научного тыка..
Лень этот ocx ставить/смотреть/качать 40 метров.