Форум: "Основная";
Поиск по всему сайту: 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.024 c
3-18780           MetallAdm             2002-01-14 13:27  2002.02.07  
изменять содержимое таблички


6-18934           SemFLY                2001-11-13 20:21  2002.02.07  
Какая команда в Windows разрывает соединение с интеренетом ?


1-18790           User_OKA              2002-01-23 14:57  2002.02.07  
VarArrayCreate


3-18746           sasa_ch               2002-01-09 09:55  2002.02.07  
PLS


1-18920           навичек               2002-01-24 09:12  2002.02.07  
Создание мастера