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

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

TreeView Нужна помощь!


DrFaust ©   (2003-04-03 16:07:00) 

Кто разбирался и рботал с ( TreeView.TVInsert(0,n,"Text")

Кто разбирался и рботал с TreeView помогите примером как сделать простое дерево, а то только в TVI_ROOT ( TreeView.TVInsert(0,n,"Text");) и получается добавлять, а другие уровни нет!


Кладов   (2003-04-15 16:42:00) [1]

Все функции что начинаются TV... если смотреть глоссарий. Или смотреть фунцию NewTreeView и оттуда.


DrFaust   (2003-04-14 16:19:00) [2]


> OnTVSelChanging . Поставь себе HTML хелп. Вещь необходимая.

Немного подробнее - это тот что генерит хелп из исходников - он у меня есть, но там не слова о TreeView нет!


blackalex   (2003-04-14 15:23:00) [3]

А как при стерании сохранить все свойства всех пунктов

Да черт его знает ;) Названия ветвей можно к примеру в StrList запихать. Придумать то можно чего.

Как прикрутить действие при выборе пункта?

OnTVSelChanging . Поставь себе HTML хелп. Вещь необходимая.



DrFaust   (2003-04-14 11:58:00) [4]


> Наверно лучший способ здесь - все стереть и вновь создать,
> как тебе хочеться.

А как при стерании сохранить все свойства всех пунктов , чтобы потом сделать новое дерево.В чостности название пункта, и ЕЩЕ один вопрос:
Как прикрутить действие при выборе пункта?


blackalex   (2003-04-14 09:53:00) [5]

Это все хорошо, но это в RunTime, а я делаю в дизайнере

По ходу в дизайнере такой возможности не существует, так как чтобы присвоить иконку надо сначало создать ветвь.

Еще вопрос - есть дерево. Как преобразовать его?

Наверно лучший способ здесь - все стереть и вновь создать, как тебе хочеться.


DrFaust   (2003-04-11 16:25:00) [6]


> При создании TreeView вторым параметром передаем ImageList
> где хранятся иконки

Это все хорошо, но это в RunTime, а я делаю в дизайнере. Ну да ладно с этим понятно.
Еще вопрос - есть дерево
Item1
Item11
Item12
Item13
Inem2
Item3
Как преобразовать его в дерево?
Item1
Item11
Item12
Inem2
Item3
Item13


blackalex   (2003-04-07 09:41:00) [7]

При создании TreeView вторым параметром передаем ImageList где хранятся иконки

NewTreeView( Form, [ ], ImageList1, nil )

Потом при создании ветвей присваиваем картинки таким образом

for I:=0 to 3 do begin
hlTV := TreeView1.TVInsert( TVI_ROOT, 0, "Item"+ Int2Str(I) );
TreeView1.TVItemImage[hlTV] := I;
end;


DrFaust   (2003-04-04 11:20:00) [8]


> blackalex © (04.04.03 11:13)

Спасибо понял, а как в добавить иконки на узловые ветви? Через TreeView1.TVItemImage чтото не получается.


blackalex   (2003-04-04 11:13:00) [9]

Маленький примерчик

-----------------------------------------------------------------
procedure TForm1.FormCreate(Sender: PObj);
var
I: Integer;
hlTV: THandle;
begin
for I:=0 to 3 do
TreeView1.TVInsert( TVI_ROOT, 0, "Item"+ Int2Str(I) );
hlTV := TreeView1.TVFirstVisible ;
for I:=0 to 3 do begin
hlTV := TreeView1.TVInsert( hlTV, 0, "Item"+ Int2Str(I+3) );
end;
for I:=0 to 3 do begin
hlTV := TreeView1.TVItemParent[hlTV];
TreeView1.TVExpand ( hlTV, TVE_EXPAND);

end;
end;
-----------------------------------------------------------------


GandalfTheWhite   (2003-04-03 18:33:00) [10]

Пиши, дам пример...


Наверх

Титульная страница Поиск, карта сайта Написать письмо