Мастера DELPHI, Delphi programming community Рейтинг@Mail.ru Титульная страница Поиск, карта сайта Написать письмо 
| Новости |
Новости сайта
Поиск |
Поиск по лучшим сайтам о Delphi
FAQ |
Огромная база часто задаваемых вопросов и, конечно же, ответы к ним ;)
Статьи |
Подборка статей на самые разные темы. Все о DELPHI
Книги |
Новинки книжного рынка
Новости VCL
Обзор свежих компонент со всего мира, по-русски!
|
| Форумы
Здесь вы можете задать свой вопрос и наверняка получите ответ
| ЧАТ |
Место для общения :)
Орешник |
Коллекция курьезных вопросов из форумов
KOL и MCK |
KOL и MCK - Компактные программы на Delphi
Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / rsdn.org

 
Чтобы не потерять эту дискуссию, сделайте закладку « предыдущая ветвь | форум | следующая ветвь »

TreeXML.TVExpand(TVI_ROOT, TVE_EXPAND); [Delphi, Windows]


RusSun ©   (07.02.18 15:24

Доброе время суток.
TreeXML.TVExpand(TVI_ROOT, TVE_EXPAND);
Проверьте, пожалуйста, работает ли?
Второй вопрос если в KOL,  аналог treeview.FullExpand;
Спасибо.


RusSun ©   (24.02.18 12:53[1]

procedure FullExpand(N: THandle);
var a: Cardinal;
   b: Boolean;
begin
 b := N = 0;
 if  b then
     N := TreeXML.TVRoot;
 while N <> 0 do
 begin
     a := TreeXML.TVItemChild[N];
     if  a > 0 then FullExpand(a);
     TreeXML.TVExpand(N, TVM_EXPAND);
     N := TreeXML.TVItemNext[N];
 end;
end;
procedure TForm1.OpenTestClick(Sender: PObj);
begin
FullExpand(TreeXML.TVRoot);
end;


версия для печати

Написать ответ

Ваше имя (регистрация  E-mail 







Разрешается использование тегов форматирования текста:
<b>жирный</b> <i>наклонный</i> <u>подчеркнутый</u>,
а для выделения текста программ, используйте <code> ... </code>
и не забывайте закрывать теги! </b></i></u></code> :)


Наверх

  Рейтинг@Mail.ru     Титульная страница Поиск, карта сайта Написать письмо