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

[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! :hello:

[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

Delphi-Quellcode:

Arrange(arSnapToGrid)

aber kein Column-Wrapping, während das

Delphi-Quellcode:

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:

Zitat von Uwe Raabe (Beitrag 1412403)

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. :wink:

Zitat:

Zitat von Uwe Raabe (Beitrag 1412403)

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:

Zitat von Uwe Raabe (Beitrag 1412403)

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! :-D

Zitat:

Zitat von Uwe Raabe (Beitrag 1412403)

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. :cat:

[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! :thumb:

@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.

[Guido Eisenbeis]

Zitat:

Zitat von KodeZwerg (Beitrag 1412882)

Alles total frei plazierbar, ich glaube das Resultat ist wie in #11 von Uwe.

Japp ... so ist es. :)

Zitat:

Zitat von KodeZwerg (Beitrag 1412882)

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.

Prima! Ich würde mich freuen, wenn du ein kleines Demo posten würdest. :-D

Ansonsten der nächste Punkt: Eingrenzen der maximalen Items-Anzahl im ListView. (Falls das eine größere Sache wird, mache ich dafür einen eigenen Thread auf.)

Mein Fenster soll den Desktop nachbilden, aber nur (sagen wir mal) etwas weniger als halb so groß sein. Dazu wird (bis jetzt) ein ListView verwendet, um Icons mit Text nachzubilden.

Je nach Desktop-Auflösung hat das ListView eine andere Größe und es sollen nur soviele Items benutzt werden, wie in den sichtbaren Bereich passen. Es sollen keine Scrollbalken oder sonstwas erscheinen. Wie kann man denn die maximal möglichen Items ermitteln, die in den sichtbaren Bereich passen?

Derzeit experimentiere ich mit WorkAreas rum. Hat da schon jemdand mit gearbeitet? Demo? :)

[EWeiss]

Zitat:

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

Ich denke das ist nur machbar wenn man den sichtbaren Bereich des ListView aufteilt und zwar in Column und Spalten abhängig von der höhe und weite der Items bsp. 48X48.
Ein

Delphi-Quellcode:

lvw.Arrange(arSnapToGrid);

kann man dann jedoch nicht verwenden bzw. man müsste sie überschreiben mit eigener Sortierfunktion da "arSnapToGrid" den Ansprüchen nicht genügt.

Die letzte Alternative wäre das ListView OwnerDrawn dann sollte das eigentlich kein Problem sein.

Zitat:

Wie kann man denn die maximal möglichen Items ermitteln, die in den sichtbaren Bereich passen?

Weite div 48.. LOL

gruss

[Guido Eisenbeis]

Zitat:

Zitat von EWeiss (Beitrag 1412884)

... sichtbaren Bereich des ListView aufteilt und zwar in Column und Spalten

Ich gehe mal davon aus, dass du "Reihen und Spalten" meinst? :wink:

Zitat:

Zitat von EWeiss (Beitrag 1412884)

Delphi-Quellcode:

lvw.Arrange(arSnapToGrid);

kann man dann jedoch nicht verwenden bzw. man müsste sie überschreiben mit eigener Sortierfunktion da "arSnapToGrid" den Ansprüchen nicht genügt.

arSnapToGrid ist keine Sortierfunktion, sondern lässt die Items am Grid ausrichten (wie der Name schon sagt). Diese Funktion ist (für mich) elementar, da es ja genau darum geht. Es soll das Verhalten des Dekstops nachgebildet werden, also auch das SnapToGrid.

Zudem soll eine Sortierung ja gerade NICHT erfolgen! Die Items sollen frei angeordnert werden, auch wenn rundum leere Plätze sind.

Zitat:

Zitat von EWeiss (Beitrag 1412884)

Die letzte Alternative wäre das ListView OwnerDrawn dann sollte das eigentlich kein Problem sein.

Hört sich eher noch komplizierter an. Hast du ein Beispiel, bzw. ein kleines Demo?

Zitat:

Zitat von EWeiss (Beitrag 1412884)

Zitat:

Wie kann man denn die maximal möglichen Items ermitteln, die in den sichtbaren Bereich passen?

Weite div 48.. LOL

Das geht leider nicht! Oder doch? :gruebel: Wie auf dem Desktop haben die Items sowohl Icons als auch Text. Der Text kann kurz oder lang sein, dann verändern sich die Maße, oder nicht?. Der Abstand zwischen den Items ist auch zu berücksichtigen, zum einen horizontal, als auch vertikal. Und keine Ahnung was noch ...