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

[Guido Eisenbeis]

Hallo Leute,

ich suche ein Steuerelement, ähnlich dem Windows-Desktop. Die Icons sollen sich beliegig verschieben lassen, auch auf "leere" Stellen, also solche, wo rundum leere Felder sind.

Das heißt, das Control soll Icons darstellen, die keinerlei automatischer Sortierung unterliegen! Selbst wenn ich nur 2 Icons habe, soll z. B. das eine irgendwo in der 2ten Spalte platziert werden können und das andere in der 4ten Spalte ganz unten.

-- Alle anderen Eigenschaften sind erstmal zweitrangig. --

Grundsätzlich soll und darf es ein ListView sein. Aber ich habe schon viele ausprobiert, auch virtuelle von Mustangpeak und anderen. Leider habe ich keins gefunden, das KEINE Sortierung macht. ALLE knallen die Icons ohne Lücken nach links oben.

Hat jemand Vorschläge? Oder einen Workaround? Bin dankbar für alle Tipps! :-D

[KodeZwerg]

Wenn ich mich Recht erinnere, gibt es ein GridPanel, das auf dem Ihm zugrunde liegenden Größe dir ein Virtuelles Raster einrichtet wo du in jedem Raster was auch immer mit machen kannst.

[himitsu]

TListView

rate mal was der Desktop ist



Eine ListView
und bei Active-Desktop mit einem Webbrowser kombiniert.


Und das GridPanel sortiert (außer du legst überall ein Panel rein und dann da die Icons/Images drauf)

[API]

Könnte es so funktionieren?

Delphi-Quellcode:

SendMessage(Listview1.Handle, LVM_ARRANGE, LVA_SNAPTOGRID, 0);

[Guido Eisenbeis]

@KodeZwerg

Das GridPanel habe ich mir schon vorher angesehen und jetzt gerade wieder. Ich finde es total verwirrend und wüsste lieber vorher, ob es damit funktioniert, bevor ich da vielleicht Unmengen an Arbeit reinstecke.

@himitsu, API

PS: Hallo, da gibt es also außer mir noch andere "Urgesteine". :thumb: Ein gutes Zeichen! :-D

Zitat:

Zitat von himitsu (Beitrag 1412369)

Und das GridPanel sortiert (außer du legst überall ein Panel rein und dann da die Icons/Images drauf)

Oh, kam wohl gerade ein Update deines Postings. Und ja, das habe ich vermutet.

Zitat:

Zitat von himitsu (Beitrag 1412369)

TListView

... der Desktop ist ... Eine ListView und bei Active-Desktop mit einem Webbrowser kombiniert.

Tja, das deckt sich mit meinen Erinnerungen. Nur wie bekommt man das im eigenen Programm hin?

Zitat:

Zitat von API (Beitrag 1412370)

Könnte es so funktionieren?

Delphi-Quellcode:

SendMessage(Listview1.Handle, LVM_ARRANGE, LVA_SNAPTOGRID, 0);

Sieht interessant aus. Hast du es schon probiert?

[Guido Eisenbeis]

So, da haben wir den Salat! Ich scheitere schon am Drag and Drop im ViewStyle := vsIcon. Ich habe sowohl den Code der Schweizer benutzt, als auch den mit MoveSelection, leider ohne Erfolg. Die Items springen an verschiedene Stellen, aber nicht dahin, wo sie sollen. Fehlt da noch eine Einstellung?

Mein bisheriger Code-Schnipsel. (Kleines Demo-Projekt im Anhang).

Delphi-Quellcode:

  // ListView-Grundeinstellungen setzen (Icon-Ansicht).
  ListView1.HideSelection := false;
  ListView1.ReadOnly := true;
  ListView1.ShowColumnHeaders := False;

  ListView1.ViewStyle := vsIcon;
  ListView1.DragMode := dmAutomatic;

  // ListView füllen.
  AddLvwItms(40);

  // Mit oder ohne Anweisung von "API": Icons dropen an ungewollte Stellen.
  SendMessage(Listview1.Handle, LVM_ARRANGE, LVA_SNAPTOGRID, 0);

Kann jemand helfen?

[KodeZwerg]

Hallo, ich habe mir mal angeschaut was Du da machen möchtest, wenn ich Dich richtig verstehe, möchtest Du erreichen das wenn ein Drop in einem Besetzten Feld passiert, das gedroppte da drinnen landet, und das was drinnen ist an Stelle hin wo Drop her kommt.

Kann man das so in etwa sagen?

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

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

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

Delphi-Quellcode:

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

[EWeiss]

Zitat:

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

Ja, ja.

Zitat:

arSnapToGrid ist keine Sortierfunktion.

Nein?
Warum kannst du dann nicht einfach eine Spalte freilassen wenn dem so ist.

Zitat:

Das geht leider nicht! Oder doch? 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?.

Seit wann?
Erstelle doch einfach mal eine Verknüpfung auf dem Desktop was macht der Text wenn zu lang?

Zitat:

Hast du ein Beispiel, bzw. ein kleines Demo?

Habe ich nutzt dir aber nichts. Erstens NonVcl zweitens ein Part meiner SkinEngine.

gruss

[Guido Eisenbeis]

Zitat:

Zitat von EWeiss (Beitrag 1412896)

Zitat:

arSnapToGrid ist keine Sortierfunktion.

Nein?

Nein!

Zitat:

Zitat von EWeiss (Beitrag 1412896)

Warum kannst du dann nicht einfach eine Spalte freilassen wenn dem so ist.

Wie kommst du denn darauf? Ich kann das! Warum kannst du das nicht? :-D

Zitat:

Zitat von EWeiss (Beitrag 1412896)

Erstelle doch einfach mal eine Verknüpfung auf dem Desktop was macht der Text wenn zu lang?

Ich kann dir nicht folgen, was meinst du damit? :gruebel:

Zitat:

Zitat von EWeiss (Beitrag 1412896)

Zitat:

Hast du ein Beispiel, bzw. ein kleines Demo?

Habe ich nutzt dir aber nichts. Erstens NonVcl zweitens ein Part meiner SkinEngine.

Tja, wie du sagst, das ist nutzlos. :cry:

[EWeiss]

Zitat:

Wie kommst du denn darauf? Ich kann das! Warum kannst du das nicht?

Na dann funktioniert ja alles.. :)
Bin raus.

PS:
Wollte Helfen lasse mich aber nicht gerne Vorführen und ja ich weis was ich sage dafür mache ich den Kram schon zu lange.
Schau dir einfach nur mal meine Samples\Projekte hier an.

gruss

[KodeZwerg]

Zitat:

Zitat von Guido Eisenbeis (Beitrag 1412899)

Zitat:

Zitat von EWeiss (Beitrag 1412896)

Zitat:

arSnapToGrid ist keine Sortierfunktion.

Nein?

Nein!

Doch. Wie Emil bereits korrekt bemerkte, mit der Snap Funktion kann man keine Lücken haben. Nach was sortiert wird spielt dabei keine Rolle, aber Leere Felder wirst Du mit dieser Funktion nicht schaffen zu realisieren da alles aneinander sortiert wird.

Ich bastel bereits an einem Puzzle Ding, aber irgendwie mach ich da noch was falsch, morgen/übermorgen sollte was brauchbares oder was schrecklich daneben gegangenes rausgekommen sein :lol:

[Guido Eisenbeis]

Hallo KodeZwerg,

wieso geht es dann bei mir? :gruebel:

[Sherlock]

Zur Erläuterung was Emil mit dem Text meint (ist eigentlich sehr leicht zu überprüfen): Das Element, daß die Position auf dem Windows Desktop bestimmt ist das Icon, nicht seine Beschriftung. Sobald die Textlänge ein bestimmtes Maß überschreitet, wird er gekürzt (zB "Dieser Text ist zu la ...") das Icon bleibt aber da wo es ist. Sonst könnte es passieren, daß der Text ins nächste Icon rutscht.
Echtes Beispiel in Win 10: