TTreeView с Check Boxes

← →
Анна (2010-01-18 14:22) [0]

Есть таблица с иерархической структурой, которую надо периодически инсертить и апдейтить.
Структура такая:
kod_level name_level reference_level prim

1 Кодификаторы 0 NULL
2 Кодиф объект.. 1 NULL
3 Кодиф семейств 1 NULL
4 Кодиф синонимов 1 1
10 Кодиф субъек РФ 1 NULL
40 Справочники 0 NULL
41 Справочник вод 40 1
42 Справочник голот 40 1
43 Справочник игло 40 1
44 Справочник кал 40 NULL
57 Аналит инф стат 0 NULL
58 Пром стат 57 NULL
59 Основные кол 57 1

Решила сделать ввод новых ветвей и подветвей, а также редактирование старых ветвей через treeview. В таблице поле PRIM отвечает за визуальное состояние нижних ветвей, т.е. если "1" - то эта ветка доступна для выбора пользователям (в другой прогамме).
Около каждой нижней ветки сделала для этой цели чекбокс:
With TreeView1.Items.Item[5] do SetWindowLong(TreeView1.Items.Item[5].Handle,GWL_STYLE,GetWindowLong(TreeView1.I tems.Item[5].Handle,GWL_STYLE) or TVS_CHECKBOXES);

Чекбоксы появляются, но по всем веткам, т.е. и по верхним, с reference_level=0...
1. посоветуйте, пож-та, другой вариант, как сдалать insert или update в таблицу поля PRIM через дерево?
2. можно ли "прикрутить" чекбоксы к отдельным node ?
Заранее спасибо.

← →
Анна (2010-01-18 15:19) [1]

:((

← →
MBo © (2010-01-18 15:48) [2]

Хм. Я думал, что установка стиля TVS_CHECKBOXES действует на дерево в целом...
Для отдельных узлов, наверно, проще картинки рисовать (через Imagelist)

← →
Анна (2010-01-18 15:51) [3]

← →
HRustBB (2010-01-18 23:10) [4]

может это поможет http://www.soft-gems.net/VirtualTreeview/

TTreeView с Check Boxes Найти похожие ветки