In deinem Code bringt die Variable
ParamSort doch überhaupt nichts, oder seh ich das falsch?! Die wird in der Funktion ja überhaupt nicht behandelt. Geht demzufolge auch leider nicht bei mir.
Habe die Funktion jetzt so geändert. Nun funktioniert´s:
Code:
function CustomSortProc(Item1, Item2: TListItem; ParamSort: integer): integer; stdcall;
begin
if ParamSort = 0 then
Result := -CompareText(Item1.Caption,Item2.Caption)
else
Result := -CompareText(Item1.SubItems[ParamSort], Item2.SubItems[ParamSort]);
end;
Danke trotzdem!
Gruß Yheeky