Форум: "Основная";
Текущий архив: 2003.11.24;
Скачать: [xml.tar.bz2];
ВнизНужна очень странная вещь....ДЕРЕВО-ТАБЛИЦА???????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;
Успехов.
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2003.11.24;
Скачать: [xml.tar.bz2];
Память: 0.46 MB
Время: 0.01 c