Главная страница
    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
4-19027
YUS
2001-12-10 19:08
2002.02.07
PostMessage


1-18915
Evgeny
2002-01-23 08:31
2002.02.07
ComboBox


3-18732
Oleg Fomicheff
2002-01-04 03:33
2002.02.07
Как прикрутить DLL от BDE?


7-19006
AgentZ
2001-11-02 17:29
2002.02.07
Люди! СРОЧНО!!! Как под Виндой работать с датчиками температуры!


14-18978
vivus
2001-12-17 16:36
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
Английский Французский Немецкий Итальянский Португальский Русский Испанский