Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.44 MB
Время: 0.022 c