Thema: Delphi TShape + Canvas

Einzelnen Beitrag anzeigen

oki

Registriert seit: 30. Dez 2002
Ort: Brandshagen
1.819 Beiträge
 
Delphi 2007 Professional
 
#24
  Alt 5. Mai 2003, 08:25
Hi Schwanengel.

Schön, dass du von alleine auf die TImage-Komponente gekommen bist. Das währe jetzt mein nächster Tip für die Transparenz gewesen.

Du sagst, dass du eine Methode eingefügt hast, die Dir viel Arbeit abnimmt.
Das ist schon der erste Schritt zum Object-Glück.

Mal was allgemeines vorweg. Es währe doch schön, wenn du dir in deinem Hauptprogramm nicht alles merken mußt für die Operationen deiner kopierten Zeichnungen. Also merkt mal sich das doch am Besten in einem Objekt und sagt diesem immer nur was aktuell passiert um es dann reagieren zu lassen.

Einfach gesprochen sieht das so aus.

Das Kopie-Object soll erstellt werden: also kreieren!

Du willst mit dem verschieben anfangen: also bescheid sagen!

Du bewegst die Maus: also bescheid sagen!

Die Kopie ablegen: also bescheid sagen!

Fertig: also Object zerstören(destroy)!

Wie macht man das?

Du hast selber gemerkt, dass ein TImage ideal für deine Aufgabenstellung ist.

Nun gut, dann ist unser neues Object von der Klasse TImage abgeleitet.
Das sieht so aus:

Delphi-Quellcode:
type
  TCopyImage = class(TImage)
  private
  
  public

  end;
In Private und Public schreiben wir dann alle notwendigen Eigenschaften und Methoden die wir so brauchen.

Gib mir mal deinen aktuellen Code rüber und ich mach mal einen Anfang.

Gruß oki
  Mit Zitat antworten Zitat