Ok. Habe eine vorläufig Lösung.
Ich übergebe ja in SetItemIcon das SubItem wo ich die Bilder zeichne.
ItemsInfo[nItem].SubItem := nSubItem;
Das verwende ich nun für SortItems
das.
Delphi-Quellcode:
for i := 0 to ItemCount - 1 do
begin
ZeroMemory(@buf, sizeof(buf));
ListView_GetItemText(hListView, i, 1, buf, sizeof(buf));
ItemText := buf;
StringList.Add(ItemText); // Stringliste anhand der Sortierung erstellen.
end;
zu
Delphi-Quellcode:
for i := 0 to ItemCount - 1 do
begin
ZeroMemory(@buf, sizeof(buf));
ListView_GetItemText(hListView, i, ItemsInfo[i].SubItem, buf, sizeof(buf));
ItemText := buf;
StringList.Add(ItemText); // Stringliste anhand der Sortierung erstellen.
end;
gut ist