Текущий архив: 2004.11.14;
Скачать: CL | DM;

Вниз

Как отсортировать TVirtualStringTree?   Найти похожие ветки 

← →
NeyroSpace ©   (2004-10-28 09:48) [0]

По алфавиту

---

← →
NeyroSpace ©   (2004-10-28 10:36) [1]

(TStringTreeOptions)
toAutoSort = true

procedure TForm1.VirtualStringTree1CompareNodes(Sender: TBaseVirtualTree;
 Node1, Node2: PVirtualNode; Column: TColumnIndex; var Result: Integer);
var PND1, PND2:PNodeData;
begin
PND1 := Sender.GetNodeData(Node1);
PND2 := Sender.GetNodeData(Node2);
result := CompareText(PND1.Text, PND2.Text);
end;

---

Страницы: 1 вся ветка

Текущий архив: 2004.11.14;
Скачать: CL | DM;

Наверх

Память: 0.46 MB
Время: 0.021 c