Spaltenreihenfolge TListView ändern mit ListView_SetColumnOrderArray fehlerhaft?

[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 procedure TCustomListView.UpdateColumn siehst Du, daß Delphi selber auch an den Spalten rumspielt. Darin siehst Du, daß es ein internes FOrderTag verwendet. Und in procedure TListColumn.SetIndex siehst Du, wo Delphi selbel 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 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.
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.