Предлагается к тестированию дерево на форме.
Особенности данного активикса:
- высокая скорость работы.
- в разных уровнях может быть разное количество колонок
- широкие возможности по разукрашиванию
- возможность таскать мышей заголовки колонок
- автоподстраивание ширины колонок под размер активикса
- данные разных уровней могут находится как в одном, так и в разных источниках данных
Минус - не выделяется (как минимум, пока) одна ячейчка - только строка целиком.
Активикс построен на TdxMasterView. Источники данных: TdxMemData.
Планируется дальнейшее расширение возможностей контрола.
Качать отсюда:
http://www.rikcenter.ru/downloads.php?file=8

Действительно красиво...

Хреново что опять многострочные заголвки нельзя сделать

То есть
Колонка1.Caption      = "Колонка 1"+РазделительСтрок+"Вторая строка имени";
не пройдет как и в случае с Табличным полем

Ну и в качестве пожеланий
ЗЫ В тестовой обработке необходимо все таки проверить уже загруженность 1С++ (и грузить лучше из каталогаПрограммы)
и наличие Общие.Форма.Привязка соответственно и FormEx - а то вопросов назадают...

PSS один АЛьФ только и сделал многострочность (в меню)... Да и то пока неизвестно когда будет сборка с FormEx c этой фичей

"Хреново что опять многострочные заголвки нельзя сделать" - на счет заголовков не знаю, а в ячейках многострочность будет.

"ЗЫ В тестовой обработке необходимо все таки проверить уже загруженность 1С++ (и грузить лучше из каталогаПрограммы)
и наличие Общие.Форма.Привязка соответственно и FormEx - а то вопросов назадают... " -  не совсем понял... 1С++ грузится оттуда, где найдется. Есть любители, кадающие ВК в каталог БД.  Работа с привязками в попытку взята - отработается и там, где этого класса нет.

"Это freeware?" - я за этот активикс денег просить не собираюсь .

Пуск -> Выполнить -> regsvr32.exe <ТВОЙ ПУТЬ ГДЕ ЛЕЖИТ КОНТРОЛ>\RiK_tree.ocx

Ну раз уж Михаил протестил активикс, значит он стоит того

Скачал, погонял, оценил! Блин, мне очень даже понравилось. Одним словом развивать надо!

И есчо: где доку почитать по контролу?

Ну хотя бы тут все возможные ивенты перечисли

Упс... тода надо и методы и свойства

Правленный файлик, для тех, кто не любит копаться в источниках.

Точно... Век живи...

ну вот теперь есть список методов

trdm писал(а) 15. Марта 2007 :: 09:24:


Во блин, точно - век живи - век учись. Круто. Огромное спасибо!

Arta писал(а) 15. Марта 2007 :: 11:50:


Пока нет. В данном случае, DataSource - это таблица в памяти.

Arta писал(а) 15. Марта 2007 :: 11:50:


А зачем tag? Я вот так делал:
     Поле1 = ИсточникДанных1.AddField("IdDoc", 1);
     Поле1.Size = 9;
     Поле2 = ИсточникДанных1.AddField("PredstDoc", 1);
     Поле2.Size = 200;
     Поле0 = ИсточникДанных1.AddField("ViDoc", 1);
     Поле0.Size = 9;
...
     ИсточникДанных1.Append();
     Поле1.Value            = тзРез.ИдДок;
     Поле2.Value            = тзРез.ПредставлениеДокумента;
     Поле0.Value            = тзРез.ВидДок;
...
     Колонка                              = Левел1.AddColumn("IdDoc", 1);
     Колонка.Visible                  = 0;
     Колонка                              = Левел1.AddColumn("ViDoc", 1);
     Колонка.Visible                  = 0;
     Колонка                              = Левел1.AddColumn("PredstDoc", 1);
     Колонка.VisibleWidth      = 300;
     Колонка.Caption                  = "Документ";
...

Процедура текстДерево_OnDblClick() Экспорт
     Выделенное      = оДерево.Объект.SelectedItems;
     
     Если Выделенное.LevelName(0) = "L1" Тогда
           ИдДок            = Выделенное.Values(0,0);
           ВидДок            = Выделенное.Values(0,1);
           ТекЭлемент      = РадугаСервис.ЗначениеИзСтрокиБД(12, Число(ВидДок), ИдДок);
     Иначе
           Возврат;
     КонецЕсли;

     глОткрытьЭлементСправочникаДокумент(ТекЭлемент);
КонецПроцедуры

Arta писал(а) 14. Марта 2007 :: 23:28:

Активикс хороший, но дело даже не в этом.

У Олега полно интересных разработок и идей, но фриварных раньше замечено не было.
Вдруг, это позитивная тенденция?

Раз уж ты согласен со свободным доступом, выложил бы сам : )

ЗЫ я помнится, в свое время (1000 лет назад) так на тебя и вышел в первый раз, искал какую-то твою ВК

ЗЗЫ лично у меня ничего закрытого из твоих ВК нет, к сожалению

Что то у меня не получается второй уровень заполнить, первый (документ) заполняется, а второй не ясно.. вроде как он существует, но не разворачивается. Вроде все по примеру пробую, поскажите...
Процедура Заполнить()   
     Левелс = оДерево.Объект.Levels;
     
     Левел            = Левелс.Add("L1");
     Левел.ID      = "RecId";
     
     Колонка1                        = Левел.AddColumn("Doc", 1);
     Колонка1.VisibleWidth      = 200;
     Колонка1.Caption            = "Документ";
     
     Левел.AddColumn("Date", 1);
     Колонка2                        = Левел.GetColumn(1);
     Колонка2.VisibleWidth      = 300;
     Колонка2.Caption            = "Дата";   
     
     Колонка3                        = Левел.AddColumn("Time", 1);
     Колонка3.VisibleWidth      = 150;
     Колонка3.Caption            = "Номер";   
     
     Колонка4                        = Левел.AddColumn("Cust", 1);
     Колонка4.VisibleWidth      = 300;
     Колонка4.Caption            = "Контрагент";
     
     Колонка5                        = Левел.AddColumn("Sum", 1);
     Колонка5.VisibleWidth      = 150;
     Колонка5.Caption            = "Сумма";   

     Левел2 = Левел.Levels.Add("L2");
     Левел2.AddColumn("Invent", 1).VisibleWidth = 400;
     Левел2.AddColumn("Quantity", 1).VisibleWidth = 100;
     Левел2.AddColumn("Sum", 1).VisibleWidth = 100;   
     
     Левел2.ID = "RecId";
     Левел2.MasterKey = "Invent";
     Левел2.DetailKey = "Invent";
     
     ИсточникиДанных            = оДерево.Объект.DataSources;
     ИсточникДанных1            = ИсточникиДанных.Add();

     Поле1 = ИсточникДанных1.AddField("Doc", 1);
     Поле2 = ИсточникДанных1.AddField("Date", 1);
     Поле3 = ИсточникДанных1.AddField("Time", 1);
     Поле4 = ИсточникДанных1.AddField("Cust", 1);
     Поле5 = ИсточникДанных1.AddField("Sum", 1);      
     
     
     Поле1.Size = 300;
     Поле2.Size = 100;
     Поле3.Size = 100;
     Поле4.Size = 300;
     Поле5.Size = 100;
     
     ИсточникДанных1.DisableControls();
     ИсточникДанных1.Open();   
     
     Док = СоздатьОбъект("Документ.РасходнаяНакладная");
     Док.ВыбратьДокументы(НачДата,КонДата);
     
     //Пока Док.ПолучитьДокумент() = 1 Цикл    
           Док.ПолучитьДокумент();
           ИсточникДанных1.Append();
           Поле1.Value = Док.Вид();
           Поле2.Value = Док.ДатаДок;
           Поле3.Value = Док.НомерДок;
           Поле4.Value = Док.Контрагент.Наименование;
           Поле5.Value = Док.Итог("СуммаСНДС");
           
           ИсточникДанных1.Post();
           ИсточникДанных1.EnableControls();    
              
           ИсточникДанных2            = ИсточникиДанных.Add();
           ИсточникДанных2.AddField("Invent", 1).Size = 400;
           ИсточникДанных2.AddField("Quantity", 1).Size = 100;
           ИсточникДанных2.AddField("Sum", 1).Size = 200;
                          
                 Поле1 = ИсточникДанных2.Field(1);
                 Поле2 = ИсточникДанных2.Field(2);
                 Поле3 = ИсточникДанных2.Field(3);
                 
                 ИсточникДанных2.DisableControls();
                 ИсточникДанных2.Open(); 
           
           Док.ВыбратьСтроки();
           Пока Док.ПолучитьСтроку() = 1 Цикл 
                 ИсточникДанных2.Append();
                 Поле1.Value = Док.Товар.Наименование;
                 Поле2.Value = Док.Количество;
                 Поле3.Value = Док.СуммаСНДС;   
                 ИсточникДанных2.Post();
                 ИсточникДанных2.EnableControls();
           
           КонецЦикла; 

     
      
           //      КонецЦикла;   
     
           
           Левел.DataSource      = ИсточникДанных1;
           Левел2.DataSource      = ИсточникДанных2;
           
     оДерево.Объект.HighlightStyle = Стиль3;

     Левел.HeaderStyle      = Стиль1;
     Левел.CaptionStyle      = Стиль3;
     Левел.ContentStyle      = Стиль4;
     
     Левел2.HeaderStyle      = Стиль2;
КонецПроцедуры

контрол класный, но у меня есть несколько вопросов:
1. как удалять данные (строки) из источника(ов) данных?
2. есть у контрола события - при разворачивании/сворачивании ветки и др.

Bond писал(а) 16. Апреля 2007 :: 08:58:

Ну ты бы посмотрел на что ругается да разобрался бы. Скорее всего тебе нужно либо исправить строчки, которые создают ЭлементУправления на форме, либо использовать 2.5 + FormEx 2.05

Наконец-то появилась возможность немного позаниматься ActiveX-ом.
Обновленноя версия выложена там же:
http://www.rikcenter.ru/downloads.php?file=8
Добавлено:
1. Опять же, наконец-то написана документация. Правда не полная... Правда, местами по англицки - там где я не смог положиться на правильность и полноту моего понимания работы исходного компонента.
2. Появилась возможность перебирать строки источника данных, считывать и изменять в них значения. Очищать источник данных. Удалить отдельно взятую строку. Добавить новую.
3. Теперь можно рулить горизонтальной ориентацией контента и заголовков.
4. Появился интерфейс управления отображением уровня (например, скрыть/показать заголовки).
5. Можно выводить текст в ячейке несколькими строками.
6. Ну и чего-то там еще - всего не помню.

Добавлены события:
- OnDblClick(<NodeType>, <Node>)
- OnSelection(<Node>)
- OnMouseDown(<iButton>, <sShift>, <X>, <Y>, <NodeType>, <Node>)
- OnMouseUp(<iButton>, <sShift>, <X>, <Y>, <NodeType>, <Node>)
- OnClick(<iButton>, <sShift>, <X>, <Y>, <NodeType>, <Node>)
.
Ну и, опять же, не много по мелочи...

И еще добавилось:
- возможность накладывать фильтр на источник данных.
- фокусироваться на определенном Node
- ну и, опять же, по мелочи всякого.

Разбираемся потихоньку...

1. Многострочные ячейки это вешь 
2. Есть один момент, при раскрытии последнего узла в видимой части элемента, он раскрывается вниз за границы элементы - вопрос: Фокус не должен меняться, или сдвиг как нибудь?
3. в тестовых обработках - вопрос: Что есть "ОБъектП"?

Выделение одной ячейки не удается сделать? Очень хотелось бы

Апну. Подстегну народ чуток к действиям.

Вы только попробуйте возможности группировки этим активиксом. Оргазм гарантирован
Драг-н-дропом утянули колонку наверх и группировка готова...

[quote author=Thor link=1173175420/40#45 date=1188399989
dxdbgrid? [/quote]

Активикс построен на TdxMasterView. Источники данных: TdxMemData.

Олег, а chm не обновлял?

stalker18 писал(а) 07. Ноября 2007 :: 09:12:

OnMouseUp и OnClick?

Обновил ActiveX на сайте.
Новые события:
- OnFocusNode(PrevNode, CurNode)   (Получение фокуса строкой с данными ActiveX-а. Переход по строкам.)
- OnKeyPress(Key)
- OnKeyDown(Key, Alt, Shift>, Ctrl, Node)
- OnKeyUp(Key, Alt, Shift, Ctrl, Node)

sadovnikov писал(а) 18. Ноября 2007 :: 08:35:


спасибо, то что нужно было 

Методом научного тыка - underline и strikethrough

Вообще, очень странно, что не закрывается. Там делается тупо:
    methCloseSoob: //ЗакрытьОкноСообщения()
     begin   //Здесь пишем, что метод должен делать
       if FormSoob<>nil then begin
         BringWindowToTop(elem); //ОБЯЗАТЕЛЬНО, ЧТОБЫ НЕ ПЕРЕКЛЮЧАЛОСЬ В ДРУГОЕ ПРИЛОЖЕНИЕ!!!!!!!!!!!!!
         FormSoob.Hide;
       end;
     end;

Есть возможность скинуть в почту обработку и екселевский файлик для посмотреть?
P.S. кстати, окно сообщений обзавелось еще прогресс-баром.

Цитата:

Не разбирался особо со стилями исходного компонента, просто вытянул наружу и успокоился
Родной хэлп вот что говорит:
Indicates which properties have been assigned to a MasterView style.

type
TdxMasterViewStyleValue = (svAnotherColor, svColor, svFont);
TdxMasterViewStyleValues = set of TdxMasterViewStyleValue;

property AssignedValues : TdxMasterViewStyleValues;

Description
The TdxMasterViewStyleValues type defines a set of possible state flags for the AssignedValues property.  Except for the default, the component uses assigned values, when implementing a style.  The following table lists the possible values for a TdxMasterViewStyleValues object and explains the meaning of each flag:

Value      Description

svAnotherColor      The AnotherColor property has been assigned.
svColor      The Color property has been assigned.
svFont      The Font property has been assigned.

При помощи предлагаемого активикса есть смысл делать деревья с жестко заданным и заранее известных количеством уровней. Для вывода дерева метаданных (ну или чего-то на него похожего), на мой взгляд, проще применить механизм, использующияся здесь:
http://www.rikcenter.ru/downloads.php?file=6
для вывода дерева групп справочника.

Здравствуйте.
Пишу следующий код:

Процедура СоздатьУровеньКатегорийВДереве()
	Categories = ДеревоСписокДокументов.Object.Levels.Add("Categories");
	Categories.ID = "RecId";
	Category = Categories.AddColumn("Category", 1);

	DataSource = ДеревоСписокДокументов.Object.DataSources.Add();
	DataSource.AddField("Category", 1);
КонецПроцедуры



Процедура СоздатьУровеньДокументовВДереве()
	Documents = ДеревоСписокДокументов.Object.Levels.Add("Documents");
	Documents.ID = "RecId";
	Category = Documents.AddColumn("Category", 1);
	Desc = Documents.AddColumn("Desc", 1);
	RefDesc = Documents.AddColumn("RefDesc", 1);

	DataSource = ДеревоСписокДокументов.Object.DataSources.Add();
	UIDField = DataSource.AddField("UID", 1);
	CategoryField = DataSource.AddField("Category", 1);
	DescField = DataSource.AddField("Desc", 1);
	RefField = DataSource.AddField("Ref", 1);
	RefDescField = DataSource.AddField("RefDesc", 1);
	RefTypeField = DataSource.AddField("RefType", 1);
	DateForSortField = DataSource.AddField("DateForSort", 1);

	Documents.MasterKey = "Category";
 	Documents.DetailKey = "Category";
КонецПроцедуры



Процедура СоздатьСтруктуруДерева()
	СоздатьУровеньКатегорийВДереве();
	СоздатьУровеньДокументовВДереве();
	ДеревоСписокДокументов.Object.OptionsView.movAutoColumnWidth = 1;
КонецПроцедуры



Процедура СоздатьЭлементУправленияДляСпискаДокументов()
	НоваяФорма = СоздатьОбъект("Форма");
	НоваяФорма.УстановитьФорму(Форма);
	ДеревоСписокДокументов =
		НоваяФорма.СоздатьЭлементУправления("АктивИкс", "ТекстСписокДокументов");
	ДеревоСписокДокументов.СоздатьЭУ("RiK_Tree.RiK_TreeX");
	СоздатьСтруктуруДерева();
КонецПроцедуры



Процедура ОтобразитьКатегорииВДереве()
	DataSource = ДеревоСписокДокументов.Object.DataSources.Items(0);

	DataSource.DisableControls();
	DataSource.Clear();
	DataSource.Open();
	Категории = ПИнформацияПоЗаявлению.ПолучитьКатегорииДокументовСправочников();
	Категории.ВыбратьСтроки();
	Пока Категории.ПолучитьСтроку() = 1 Цикл
		DataSource.Append();
		DataSource.FieldByName("Category").Value = СокрЛП(Категории.Категория);
	КонецЦикла;
	DataSource.Post();
	DataSource.EnableControls();
КонецПроцедуры



Процедура ОтобразитьДокументыВДереве(Документы)
	DataSource = ДеревоСписокДокументов.Object.DataSources.Items(1);

	DataSource.DisableControls();
	DataSource.Clear();
	DataSource.Open();
	Документы.ВыбратьСтроки();
	Пока Документы.ПолучитьСтроку() = 1 Цикл
		DataSource.Append();
		DataSource.FieldByName("UID").Value = Документы.УИД;
		DataSource.FieldByName("Category").Value = СокрЛП(Документы.Категория);
		DataSource.FieldByName("Desc").Value = Документы.Описание;
		//DataSource.FieldByName("Ref").Value = Документы.Ссылка;
		DataSource.FieldByName("RefDesc").Value = Документы.ОписаниеСсылки;
		DataSource.FieldByName("RefType").Value = Документы.ТипСсылки;
		DataSource.FieldByName("DateForSort").Value = Документы.ДатаДляСортировки;
	КонецЦикла;
	DataSource.Post();
	DataSource.EnableControls();

	ДеревоСписокДокументов.Object.Levels.Items(0).DataSource
		= ДеревоСписокДокументов.Object.DataSources.Items(0);
	ДеревоСписокДокументов.Object.Levels.Items(1).DataSource
		= ДеревоСписокДокументов.Object.DataSources.Items(1);
КонецПроцедуры



Процедура ЗаполнитьЭлементУправленияДляСпискаДокументов()
	ОтобразитьКатегорииВДереве();
	СвязанныеДокументыСправочники =
		ПИнформацияПоЗаявлению.ПолучитьКешированныеСвязанныеДокументыСправочники();
	Если СвязанныеДокументыСправочники.КоличествоСтрок() > 0 Тогда
		СвязанныеДокументыСправочники.Выгрузить(ПолеТаблицаДокументов, 1,
			СвязанныеДокументыСправочники.КоличествоСтрок());
		ОтобразитьДокументыВДереве(СвязанныеДокументыСправочники);
	КонецЕсли;
КонецПроцедуры

 

В итоге отображается все так, как во вложении.
Что я не так сделал? Что нужно сделать, чтобы появился "плюсик" для разворачивания категории?

mctoha писал(а) 13. Июня 2010 :: 19:43:

присоединяюсь  
как можно при OnSelection(<Node>) узнать текущую редактируемую колонку и возможно ли такое?