Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.07;
Скачать: [xml.tar.bz2];




Вниз

Вопрос по TTreeViev (TTreeNode) 


well   (2002-01-22 13:09) [0]

Столкнулся с проблемой.
Программно добавляю новые узлы в дереве и устанавливаю для него IndexImage и SelectedIndex, затем сохраняю дерево в файле (SaveToFile). Но когда я вновь загружаю дерево из файла (LoadFromFile) иконки исчезают, вернее соответствуют Index=0.
Как сохранить TreeView чтобы и иконки сохранялись?

Второй вопрос. Как привязать к узлу строку, отличную от своиства Text?



RoadStar   (2002-01-22 13:42) [1]

Для того, чтобы получить такой эффект, необходимо сохранять полностью весь компонент TTreeView.
Попробуй такой код:

procedure SaveTreeView;
var stream:TFileStream;
begin
stream := TFileStream.Create("Tree.view", fmCreate);
stream.StoreComponent(tv); // tv-имя компоненты TTreeView
stream.free;
end;

Только не забудь добавить в секцию Initialization код

RegisterClass(TTreeView);

а в в секцию Finalization

UnRegisterClass(TTreeView);

Должно получиться.

P.S. По поводу второго вопроса - у TTreeNode есть свойство Data
(указатель на чё хочешь), попробуй запихнуть туда строчку в виде PChar.




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.02.07;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.72 MB
Время: 0.051 c
3-18735           Федор                 2002-01-08 14:36  2002.02.07  
DBF не открыватся из Delphi


3-18742           Yu                    2002-01-11 10:34  2002.02.07  
SQL - очень простой вопрос :-)


3-18767           Сидоров Юрий          2002-01-11 13:50  2002.02.07  
CacheSize в ADOTable


7-19008           Poroh                 2001-10-24 02:57  2002.02.07  
Подскажите, пожалуйста, как перехватить сообщение о том, что программа выполнила недопустимую операцию и будет закрыта.


7-18992           Nikolay               2001-10-29 08:56  2002.02.07  
Дедушкины часы!