Нужна очень странная вещь....ДЕРЕВО-ТАБЛИЦА???????7

← →
Relaxxx (2003-11-12 17:18) [0]

Вот такой ужасный случай, может кто знает такой компонент, вид должен быть приблизительно такой как например когда в Экселе создаеш плюсики, которые скрывают или показывают строки,даже как толком объяснить немогу, как бы дерево из таюлиц

Понятно????

← →
Малиновский Владимир (2003-11-12 17:19) [1]

TVirtualTreeView

← →
clickmaker (2003-11-12 17:20) [2]

Что-то подобное есть на tmssoftware.com. TTreeList вроде называется

← →
Малиновский Владимир (2003-11-12 17:21) [3]

TQuantumGrid от DevExpress

← →
Relaxxx (2003-11-12 17:31) [4]

а где это добро лежит?? или может кто может намылить?

← →
Stalker780 (2003-11-12 17:40) [5]

Это добро обычно бесплатным не бывает ;)
вот www.devexpress.com тебе нужен QuantumGrid 4.5

← →
Малиновский Владимир (2003-11-12 17:42) [6]

TVirtualTreeView бесплатный. Чуть-чуть поищи.

← →
Relaxxx (2003-11-13 16:42) [7]

> Малиновский Владимир
нашол я TVirtualTreeView установил по примерам я вижу что компонент конкретно продвинутый, но как толком с ним работать я не разберусь, может кто то подскажет более менее или вышлет простенькую программу.

Вот что мне нужно.
У меня в таблице гранится дерево, как по данным таблицы строите дерево в TreeView я знаю, но как здесь?????
Дальше, мне нужно чтобы чтобы каждой строчке заполнять таблицу самостоятельно, как у StringGrid, тоесть я смотрю какой элемегнт дерева выбран и взависимости от этого заполняю ячейки напротив. Короче полная белеберда и каша, но так НУЖНО сделать........
Помогите плз!

← →
Erik (2003-11-13 16:57) [8]

Все просто плянь в Help. Там описывается record в нам заполняеш нужные тебе поля. Далее добавляеш элемент
MyRecord = record
Id: Integer; - или что душе угодно
Field1: ShortString;
Field2: ShortString;
end;
PData = ^MyRecord;
Var Data: PData;
Node := Tree.AddChild(curNode);
Data := Tree.GetNodeData(Node); - данные узла
Data.Field1 := "тра-ля-ля";
Data.Field2 := "три рубля";
Все!
И незабудь выставить количество колонок, в GetText паставь
case Column of
0: CellText := Data.Field1;
1: CellText := Data.Field2;
end;
Успехов.

Нужна очень странная вещь....ДЕРЕВО-ТАБЛИЦА???????7 Найти похожие ветки