| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Пример работы TreeView [Delphi, Windows]

o.bender ©   (2005-01-31 13:00:00) 

Разыскивается subj!!!

---

dimaxx   (2005-02-02 02:06:00) [1]

Еще что? Неужели мало? Был запрошен пример работы, а не полный справочник по использованию KOLTreeView...

---

o.bender   (2005-02-01 12:08:00) [2]

ок, спасибо...
а ещё? ;)

---

dimaxx   (2005-01-31 21:40:00) [3]

Примерно так...

var
 I,J: integer;
 Tree: TKOLTreeView;
...
 I:=Tree.TVInsert(0,0,'111111');
 J:=Tree.TVInsert(I,1,'222222');
 J:=Tree.TVInsert(I,2,'333333');
 J:=Tree.TVInsert(I,3,'444444');
 Tree.TVExpand(I,TVE_EXPAND);

 I:=Tree.TVInsert(0,4,'555555');
 J:=Tree.TVInsert(I,5,'666666');
 J:=Tree.TVInsert(I,6,'777777');
 J:=Tree.TVInsert(I,7,'888888');
 Tree.TVExpand(I,TVE_EXPAND);

 I:=Tree.TVInsert(0,8,'999999');
 J:=Tree.TVInsert(I,9,'AAAAAA');
 J:=Tree.TVInsert(I,10,'BBBBBB');
 J:=Tree.TVInsert(I,11,'CCCCCC');
 J:=Tree.TVInsert(I,12,'DDDDDD');
 Tree.TVExpand(I,TVE_EXPAND);

Воткни этот код в проект и увидишь - у кого откуда ноги растут... :-)

Удачи!

---

o.bender   (2005-01-31 13:48:00) [4]

когда-то Gandalf говорил про "довольно милый ну чуть громозкий" пример, может кто поделится?

---

Наверх