Скачать: CL | DM;

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

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.019 c