array of record sortieren

[venice2]

100% geht es immer noch nicht.
Habe da immer noch einen Denkfehler.

Delphi-Quellcode:

procedure TSkinListView.SortItems(hListView: hWnd; ColumnIndex: Integer);
begin

  ListView_SortItems(hListView, @CompareFunc, ColumnIndex);
  //..
    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;
end;

Die liste wird anhand des ColumnIndex sortiert also abhängig davon welche column geklickt wurde.

ListView_GetItemText(hListView, i, 1, buf, sizeof(buf));
Ist aber Hart gecodet
füge ich jetzt dort den ColumnIndex anstell von "1" ein dann funktioniert es nur wenn ich auch tatsächlich die 1 klicke wo der IdentStr mit übergeben worden ist.

Meine CompareFunc Funktion macht es richtig die sortiert nach Integer oder string.
Aber ich weis nicht wie ich da die Icons noch mit einbinden kann.

Mein Problem ist also wie übergeben ich die Icons damit diese immer mitwandern unabhängig davon welcher ColumnHeader geklickt wurde.

Hmmm... mal wieder besonders schwierig.