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

[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 von KodeZwerg:

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

Japp ... so ist es.

Zitat von KodeZwerg:

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.

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
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 von EWeiss:

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

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

Zitat von EWeiss:

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 von EWeiss:

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 von EWeiss:

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? 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 von EWeiss:

Zitat:

arSnapToGrid ist keine Sortierfunktion.

Nein?

Nein!

Zitat von EWeiss:

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?

Zitat von EWeiss:

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?

Zitat von EWeiss:

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.

[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 von Guido Eisenbeis:

Zitat von EWeiss:

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

[Guido Eisenbeis]

Hallo KodeZwerg,

wieso geht es dann bei mir?