TListView Spalten vertauschen

[martin_]

Hallo,
wie ist es bei einer TListView(vsReport), bestehend aus 2 Spalten mit mehreren Einträgen möglich die Reihenfolge der Spalten zu verändern (vertauschen)?
danke.

[DeddyH]

Ich kenne da jetzt kein vordefinierte Routine dafür, aber mit etwas Handarbeit sollte das zu machen sein. Enthalten die Items/SubItems denn auch Objekte oder handelt es sich um eine reine Anzeige?

[martin_]

Sind keine Objekte enthalten, nur Strings. Ich habe daher nur die Beschriftung geändert.

[DeddyH]

Auch wenn es nicht sonderlich elegant ist: Du könntest in einer Schleife durch die Items iterieren, Dir die Caption merken und mit SubItems[0] einen Dreieckstausch durchführen. BeginUpdate und EndUpdate dabei genauso wenig vergessen wie die Columns, die müssten ja auch getauscht werden. Andererseits gibt es da bestimmt eine Methode, die mir nur gerade nicht einfällt :gruebel:

[jfheins]

Du könntest auch den Style LVS_EX_HEADERDRAGDROP setzen :stupid:

[himitsu]

Columns.Items[x].Index den entsprechenden Index zuordnen

[Lannes]

Hallo,

es gibt eine Methode :zwinker:

Delphi-Quellcode:

for z := a to b do
  ListView.Items[z].SubItems.Exchange(Spalte1,Spalte2);
//eventuell noch
ListView.UpdateItems(a,b);

[DeddyH]

Aber tauscht das nicht nur die SubItems aus? Bei 2 Spalten müsste man doch aber Item und 1. SubItem austauschen, oder spinne ich gerade?

[Lannes]

Hallo,

nee, Du spinnst nicht :(

Zitat:

Zitat von martin_

...bestehend aus 2 Spalten

... wer lesen kann, ist klar im Vorteil :wall:

[DeddyH]

Meine Gedanken von oben einmal in Code gefasst:

Delphi-Quellcode:

procedure TFormWuppdi.ButtonTauschClick(Sender: TObject);
var i: integer;
    tmp: string;
begin
  ListView1.Items.BeginUpdate;
  try
    tmp := ListView1.Columns[0].Caption;
    ListView1.Columns[0].Caption := ListView1.Columns[1].Caption;
    ListView1.Columns[1].Caption := tmp;
    for i := 0 to ListView1.Items.Count - 1 do
      begin
        tmp := ListView1.Items[i].Caption;
        ListView1.Items[i].Caption := ListView1.Items[i].SubItems[0];
        ListView1.Items[i].SubItems[0] := tmp;
      end;
  finally
    ListView1.Items.EndUpdate;
  end;
end;

[himitsu]

ich sag's nochmal:

Einfach nur die ANZEIGE (Reihenfolge/Sichtbarkeit) der Überschrift ändern ... dann müssen nicht die Spaltendaten selber geändert werden.


Was wo und wie in welcher Spalte ssichtbar ist, legt der Header fest.

[DeddyH]

Das hat bei mir lediglich die Überschriften geändert, deshalb ja das Codemonster.

[himitsu]

Laß mal die Tabelle neu zeichnen.

Das ändern dieses Index macht genau das Selbe, wenn man via Drag&Drop die Header verschiebt.
Es wird dann nur die Ansicht verändert, aber die Daten bleiben innerhalb gleich.

PS: wenn man in den Daten rumschiebt, dann müßte man beim Befüllen der Tabelle (z.B. neue Zeilen einfügen) dann auch die neuen Daten in einer anderen Reihenfolge reinschieben ... sehr umständlich.