Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

TreeView + Checkbox [Delphi, Windows]

QAZ © (2009-05-18 16:34:00)
Вобщем дерево может показывать чекбоксы
1) как сделать чтоб при выделении ветки выделялись все вложеные,
а при выделении вложеных частично чекался родитель-вобщем как
в "нормальных" деревьях в инсталяторах и файломанагерах
2) и как собственно получить список выделеных "файлов" с полными
путями в дереве
воот...
я понимаю что тут рекурсии и все такое ,только
дерево так устроено что мой мозг отказывается это понимать :(

может есть у кого куски готового кода или ссылки на них

QAZ (2009-06-10 12:05:00) [1]
возник вопрос
как кашерно объединить дерево с листвиевом
чтоб в дереве были "папки" а в листе "файлы"
("файл" имееца в виду последний блок в строке типа папка\папка\папка\файл, кароче готовый список строк)

тобиш дерево создаем из папок к ним чепляем указатель
на список файлов в даной папке, и кагда выделяеш папку
список файлов листвиевица

и чтоб вся эта прелесть чекалась да частично перечекивалась ?

MTsv DN (2009-05-19 21:35:00) [2]
[offtop]Все, абздец. QAZ теперь весь Мир зачеканными деревьями засадит.
[/offtop]

QAZ (2009-05-19 21:28:00) [3]
спасибо :)
типерь ничто не остановит меня от захвата мира

Дмитрий К (2009-05-19 20:13:00) [4]

> а частичная чеканутость возможна только с самопальными картинками
> ?

да, насколько мне известно.

procedure GetChecked(ParentItem: Cardinal; var SL: PStrList); var Item: Cardinal; begin Item := TV.TVItemChild[ParentItem]; while Item <> 0 do begin if TV.TVItemStateImg[Item] <> tvisUnсhecked then begin if TV.TVItemHasChildren[Item] then GetChecked(Item, SL) else SL.Add(TV.TVItemPath(Item, '\')); end; Item := TV.TVItemNext[Item]; end; end;

QAZ (2009-05-19 19:32:00) [5]
о да ништяк
ты даже мой прошлый вопрос применил :)
а частичная чеканутость возможна только с самопальными картинками ?

пройтись надо рекурсивно ?
можеш хотябы скелет процедуры накинуть :( можно даже на исконно русском :)

Дмитрий К (2009-05-19 19:02:00) [6]
1) http://dmiko.mail333.su/other/tv.7z
2) У TreeView есть метод TVItemPath, который как раз возвращает полный путь в дереве. Нужно пройтись по всем узлам дерева и те, у которых нет детей и стоит флажок, добавить в список.

Наверх

	« предыдущая ветвь \| форум \| следующая ветвь »