Вопрос по TTreeViev (TTreeNode)
well © (2002-01-22 13:09:00)
Столкнулся с проблемой.
Программно добавляю новые узлы в дереве и устанавливаю для
него IndexImage и SelectedIndex, затем сохраняю дерево в файле
(SaveToFile). Но когда я вновь загружаю дерево из файла
(LoadFromFile) иконки исчезают, вернее соответствуют Index=0.
Как сохранить TreeView чтобы и иконки сохранялись?
Второй вопрос. Как привязать к узлу строку, отличную от
своиства Text?
RoadStar (2002-01-22 13:42:00) [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.
Наверх 
ЧАТ |
Орешник |
|
