VPF::Сортировка в TreeView - Форум программистов

MacTep

Дата 11.2.2007, 18:23 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Завсегдатай
Сообщений: 1292
Регистрация: 4.8.2003
Где: г. Самара

Репутация: 4
Всего: 4

Есть TreeView большой вложенности. Хотелось бы, чтобы при раскрытии каждого узла этого компонента его элементы на более нижнем уровне сортировались по алфавиту... Возможно ли это. Я делаю так:

Код


procedure TfrmMain.twClick(Sender: TObject);
begin
  tw.SortType:=stText;
end;

Но это не помогает. Что можно сделать?

--------------------

(A)bort, (R)etry, (I)gnore = Haфиг, Heфиг, Пoфиг ... :)

Sunvas

Дата 11.2.2007, 23:01 (ссылка)

(нет голосов)

Загрузка ...

Соль и сахар

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

Репутация: 28
Всего: 89

Только самому вручную сортировать.

--------------------

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

Beltar

Дата 12.2.2007, 00:05 (ссылка)

(нет голосов)

Загрузка ...

Опытный

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

Репутация: 3
Всего: 7

1) Описываешь вот такую функцию обратного вызова (не метод класса).

Код


function SortByName(lParam1,lParam2:TTreeNode;lParamSort:Longint):Integer;stdcall;
{lParamSort здесь целое, которое просто передает дополнительную информацию, например
направление сортировки допустим >0 по возрастанию, <0 по убыванию}
begin
if lParam1.Text>=lParam2.Text then Result:=1;
                                                  else Result:=-1;
Result:=Result*lParamSort;
//Таким же макаром можно сортировать по прикрепленным к узлу данным.
end

2) для нужного узла вызываешь ее так

Код


Node.CustomSort(@SortByName,Sort);

--------------------

Опытный программист на C++ легко решает любые не существующие в Паскале проблемы. smile

(с) я, хотя может и нет
Пищущий на C++ мужик. Даже если это мужик сидит в написанном на Delphi и жрущем паскалевскую библиотеку билдере.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »