Spaltenreihenfolge TListView ändern mit ListView_SetColumnOrderArray fehlerhaft?

[delphitrixer]

Hallo Zusammen

Ich habe eine TListView mit ViewStyle vsReport mit einigen Spalten die z.B. mit "Spalte 1", "Spalte 2", "Spalte 3" usw. beschriftet sind.

Die Spaltenreihenfolge sollte nun während der Programmausführung dynamisch verändert werden können. Das klappt soweit mit folgendem Beispielcode auch ganz gut:

Delphi-Quellcode:

procedure TForm6.btn_CacheColumnOrderClick(Sender: TObject);
var
  ColOrd: array of Integer;
  i: Integer;
begin
    ListView1.Column[0].Caption := "Spalte 1";
    ListView1.Column[1].Caption := "Spalte 2";
    ListView1.Column[2].Caption := "Spalte 3";

    // Spaltenreihenfolge ändern
    SetLength(ColOrd, ListView1.Columns.Count);
    ColOrd[0] := 0; // Beschriftet mit "Spalte 1"
    ColOrd[1] := 2; // Spalte 3 wird zur Spalte 2 und ist mit "Spalte 3" beschriftet
    ColOrd[2] := 1; //Spalte 2
    ListView_SetColumnOrderArray(ListView1.Handle, ListView1.Columns.Count, PInteger(ColOrd));
    ListView1.Refresh;

    ShowMessage(ListView1.Column[1].Caption); //Liefert noch immer die Bezeichnung 'Spalte 2' obwohl dargestellt 'Spalte 3';
end;

Lasse ich mir danach die Caption von ListView1.Column[1] mit einem ShowMessage anzeigen, so liefert der noch immer "Spalte 2", ob wohl am Bildschirm "Spalte 3" angezeigt wird.

Visuell werden die Spalten also sauber verschoben, aber irgendwie kriegt TListView das intern nicht mit. Verschiebe ich die Spalten per Drag&Drop manuell, dann funktioniert alles. Geht also nur nicht, wenn die Spalten per ListView_SetColumnOrderArray umsortiert werden.

Weiss jemand Rat oder stand schon einmal vor dem selben Problem?

[delphitrixer]

Hat niemand ein Tipp, wie man die Spaltenreihenfolge bei einer TListView richtig zum laufen bekommt?

[ChrisE]

Hallo,

das geht ein bisschen in die Richtung von einem Problem, was ich auch mal hatte (Beitrag).

Ich habe mir damals damit beholfen, ein RecreateWnd auf zu rufen per SendMessage

Delphi-Quellcode:

SendMessage(ListView.Handle, CM_RECREATEWND, 0, 0);

. Musste ich an ein paar wenigen Stellen aufrufen und brachte mir das gewünschte Verhalten. Allerdings war/ist das unter Delphi 2007.

Gruß, Chris

[delphitrixer]

Hallo Chris

Das hört sich spannend an und probiere ich im Laufe des Tages umgehend aus. Das Ergebnis poste ich dann hier wieder für die "Nachwelt"! :wink:

Vorerst vielen Dank für den Lösungsansatz.

Gruss Bruno

[delphitrixer]

So, habs schon ausprobiert mit CM_RECREATEWND.

Leider funktioniert das nicht. Der CM_RECREATEWND führt sogar dazu, dass sich die zuvor mit ListView_SetColumnOrderArray geänderte Spaltenreihenfolge wieder zurückändert.

Das zeigt aber deutlich auf, dass TListView die Spalten seltsamerweise nur "visuell" umsortiert, wenn dies mit ListView_SetColumnOrderArray gemacht wird. Intern bleibt aus unerfindlichen Gründen alles beim Alten und ein CM_RECREATEWND stellt nur den Zustand wieder her.

Bei der manuellen Verschiebung passiert das alles nicht und die Spalten sind sowohl visuelle wie auch intern wirklich verschoben.

ListView_SetColumnOrderArray scheint also irgendetwas nicht nachzuführen.

[CCRDude]

"Intern" ist hier Definitionssache :)

Ich denke, intern in der Listview wird das schon stimmen, aber intern in der TListView (also der Delphi-Klasse darum) halt nicht. Und sobald Delphi irgendwie ein Refresh macht, stellt es wieder die in TListView enthaltene Reihenfolge her.

Du musst also schauen, ob Du die Reihenfolge auch oder nur in TListView ändern kannst, oder wo sie dort auch nach Erstellung noch wieder geändert wird, und das etwa per eigener Ableitung von TCustomListView erweitern/abändern, wo nötig.

[delphitrixer]

Danke für Dein Feedback CCRDUDE, aber ich verstehe nur "Bahnhof". Ok, vom Ansatz her weiss ich was Du meinst, aber ich denke, meine Delphi-Kenntnisse reichen dazu nicht aus um das umzusetzen.

Und so wie ich im Forum schon mitbekommen habe, haben sich schon andere die Zähne daran ausgebissen, was die Spaltenreihenfolge der TListView angeht.

Einen einfacheren Weg scheint es wohl nicht zu geben, oder?

[CCRDude]

Entschuldigung für den Bahnhof :) Ich versuche es nochmal einfach:

Delphis TListView versucht, möglichst viel Handling von Listviews zu vereinfachen / in eine Klasse zu kapseln. Wenn Du ein TListView auf Deiner Form plazierst, geht TListView davon aus, daß es die alleinige Herrschaft darüber hat.

Nun kommst Du aber mit einem API-Aufruf und mogelst an TListView vorbei etwas in das Listview. Delphis TListView verwaltet Daten wie Spalten nicht im Listview selber, sondern in sich. Und schickt von dort nur Änderungen an das Listview (ohne Änderungen im selbige wahrzunehmen).

Zur Begrifflichkeit: Listview habe ich das "Ding" an sich genannt, also eine Liste in einem Fenster. TListView das, was Delphi drumherum kapselt.

Öffne mal ComCtrls.pas; in

Delphi-Quellcode:

procedure TCustomListView.UpdateColumn

siehst Du, daß Delphi selber auch an den Spalten rumspielt. Darin siehst Du, daß es ein internes FOrderTag verwendet. Und in

Delphi-Quellcode:

procedure TListColumn.SetIndex

siehst Du, wo Delphi selbel

Delphi-Quellcode:

ListView_SetColumnOrderArray

aufruft und damit Deine Order überschreibt.

So mal spontan vom Lesen her könnte es glatt sein, daß ein Ändern der Index-Property von TListColumn eben das macht, was Du vorhast, ohne dabei die VCL durcheinanderzubringen. In

Delphi-Quellcode:

procedure TListColumns.UpdateCols

zumindest scheint FOrderTag angepasst zu werden.

[delphitrixer]

Wow! Ich danke Dir wirklich sehr, dass Du Dir so viel Zeit nimmst und mir das erklärst. Das ist nicht selbstverständlich und umso mehr bedaure ich es, dass ich so "schwerfällig" mit diesen guten Tips umgehe.

Delphi selbst führt in der TListView also nohmals eine eigene Column-Order die bei dem direkten Aufruf von ListView_SetColumnOrderArray nicht nachgeführt wird. Das habe ich nun glaube ich richtig verstanden.

Aber SetIndex etc. sind ja alles proceduren die mir nicht zur Verfügung stehen. Ich verstehe den Ansatz und das Problem aber ich habe leider noch immer keinen "Schimmer", wie ich Delphi nun dazu bringen könnte, dass es seine Order korrekt durchführt bzw. wie ich die Reihenfolge nun definieren könnte, damit diese Order danach auch stimmt.

Muss ich diesen SetIndex irgendwie verwenden bzw. nach aussen verfügbar machen?

[DeddyH]

SetIndex ist nur eine Setter-Methode für die Index-Eigenschaft der TListColumn. Versuch also einmal, diesen Index zu ändern.

Delphi-Quellcode:

ListView1.Columns[0].Index := 1;

[Luckie]

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);
begin
  ShowMessage(ListView1.Columns[0].Caption);
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
  ListView1.Columns[0].Index := 1;
end;

Button1 zeigt die richtige Caption an.

[CCRDude]

Genau was DeddyH gesagt hat - SetIndex ist über die property Index verfügbar.

Weil TListView gerade mein Lieblingsbugsuchkind ist, habe ich das eben auch ausprobiert - zu Luckies Beispiel möchte ich nur noch ergänzen, daß bei mir danach ein ListView1.Refresh notwendig war, weil nach Zuweisung des Index nur der Header, nicht aber die Daten, aktualisiert waren (nach dem Refresh war dann alles okay).

[Luckie]

OK, das kann sein. Ich habe eben nur schnell einen Listview genommen, Spalten mit dem Oi angelegt und mir nicht noch die Mühe gemacht Daten dazu einzugeben.

[delphitrixer]

Das mit dem .Index ist mir soweit klar aber soweit ich das beurteilen kann habe ich ein Problem, wenn ich mehrere Spalten verschieben möchte.

Wenn ich also die Spalten 1, 2, 3, 4 und 5 z.B in eine komplett neue Reihenfolge umsortieren will bekomme ich doch Probleme, weil sich Spalten mit jedem .index := x wieder veränder.

Wenn also

1 = 1
2 = 3
3 = 5
4 = 3
5 = 4

werden soll' dann lässt sich das mit einer Schleife nich bewerkstelligen, da nach jedem .index := x sich alles wieder ändert.

oder blick ich da schon wieder nicht durch?

[Luckie]

Du musst natürlich nach jeder Änderung diese in den folge Änderungen berücksichtigen.

[delphitrixer]

Ich denke, dass wird bei z.B. 5 Spalten noch einigermassen gehen, aber ich habe ca. 50 Spalten die individuell pro Benutzer umsortiert werden sollen. Es geht schlussendlich darum, dass sich ein Benutzer die Spalten per Drag&Drop verschieben kann, die Reihenfolge in der DB gespeichert wird und später wieder geladen wird. Das funktioniert zwar alles, nur kann nach dem Laden der Reihenfolge eben nicht mehr korrekt auf den Inhalt zugegriffen werden, weil die "interne" Columnorder von Delphi nicht stimmt.

Dabei den Überblick zu behalten welche Spalte schlussendlich wohin soll, dürfte via .index fast unmöglich sein.

Deshalb bin ich vermutlich auch auf den direkten API Aufruf gekommen. Irgenwie müsste nun hinterher nur noch der Spaltenorder von Delphi wieder aktualisiert werden.

[ChrisE]

Hallo,

also zumindest da kann ich dir den denk anstoß geben, den ich dann gefolgt bin. Ich bau die Columns immer komplett neu auf, nachdem der User es angepasst hat. Die Tag-Eigenschaft speichert die Identifizierung zur DB-Column. Somit spreche ich die Column nur noch über die Tag-Eigenschaft an bzw- im OnData-Event werden die Daten aus der DBColumn[Column.Tag] geholt. Das ganze geschickt mit beginUpdate/EndUpdate gekoppelt und der Anwender sieht nicht mal was flackern. Bedingung ist halt, dass die Daten für ListView im OnData-Event geholt werden, und nicht jedesmal komplett gefüllt werden.

Alternativ eine andere Komponente für TListView suchen - mir fällt nur gerade der Name nicht ein :-(

Gruß, Chris

[Edit]Solltest du dann auch über die Tag-Eigenschaft gehen, bitte aufpassen. Den hier tritt dann zumindest bei Delphi 2007 dieses merkwürdige Verhalten auf, dasd ich dir in meinem ersten Beitrag gepostet habe[/Edit]

[DeddyH]

Du meinst wahrscheinlich den Virtual StringTree.

[ChrisE]

Zitat:

Zitat von DeddyH (Beitrag 1126688)

Du meinst wahrscheinlich den Virtual StringTree.

Genau :thumb:

[delphitrixer]

Ich habe nun aus den verschiedenen Antworten und Lösungsansätzen von Euch eine für mich funktionierende Lösung gefunden. Wie von ChrisE vorgeschlagen arbeite ich nun mit den ListView.Column[x].Tag in Verbindung mit dem SetIndex (ListView.Column[x].Index := x) um mir die Spaltenreihenfolge zu merken bzw. pro Benutzer wieder zu setzen.

Die direkten API-Aufrufe von "ListView_SetColumnOrderArray" und "ListView_GetColumnOrderArray" habe ich aus dem Code verbannt.

Mit Euren Ideen und Vorschlägen habt Ihr mir Alle zu den richtigen Denkanstössen verholfen. Teilweise ist man einfach etwas "festgefahren".

Vielen Dank an Euch Alle!