Delphi-PRAXiS
Seite 1 von 3  1 23      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   Einzelne Objekte im Canvas löschen (https://www.delphipraxis.net/160692-einzelne-objekte-im-canvas-loeschen.html)

mariking2 26. Mai 2011 13:31


Einzelne Objekte im Canvas löschen
 
Liste der Anhänge anzeigen (Anzahl: 1)
Hallo Miteinander,
ich sitze im Moment an einem Minipaintprogramm und habe folgendes Problem: Ich soll jedes einzelne Objekt auf dem Canvas(also jede Linie, jede Ellipse etc.) einzeln löschen können, ohne dass die anderen Objekte dabei beschädigt werden.
Im Internet habe ich schon einiges über ähnlich Funktionen gelesen, aber keines war irgendwie übertragbar. Ich habe zum Beispiel an eine Liste gedacht, die jeden Schritt in einem neuen Canvas speichert(Imag1.Canvas.Create)speichert(ähnlich Photoshop-Protokoll) und wenn ich eine Ebene in der Liste anklicke, soll der dazugehörige Canvas gelöscht/unsichtbar gemacht werden.
Ich weiß aber nicht, wie man dann dem String jeweils ein Canvas o.ä. zuweisen kann.

Bzw. gibt es andere Möglichkeiten?

//Das Programm ist angehängt, allerdings ohne jegliche Löschfunktion o.ä.

Coffeecoder 26. Mai 2011 13:36

AW: Einzelne Objekte im Canvas löschen
 
Hi,

Mein spontaner Vorschlag wäre, die Objekte die gezeichnet werden in einer Liste ja zu speichern.
Wenn du ein löschen willst dann wird es aus der Liste entfernt und wird dann nicht mehr neugezeichnet.
Neugezeichnet wird nur was in der Liste ist mit der Repaint-Methode.

Ich hoffe es hilft dir weiter.

mariking2 26. Mai 2011 13:38

AW: Einzelne Objekte im Canvas löschen
 
Aber wie speicher ich die Zeichnungen in einer Liste, denn ich kenne nur StringLists und die helfen mir beim Zeichnen nicht wirklich weiter, oder?

Coffeecoder 26. Mai 2011 13:45

AW: Einzelne Objekte im Canvas löschen
 
Ich würde so vorgehen:

Koordinaten der Objekte (X1,X2,Y1,Y2) und die "Form" (Ellipse,...) in einer Listbox speichern.
Die Repaint-Methode läuft durch die Liste und zeichnet das neu.
So wenn du ein Objekt nicht mehr haben willst, löschte den entsprechenden Eintrag aus der Listbox.
Dann rufst du nochmal die Paint-Methode auf und das "gelöschte" Objekt wird nicht mehr neugezeichnet.

mariking2 26. Mai 2011 13:48

AW: Einzelne Objekte im Canvas löschen
 
Soweit verstanden. Eine (vielleicht blöde Frage): Wie lösche ich ein Item aus einer Liste?

Könntest Du mir bitte mal den Code für eine Prozedur geben, die alle Ereignisse aus der Liste aufruft und zeichnet. Denn ein String ist ja nicht gleich ein Befehl.

DeddyH 26. Mai 2011 14:00

AW: Einzelne Objekte im Canvas löschen
 
Nimm statt einer Stringliste eine TObjectList und lege Deine Zeichenobjekte darin ab. Löschen kannst Du es dann mit ObjectList.Delete(Index Deines Objekts).

mariking2 26. Mai 2011 14:25

AW: Einzelne Objekte im Canvas löschen
 
Wenn ich schreibe:
Code:
var
liste: TObjectList;
zeigt er mir an, dass TObjectList ein undefinierter Bezeichner ist.

DeddyH 26. Mai 2011 14:29

AW: Einzelne Objekte im Canvas löschen
 
Du musst die Unit Contnrs einbinden.

mariking2 26. Mai 2011 14:35

AW: Einzelne Objekte im Canvas löschen
 
Also die Liste hätte ich erstellt, wie speicher ich jetzt z.B. eine Ellipse ab?
Denn es muss auch Vordergrundfarbe, Füllfarbe, Stiftdicke und Brush-Style beachtet werden.

DeddyH 26. Mai 2011 14:42

AW: Einzelne Objekte im Canvas löschen
 
Erstell Dir eine Klasse mit den benötigten Attributen. Von dieser Klasse erstellst Du dann eine Instanz, die auf die gewünschte Zeichenfläche malt und speicherst sie (die Instanz) in der Liste. Wird nun eine Instanz aus der Liste gelöscht, gehst Du die Liste von vorn nach hinten durch und lässt alle noch verbleibenden Objekte neu zeichnen.


Alle Zeitangaben in WEZ +1. Es ist jetzt 05:08 Uhr.
Seite 1 von 3  1 23      

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz