OnColumnDragged

[markus lemcke]

Hallo Geert,

habe dein Beispiel getestet!
probiere mal folgendes:
1. Programm starten
2. Button klicken
3. Wenn Du nun die Spalte 4 (nur beispiel) vor die Spalte 2 schieben möchtest, funzt es!
Wenn du nun aber die Spalte 2 hinter die Spalte 4 ziehst, werden diese vertauscht!

gruß

Marku

[Geert Dade]

Moin Markus,
... Asche auf mein Haupt: Dadurch, dass ich durch die Columns iteriere und dabei die Reihenfolge verändere, werden nicht alle Columns erreicht.
Folgende Erweiterung sollte diesem Umstand abhelfen:
//Wenn im Warenkorb was drin ist
if LvwWarenkorbFumo.Items.Count > 0 then begin
for i := 0 to LvwWarenkorbFumo.Columns.Count-1 do begin
// Ab hier neu - sicherstellen, dass JEDE Column angefasst wird
for j := 0 to LvwWarenkorbFumo.Columns.Count-1 do begin
if (LvwWarenkorbFumo.Column[j].Tag = i) then begin
LvwWarenkorbFumo.Column[j].Index := LvwWarenkorbFumo.Column[j].Tag;
Break;
end;
// Das sollte es gewesen sein
end;
end;

ShowMessage('Im Warenkorb sind Artikel, deswegen können die Spalten nicht verschoben werden');
exit;
end
else
for i := 0 to LvwWarenkorbFumo.Columns.Count-1 do
LvwWarenkorbFumo.Column[i].Tag := i;
Gruß,
Geer

[markus lemcke]

Danke Geert!

sieht gut aus!

gruß

marku