Головна сторінка
Top.Mail.Ru Яндекс.Метрика
Форум: "Основна";
Поточний архів: 2002.12.23;
Завантажити: [xml.tar.bz2];

Вниз

TTreeView Знайти схожі гілки


Витьок   (2002-12-14 10:39) [0]

Помогите!!! Как отсортировать такое дерево по алфавиту.
Постоянно оно полностью пересоздаётся. Создаются предки, а у каждого, только один уровень детей.
Нужно отсортировать отдельно предков, а потом и их детей.
(TTreeView.SortType - не помогает)



Song   (2002-12-14 10:43) [1]

TTreeView.SortType?



MBo   (2002-12-14 10:43) [2]

Используй CustomSort, разрешая переставлять ноды только с одинаковым родителем.



в   (2002-12-14 11:28) [3]

Непонял, можно пример?



MBo   (2002-12-14 11:55) [4]

а в хелпе есть пример.

function CustomSortProc(Node1, Node2: Integer; Data: Integer): Integer; stdcall;
починати
Result: = 0;
if TTreeNode(Node1).Parent=TTreeNode(Node2).Parent then
Result:= 2*Integer(TTreeNode(Node1).Text>PChar(TTreeNode(Node2).Text))-1;
end;

procedure TForm1.Button1Click (Sender: TObject);
починати
TreeView1.CustomSort(CustomSortProc,0);
end;




сторінки: 1 вся гілка

Форум: "Основна";
Поточний архів: 2002.12.23;
Завантажити: [xml.tar.bz2];

Вгору





Пам'ять: 0.55 MB
Час: 0.029 c
14-74928
lak_b
2002-12-01 15:03
2002.12.23
файли ресурсів


14-74892
Zergling
2002-12-04 09:19
2002.12.23
Движок для вимови тексту російською


7-75013
vic_774N
2002-10-21 03:04
2002.12.23
Робота драйвера під Windows XP ?!


1-74700
Igor_
2002-12-11 18:17
2002.12.23
використання динамічного масиву як члена класу


14-74961
Карелін Артем
2002-11-06 12:06
2002.12.23
набираю команду





африкаанс албанський арабська вірменин азербайджанець баскський білоруський болгарська каталонський Китайська (спрощене письмо) Китайський традиційний) хорватський чеська данську мову нідерландський Ukranian естонець Філіппінська фінську мову французький
галісійська грузинський німецький грецький гаїтянський креольський давньоєврейську хінді угорський ісландський індонезієць ірландський італійський японський корейський латиська литовець македонець малайський мальтійський норвежець
перс полірування португальська румунський російська сербський словацький словенський іспанська суахілі шведську мову тайський турецька український урду в'єтнамський валлійський ідиш бенгальський боснійський
кебуано есперанто гуджараті хауса хмонг ігбо яванський каннада кхмерская Лао латинь маорі маратхі монгольський непальська панджабі сомалійський тамільська телугу йоруба
зулуський
Англійська Французький Німецький Італійський Португальська Русский Іспанська