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

← →
DrFaust (2003-04-03 16:07) [0]

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

← →
GandalfTheWhite (2003-04-03 18:33) [1]

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

← →
blackalex (2003-04-04 11:13) [2]

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

-----------------------------------------------------------------
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;
-----------------------------------------------------------------

← →
DrFaust (2003-04-04 11:20) [3]

> blackalex © (04.04.03 11:13)

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

← →
blackalex (2003-04-07 09:41) [4]

При создании 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-11 16:25) [5]

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

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

← →
blackalex (2003-04-14 09:53) [6]

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

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

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

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

← →
DrFaust (2003-04-14 11:58) [7]

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

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

← →
blackalex (2003-04-14 15:23) [8]

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

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

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

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

← →
DrFaust (2003-04-14 16:19) [9]

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

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

← →
Кладов (2003-04-15 16:42) [10]

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

TreeView Нужна помощь! Найти похожие ветки