Hallo,
ich versuche nun seit einiger Zeit die Spalten im VST zu sortieren.
Es passiert aber nichts, wenn ich auf die Header klicke.
Habe im Moment den absoluten Blackout, oder zuviel Wein getrunken.
Vielleicht erkennt jemand den Fehler.
Delphi-Quellcode:
procedure TSTF.VST2CompareNodes(Sender: TBaseVirtualTree; Node1,
Node2: PVirtualNode; Column: TColumnIndex; var Result: Integer);
var
Data1, Data2 : PTreeData;
begin
Data1:= Sender.GetNodeData(Node1);
Data2:= Sender.GetNodeData(Node2);
case Column of
0:
Result:= CompareText(Data1.FName,Data2.FName);
1:
Result:= CompareText(Data1.FOrt,Data2.FOrt);
2:
Result:= CompareText(Data1.FArtikel,Data2.FArtikel);
end;
end;
procedure TSTF.VST2HeaderClick(Sender: TVTHeader; Column: TColumnIndex;
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
VST2.SortTree(Column,sender.SortDirection,True);
if Sender.SortDirection= sdAscending then
sender.SortDirection:= sdDescending
else
Sender.SortDirection:= sdAscending;
end;
Gruß U.