(UTC)
  1С++ users forum › 1С++ и прочие расширения v7 › 1С++, TurboMD и прочие вкусности › Вопрос ActiveX(1С7.7) не получается один метод
(Группа Модераторов: 1c++ moderator)
‹ Предыдущая Тема | Следующая Тема ›
Переключение на Главную Страницу Страницы: 1 2 [3]  ОтправитьПечать
Очень популярная тема (более 25 ответов) Вопрос ActiveX(1С7.7) не получается один метод (число прочтений - 8929 )
serpentariy
Junior Member
**
Отсутствует


1C++ rocks!

Сообщений: 35
Зарегистрирован: 19. Ноября 2009
Re: Вопрос ActiveX(1С7.7) не получается один метод
Ответ #30 - 25. Февраля 2011 :: 09:41
Печать  
Eprst писал(а) 25. Февраля 2011 :: 07:43:
Сдается мне, что никак его не заставить работать  Печаль
Плохой тип переменной и хоть убейся.
Даже, если всё делать из демо-примеров..
Вот в vb - усё работает как надо..
Ща в снеговике посмотрю.


ВСЕ разобрался
у  ChartControl есть CreateElement("CXTP"+"имя класа");
Код
Выбрать все
Public Function CreateElement( _
   ByVal ClassName As String _
) As ChartElement


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

	Компонента.СоздатьЭУ("Codejock.ChartControl.15.0.1");//SimpleChart.PieChart.4
	Компонента.УстановитьФокус();
	Компонента.ОбработкаСобытий=1;

	ChartControl = Компонента.Объект;
	ChartControl.EnableToolTips(1);

	CChWnd = ChartControl.hWnd;

	ChartContent = ChartControl.Content;
	ChartContent.Titles.Add("Total Hours Worked");
	ChartContent.Legend.Visible = True;
	ChartContent.Legend.HorizontalAlignment = 2;//4 число
	ChartContent.EnableMarkup = true;

	ChartBorderL = ChartContent.Legend.Border;
	ChartBorderL.Visible = True;
	ChartBorderL.Thickness = 5;



	Если 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);

	//ChartControl.Content.Diagrams.Item(0).Add("Вася");
	//ChartControl.Content.Series.Item(0).Diagram.titles.Item(0).Text = "Hours";

	ChartBar = ChartControl.CreateElement("CXTPChartBarSeriesStyle");
	ChartControl.Content.Series(0).Style = ChartBar;
  
Наверх
 
IP записан
 
Eprst
God Member
*****
Отсутствует



Сообщений: 3397
Зарегистрирован: 08. Октября 2007
Re: Вопрос ActiveX(1С7.7) не получается один метод
Ответ #31 - 25. Февраля 2011 :: 10:22
Печать  
Да , работает, даже демка с хэлпа :
Код
Выбрать все
	ChartControl.Content.Titles.Add("Total Hours Worked");

    ChartControl.Content.Titles(0).Text = "Population by U.S. State";


    ChartControl.Content.Legend.Visible = 1;
    ChartControl.Content.Legend.HorizontalAlignment = 5;//xtpChartLegendNearOutside


    Series = ChartControl.Content.Series.Add("New York");

    Series.Points.Add (1900, 7268);
    Series.Points.Add (1950, 14830);
    Series.Points.Add (1990, 17990);
    Series.Points.Add (2000, 18976);
    Series.Points.Add (2008, 18323);

    Series = ChartControl.Content.Series.Add("California");

    Series.Points.Add (1900, 1485);
    Series.Points.Add (1950, 10586);
	ChartBar = ChartControl.CreateElement("CXTPChartBarSeriesStyle");
	ChartControl.Content.Series(0).Style = ChartBar;

	ChartBar = ChartControl.CreateElement("CXTPChartAreaSeriesStyle");
	ChartControl.Content.Series(1).Style = ChartBar;

   ChartControl.Content.Series(0).Diagram.AxisY.Title = "Population Growth (Millions)";
   ChartControl.Content.Series(0).Diagram.AxisY.Title.Visible = 1;
   ChartControl.Content.Series(1).Diagram.AxisY.Title = "Decade / Year";
   ChartControl.Content.Series(1).Diagram.AxisY.Title.Visible = 1;
  
Наверх
 
IP записан
 
serpentariy
Junior Member
**
Отсутствует


1C++ rocks!

Сообщений: 35
Зарегистрирован: 19. Ноября 2009
Re: Вопрос ActiveX(1С7.7) не получается один метод
Ответ #32 - 25. Февраля 2011 :: 10:28
Печать  
а в снеговике заработало по первому варианту, без создания обекта??

в хелпе специально написали(говорила мне мама, учи английский)
Код
Выбрать все
Remarks

This will create and return a chart element.  This is used in languages like VBScript where creating an object from the chart isn't possible.


Замечания

Это позволит создать и вернуть элемент диаграммы. Это используется в языках, таких как VBScript, где создание объекта из диаграммы не представляется возможным.
  
Наверх
 
IP записан
 
Переключение на Главную Страницу Страницы: 1 2 [3] 
ОтправитьПечать
‹ Предыдущая Тема | Следующая Тема ›
 
  « Главная ‹ Раздел Вверх  



Valid RSS Valid XHTML Valid CSS Powered by Perl Source Forge