Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Основная";
Текущий архив: 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.



Страницы: 1 вся ветка

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

Наверх





Память: 0.44 MB
Время: 0.005 c
3-18782
Realy_Grey
2002-01-14 13:53
2002.02.07
где Oracle хранит список таблиц?


14-18966
Orest
2001-12-18 19:55
2002.02.07
Socrat(переводчик) ну помогите мне найти его!!!


14-18957
zarum
2001-12-17 21:43
2002.02.07
выбор домашнего монитора 17 за 300 - 400 з.е.


1-18796
Tadeush
2002-01-24 14:57
2002.02.07
Формы


1-18878
tovSuhov
2002-01-23 12:28
2002.02.07
Доэкспериментировался...





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский