VPF::Проблемы с DBTreeView - Форум программистов

RST8

Дата 12.2.2007, 21:52 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 232
Регистрация: 8.12.2004

Репутация: нет
Всего: 1

Надо:
1. Древовидная структура описанная в БД.
2. Каждому элементу соответствует уникальный код, который ни при каких условиях (удаление и создание заново) не может быть присвоен какому либо другому элементу.
3. Стандартная функциональность (вот здесь проблемы)

Пробовал dxDBTreeView из DevExpress. С ним такие проблемы: По правой кнопке нет нормального (вобще никакого практически) выделения, соответственно невозможно (?) реализовать нормально контекстное меню по дереву.

Также пробовал надстройку над VirtualTreeview, DynamicTreeView (For more information visit our website - http://www.table-report.com . Andrew Yushev Borus software) Здесь не получается сортировка дерева. И еще возникает вопрос касательно п.2. изложенного выше.

smile

--------------------

Посадка, с места которой можно уйти на собственных ногах, считается удачной!

kobra

Дата 12.2.2007, 23:26 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 730
Регистрация: 15.6.2005
Где: Грузия, Тбилиси

Репутация: 1
Всего: 9

не уверен что правилно понял, но,
я обявляю свои обект, наследник нода, с дополнительними своиствами, подстраиваю под задачу

RST8

Дата 12.2.2007, 23:52 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 232
Регистрация: 8.12.2004

Репутация: нет
Всего: 1

Цитата(kobra @ 12.2.2007, 23:26

)

Это Вы про VT? smile

(если не трудно smile

)

--------------------

Посадка, с места которой можно уйти на собственных ногах, считается удачной!

kobra

Дата 13.2.2007, 12:47 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 730
Регистрация: 15.6.2005
Где: Грузия, Тбилиси

Репутация: 1
Всего: 9

вот один из реализации.
тут обьявляется класс

Код


TNodeObject = class(TObject)
public
  IDGen: integer;
  ID0: integer;
  ID1: integer;
  ID2: integer;
  ID3: integer;
  Caption: WideString;
  Text: WideString;
end;

тут создоется

Код


NodeObject := TNodeObject.Create();
  NodeObject.IDGen := 0;
  NodeObject.ID0 := StoredProc.FieldValues['OrgID'];
  NodeObject.ID1 := 0;
  NodeObject.ID2 := 0;
  NodeObject.ID3 := 0;
  NodeObject.Text := StoredProc.FieldValues['Organization'];
  NodeObject.Caption := StoredProc.FieldValues['Organization'];
  Node := Tree.Items.AddChildObject(nil, NodeObject.Text, NodeObject);

тут тут уничтожается

Код


procedure ClearOrganizationTreeView(Tree: TTntTreeView);
var
  I: Integer;
  NodeObject: TNodeObject;
begin
  if Tree.Items.Count > 0 then
  begin
    for I := 0 to Tree.Items.Count - 1 do
    begin
      NodeObject := TNodeObject(Tree.Items.Item[I].Data);
      FreeAndNil(NodeObject);
    end;
    Tree.Items.Clear();
  end;
end;

bjjzpp

Дата 3.11.2007, 00:22 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 2
Регистрация: 3.11.2007

Репутация: нет
Всего: нет

kobra,
подскажите в какой процедуре прописать этот код

Код


NodeObject := TNodeObject.Create();
  NodeObject.IDGen := 0;
  NodeObject.ID0 := StoredProc.FieldValues['OrgID'];
  NodeObject.ID1 := 0;
  NodeObject.ID2 := 0;
  NodeObject.ID3 := 0;
  NodeObject.Text := StoredProc.FieldValues['Organization'];
  NodeObject.Caption := StoredProc.FieldValues['Organization'];
  Node := Tree.Items.AddChildObject(nil, NodeObject.Text, NodeObject);

Плиз...

kobra

Дата 5.11.2007, 09:15 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 730
Регистрация: 15.6.2005
Где: Грузия, Тбилиси

Репутация: 1
Всего: 9

обычно лично я пишу все это, в отделном модуле. и процедура соответственно моя, например
procedure InicializeNodeObject(нужные параметри)

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Базы данных и репортинг \| Следующая тема »