Модераторы: Poseidon, Snowy, bems, MetalFan
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Выравнивание в TreeView, по индексу иконки 
V
    Опции темы
Coderr
Дата 19.1.2008, 00:01 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 234
Регистрация: 27.1.2006
Где: Vesnet

Репутация: 0
Всего: 0
Доброго времени суток! Что-то не получается сделать сортировку, подскажите.
TreeView у меня двухуровневый(представте контакт лист icq. Первый уровень - группы, второй, т.е. Child'ы, - юзеры). Так вот. Надо отсортировать по убыванию индексов иконок юзерские ноды. Как это рализовать? smile 
--------------------
Кодинг - это стиль жизни!   
PM WWW ICQ   Вверх
Coderr
Дата 19.1.2008, 23:25 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 234
Регистрация: 27.1.2006
Где: Vesnet

Репутация: 0
Всего: 0
Ой! Я ошибся в заголовке темы!  Не выравнивание, а сортировка! Прошу прощения... smile 
--------------------
Кодинг - это стиль жизни!   
PM WWW ICQ   Вверх
VICTAR
Дата 19.1.2008, 23:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 37
Всего: 80
У TreeView есть событие OnCompare. Используй его. 
PS а вообще лучше юзать VirtualTreeView  smile 
PM MAIL   Вверх
Coderr
Дата 20.1.2008, 00:11 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 234
Регистрация: 27.1.2006
Где: Vesnet

Репутация: 0
Всего: 0
Virtualным деревом я уже пользовался. И даже готовый пример у меня был, сам делал(в мае прошлого года). Но... Достав сейчас этот исходник с запылившейся полки я понял, что уже ничего не понимаю. smile

OnCompare видел. А как им пользоваться? В мануале делфовом видел пример, что-то я с ним не разобрался.
--------------------
Кодинг - это стиль жизни!   
PM WWW ICQ   Вверх
VICTAR
Дата 20.1.2008, 00:19 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 37
Всего: 80
Ну если сам делал, то проблем вообще не должно возникнуть. Принцип один и тот же. 
А вообще у тебя два нода, сравнивай их по нужному параметру и результат заноси в Compare.

0 - если равно
>0 - первое больше второго
<0 - второе больше первого

Добавлено через 4 минуты и 20 секунд
Ах да, SortType выставь в stData или stBoth
PM MAIL   Вверх
Coderr
Дата 20.1.2008, 00:35 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 234
Регистрация: 27.1.2006
Где: Vesnet

Репутация: 0
Всего: 0
Вот написал примерно, только не заходит ни разу в обработчик события:
Код

procedure TMainForm.TreeViewCompare(Sender: TObject; Node1,
  Node2: TTreeNode; Data: Integer; var Compare: Integer);
begin
 if (Node1.Parent <> nil) and (Node2.Parent <> nil) then
  Compare := Node1.ImageIndex - Node2.ImageIndex;
end;

Т.е. ставил брекпойт на 4 строку. Ни разу там не остановилась прога. :(

Пардон! Поставил на пятую строку - словил брекпойнт. smile Правда не всегда он сортирует правильно.
Например, так называемые группы он всё же сортирует. :(

Вот! Сейчас заметил закономерность. Добавляем элемент, он не сразу встаёт на нужное место, а только после добавления следующего элемента.

Это сообщение отредактировал(а) Coderr - 20.1.2008, 00:49
--------------------
Кодинг - это стиль жизни!   
PM WWW ICQ   Вверх
VICTAR
Дата 20.1.2008, 01:00 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 37
Всего: 80
У меня получилось  smile 

Присоединённый файл ( Кол-во скачиваний: 12 )
Присоединённый файл  test.rar 1,26 Kb
PM MAIL   Вверх
Coderr
Дата 20.1.2008, 01:13 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 234
Регистрация: 27.1.2006
Где: Vesnet

Репутация: 0
Всего: 0
Виктар! Спасибище! Опять меня выручил! Именно процедура AlphaSort мне и нужна была! ;)
Теперь вызываю её после добавления элемента - всё работает!
--------------------
Кодинг - это стиль жизни!   
PM WWW ICQ   Вверх
VICTAR
Дата 20.1.2008, 01:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Участник
Сообщений: 1108
Регистрация: 6.10.2006

Репутация: 37
Всего: 80
Не за что  smile 

Это сообщение отредактировал(а) VICTAR - 20.1.2008, 01:18
PM MAIL   Вверх
  
 Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.
 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »

Подписаться на тему | Подписка на этот форум | Скачать/Распечатать тему


 




[ Время генерации скрипта: 0.0458 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
 По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.