(nonVcl) ListView Sortieren ein durcheinander

[EWeiss]

Zitat von Luckie:

Puih. Das ist schon lange her. hast du das Demo mal kompiliert und ausgeführt? Bei mir funktioniert das Demo wie es soll.

Dein Demo funktioniert aber nicht die Umsetzung in meinem Programm.
Deshalb wundere ich mich warum es nicht geht.

Ich gehe genau so vor wie in deinem Sample abgesehen von den Zeichnungsroutinen und OwnerDraw...

Delphi-Quellcode:

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

  ListView_SortItems(hListView, @CompareFunc, ColumnIndex);
end;

Delphi-Quellcode:

            HDN_ITEMCLICKW, HDN_ITEMCLICKA:
              begin
                if pHDN.Button = 0 then
                begin
                  UpDown := not UpDown;
                  If UpDown then
                    ArrowOffset := 1
                  else
                  ArrowOffset := 2;

                  HeaderArrowCol := pHDN.Item;
                  GetClientRect(HeaderHandle, ClientRect);
                  InvalidateRect(HeaderHandle, ClientRect, True);

                  UpdateLParam(Handle);
                  SortItems(Handle, HeaderArrowCol);
                end;
              end;

ArrowOffset ist für das SortIcon welches Bild im Strip gezeichnet werden soll.

Delphi-Quellcode:

procedure TSkinListView.UpdateLParam(const hListView: HWND);
var
  lvi : TLVItem;
  i   : integer;
  ItemCount: Integer;
begin
  lvi.mask     := LVIF_PARAM;
  lvi.iSubItem := 0;

  ItemCount := ListView_GetItemCount(hListView);

  for i := 0 to ItemCount - 1 do
  begin
    lvi.iItem  := i;
    lvi.lParam := i;
    SendMessage(ItemCount, LVM_SETITEM, 0, LPARAM(@lvi));
  end;
end;

und dann den Code weiter oben.
Verstehe nicht warum lp1 und lp2 so ein Problem verursachen.

gruss

gruss