дерево проектов (объектов) в плагине

Автор stboris, 04.08.11, 16:51:16

« назад - далее »

0 Пользователи и 1 гость просматривают эту тему.

stboris

Народ! Подскажите, пожалуйста, как реализовать в плагине: в отдельной форме необходимо отображать дерево объектов Лоцман (часть корневых папок Лоцмана и их состав вплоть до документов) - необходимо работать с этим деревом (выделять несколько документов и их параметры использовать дальше в приложении). Если кого есть какие мысли поделитесь плиз!

l2qwe

Немного не понятен вопрос. Что нужно?
Алгоритм или пример кода?

stboris

Если можно,  то код, если нет то алгоритм. Мне по идеи надо реализовать отображение такого же дерева как оно выглядит в Лоцман. т.е соответствующим значком отображаются типы объектов и их состояния.

Chaa

В общем-то вся нужная вам информация уже обсуждалась здесь на форуме - и как получить дерево, и откуда берутся значки.
Примеры кода для дерева тоже есть:
http://www.infnt.ru/VL/VL.html
http://www.mea.dol.ru/loodsman/index.html

stboris

Поглядел я эти штуки, но возникла проблема у меня Delphi 2010 и установить эти модули не получилось...Никто не сталкивался как их прикрутить на 2010? Может есть еще какие-нибудь варианты?

l2qwe

По поводу Delphi старше 7 версии: http://forum.ascon.ru/index.php/topic,20352.msg131626.html#msg131626

Вот тут пример простейшего плагина http://forum.ascon.ru/index.php/topic,15373.msg100832.html#msg100832

Добавляем туда TTreeView и заполняем либо GetProjectListEx либо  GetLinkedObjectsEx, смотря что вам необходимо получить.
Если хотим добавить пиктограммы объектов то заполняем TImageList http://forum.ascon.ru/index.php/topic,19720.msg122520.html#msg122520 и связываем его с TTreeView.

Добавляем на форму TDBGrid.
В событие TTreeView OnChanging добавляем процедуру получения атрибутов выборного объекта. Связываем TDBGrid с результатом TClientDataSet.

PS при заполнении TTreeView я использовал такую структуру
Цитироватьrecord
    id : integer;
    product : string;
    idType : integer;
    stType : string;
    idState : integer;
    stState : string;
    version : string;
    checkOut : integer;
    locked : integer;
  end;

stboris


Muk

Цитата: stboris от 08.08.11, 11:54:04
Поглядел я эти штуки, но возникла проблема у меня Delphi 2010 и установить эти модули не получилось...Никто не сталкивался как их прикрутить на 2010? Может есть еще какие-нибудь варианты?
А в чем именно проблема с Loodsman Suite?