Suche Control mit Drag&Drop-Eigenschaften wie Win-Desktop

[Guido Eisenbeis]

Fast. Stell dir einfach den Desktop vor, wie es dort funktioniert. Du dropst ein Icon / Item an eine Stelle, wo schon andere sind. Dann machen die anderen alle Platz, indem sie ein Feld weiter rutschen.

(Nachtrag: Das ist jetzt vereinfacht beschrieben. Auf dem Desktop ist es noch ein wenig komplizierter, z.B. wenn man ein Icon direkt auf ein anderes dropt, öffnet sich eine Anwendung oder eine Datei verschiebt sich usw. Aber so kompliziert will ich es nicht. )

[Guido Eisenbeis]

Mal ein bisschen genauer: Im besten Fall soll sich das gesuchte Control so verhalten, wie der Desktop. Zumindest was das Drag&Drop angeht. Der Reihe nach aufgezählt:

Hinweis: Nicht wundern, mit Item und Icon meine ich hierbei das Gleiche.

-> Items anlegen

- Control ist leer, man legt ein Item an, das wird ganz links oben angelegt.
- Das nächste Item würde dann ganz links, direkt unter dem ersten Icon angelegt.
- usw. Von links oben nach links unten, bis voll
- Dann weiter 2te Spalte von oben nach unten bis voll. usw.

-> Drag&Drop

- Wenn ein Item verschoben wird auf einen leeren Platz irgendwo im Control, dann soll es dort bleiben, auch wenn rundum leere Felder sind. (Halt wie auf dem Desktop.)

- Wenn ein Item verschoben wird auf einen Platz, wo schon ein anderes ist, soll das gedropte dort hingehen und alle anderen 1 Feld weiter rutschen (Ebenfalls wie auf dem Desktop.)

Ich hoffe, dass es ich es verständlich machen konnte. Im Prinzip soll das Drag&Drop-Verhalten des Desktops nachempfunden werden.

Ich habe jetzt auch mal den Thread-Titel entsprechend angepasst.

[Guido Eisenbeis]

So, ein Teilerfolg!

Um die Items von links oben nach links unten anordnen zu lassen, folgende Einstellung benutzen:

  ListView1.IconOptions.Arrangement := iaLeft;

[Uwe Raabe]

Warum so kompliziert? Nimm dein Demo-Projekt und ersetze den OnDragDrop-Event mit diesem Code (die LVM_ARRANGE Message im FormCreate kannst du weglassen):

Delphi-Quellcode:

var
  CurrentItem: TListItem;
begin
  if Sender = Source then begin
    CurrentItem := TListView(Sender).Selected;
    if CurrentItem <> nil then begin
      CurrentItem.SetPosition(Point(X, Y));
    end;
  end;
end;

[Uwe Raabe]

Sollen die Items in die Grid-Positionen einrasten, muss man den Code etwas ergänzen:

Delphi-Quellcode:

var
  CurrentItem: TListItem;
  lvw: TListView;
begin
  if Sender = Source then begin
    lvw := TListView(Sender);
    CurrentItem := lvw.Selected;
    if CurrentItem <> nil then begin
      CurrentItem.SetPosition(Point(X, Y));
      lvw.Arrange(arSnapToGrid);
    end;
  end;
end;

[Guido Eisenbeis]

Hallo Uwe,

interessanter Ansatz!

Dein erster Code gibt dem ListView ein wenig zuviel "Freiheit", da lassen sich Items übereinander schieben. Cool, aber nicht das Gewünschte.

Dein zweiter Code sieht schon recht vielversprechend aus. Leider verschieben sich die Items nicht so wie gewünscht. Im Anhang habe ich ein Demo hochgeladen. Kannst du dir das mal ansehen?

Ich gehe jetzt ins Bett und melde mich morgen wieder. Bin schon gespannt!

[Uwe Raabe]

Offenbar lässt sich das Desktop-Verhalten mit einem normalen ListView nicht exakt nachbilden (zumindest ist mir das nicht gelungen).

Knackpunkt ist das Wrapping der Spalten, wenn ein Item in die Spalte verschoben wird. Der Desktop führt das Wrapping korrekt durch, lässt aber alle Items außerhalb der belegten Spalten an ihrem Platz. Beim ListView macht ein Arrange(arSnapToGrid) aber kein Column-Wrapping, während das Arrange(arDefault) die frei positionierten Items wieder in die Spalten einordnet.

Nun ist ein Desktop aber auch in der Regel nicht einfach in der Größe änderbar bzw. geraten die Icons schon mal gehörig durcheinander, wenn man das tut. Ich vermute daher daß Microsoft hier eine spezielle Version eines ListViews verwendet oder mit undokumentierten Funktionen arbeitet.

Vielleicht kommt ja noch jemand auf die zündende Idee.

Hier noch der Code für das korrekte Einordnen:

Delphi-Quellcode:

var
  DropItem: TListItem;
  CurrentItem: TListItem;
  lvw: TListView;
begin
  if Sender = Source then begin
    lvw := TListView(Sender);
    CurrentItem := lvw.Selected;
    if CurrentItem <> nil then begin
      DropItem := lvw.GetItemAt(X, Y);
      if DropItem <> nil then begin
        Y := DropItem.Top - 1;
      end;
      CurrentItem.SetPosition(Point(X, Y));
      lvw.Arrange(arSnapToGrid);
    end;
  end;
end;

[Guido Eisenbeis]

Zitat von Uwe Raabe:

Offenbar lässt sich das Desktop-Verhalten mit einem normalen ListView nicht exakt nachbilden (zumindest ist mir das nicht gelungen).

Das ist bisher niemandem gelungen, sonst müsste ich nicht so lange suchen.

Zitat von Uwe Raabe:

Nun ist ein Desktop aber auch in der Regel nicht einfach in der Größe änderbar bzw. geraten die Icons schon mal gehörig durcheinander, wenn man das tut.

Stimmt, wichtiger Punkt! Für meine Zwecke habe ich ebenfalls vor, die Größe fest einzustellen (abhängig von Monitorgröße und Auflösung). Es sollen nicht mehr Items plaziert werden können, als rein passen. Kein Scrollen.

Gibt es eigentlich eine Funktion, mit der man in diesem Sinne feststellen kann, ob ein ListView "voll" ist?

Zitat von Uwe Raabe:

Ich vermute daher daß Microsoft hier eine spezielle Version eines ListViews verwendet oder mit undokumentierten Funktionen arbeitet.

Tja, scheinbar weiß keiner so genau, was Microsoft da verwendet! Stellt man die Frage nach einem entsprechenden Control, kommt eigentlich immer die Standardantwort "ListView". Aber keiner weiß, wie man ein ListView so verwendet, wie es der Desktop tut.

Deshalb freue ich mich über jeden Tipp hier!

Zitat von Uwe Raabe:

Knackpunkt ist das Wrapping der Spalten, wenn ein Item in die Spalte verschoben wird.

Interessanterweise denke ich im Moment, dass ich mit deinen Tipps das Wrapping der Spalten in den Griff bekommen könnte. Mal sehen.

Für heute ist Feierabend, morgen geht es mit neuer Kraft ans Werk.

[Guido Eisenbeis]

@Uwe Raabe

Sorry, dass ich mich erst jetzt melde, es kommt oft anders, als man denkt und die Zeit rennt weg. ... An dieser Stelle bedanke ich mich herzlich, denn vorallem deine Tipps habe mich ein Stück weitergebracht!

@All

Ein Control wurde noch nicht gefunden, das mit diesem Thread gesucht wird. Ich würde mich sehr freuen, falls noch jemand weitere Tipps hat, oder ein Lösung zm Nachbilden des Drag-Drop wie auf dem Desktop.

Derzeit versuche ich mich weiterhin an einem ListView, ob mit dem irgendwie das Desktop-Verhalten hinzubekommen ist. Man sollte doch meinen, dass das schon jemand vor mir gemacht hat Falls ja, bitte melden.

[KodeZwerg]

Ich habe auch mal ein wenig mit dem Projekt im Anhang rumgespielt, bei rausgekommen ist sowas hier.
Alles total frei plazierbar, ich glaube das Resultat ist wie in #11 von Uwe.

Delphi-Quellcode:

procedure TForm1.ListView1DragDrop(Sender, Source: TObject; X, Y: Integer);
begin
  If Assigned(ListView1.Selected) then
   ListView1.Selected.SetPosition(Point(X,Y));
end;

procedure TForm1.ListView1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
begin
  Accept := Sender = Source;
end;

Was mir Einfällt wäre es über ein TImage laufen zu lassen anstelle einer ListView.
Dann ein Raster vorgeben und eine Art Schiebe-Puzzleteil automatik wirken lassen.