Malen mit Canvas Rückgängig machen ?

[Neutral General]

Ich habe ein Malprogramm programmiert, das Programm zeichnet dabei zu Beispiel ein Rechteck so :

OnMouseDown :

Code:

if Eck = true then begin
  Ec1 := X;
  Ec2 := Y;
end;

MouseUp :

Code:

if Eck = true then
  Canvas.Rectangle(Ec1,Ec2+48,X,Y+50);

Wie macht ich da eine Rückgängigfunktion ?
Wenn man auf einen Button klickt soll das letzte mit Canvas gezeichnete Objekt verschwinden !

[Cuchulainn]

So weit ich weiß, geht das nur, wenn du eine weitere Form, die mit der gleichen Farbe ausgefüllt ist wie der Hintergrund, über das zu löschende Objekt zeichnest.
Also so in der Art:

Delphi-Quellcode:

procedure PLoeschen;
begin
  Canvas.Brush.Color := clWhite; // oder welche Farbe dein Hintergrund auch immer haben mag
  Canvas.Rectangle(Ec1,Ec2+48,X,Y+50);
end;

[Neutral General]

Ja ganz gute Idee aber ich habe ja auch mehr als einRechteck und ich habe da noch Kreise und Linien und Punkte UND Ec1 und Ec2 verändern sich ja dauernd, weil Ec1=MouseX und Ec2=MouseY !

[Cuchulainn]

Du willst nur das zuletzt gezeichnete Objekt löschen, oder?
Dann speichere die Angaben des letzten Objekts in einem Record und arbeite dann damit. Das mit dem Rechteck war nur ein Beispiel. Du kannst natürlich auch Kreise und Linien so überschreiben nur mit den jeweiligen Funktionen.

[Neutral General]

Ähm ... Beispiel bitte
Ich habe keine Ahnung was Record ist

[Cuchulainn]

Ich stelle mir das folgendermaßen vor. Es ist alles ungetestet und soll nur ein Denkansatz sein

Ein Record ist eine Zusammenfassung mehrere Variablen. Etwa so:

Delphi-Quellcode:

var MyRecord:  record
  Variable1: integer;
  Variable2: String;
end;

(...)
// Jetzt kannst du mit dem Punkt auf die Variablen des Records zugreifen:

MyRecord.Variable1 := 4;
MyRecord.Variable2 := 'Hallo Welt';

Es handelt sich also um etwas ähnliches wie eine Klasse nur ohne Methoden, Vererbung, usw., einfach ausgedrückt.

Jetzt habe ich mir das so vorgestellt:

Delphi-Quellcode:

type TObjekte = (Rechteck, Kreis, Linie); // Deklaration eines Mengentyps
var LetztesObjekt: record
  X1: Integer;
  Y1: Integer;
  X2: Integer;
  Y2: Integer;
  Typ: TObjekte;
end;

MouseUp

Delphi-Quellcode:

if Eck = true then 
begin
  Canvas.Rectangle(Ec1,Ec2+48,X,Y+50);
  LetztesObjekt.X1 := Ec1;
  LetztesObjekt.Y1 := Ec2+48;
  LetztesObjekt.X2 := X;
  LetztesObjekt.Y2 := Y + 50;
  LetztesObjekt.Typ := Rechteck;
end;

Du müsstest dann je nach dem gezeichneten Objekttyp die Variable LetztesObjekt.Typ setzen.

Dann kannst du in deiner Klickmethode einfach diese Variablen benutzen:

Delphi-Quellcode:

  Canvas.Brush.Color := clWhite; 
  if LetztesObjekt.Typ = Rechteck then
  begin
    Canvas.Rectangle(LetztesObjekt.X1, LetztesObjekt.Y1, LetztesObjekt.X2, LetztesObjekt.Y2);
  end;

So etwa.

[edit=Luckie]Tags gefixed. Mfg, Luckie[/edit]

[Dragon27]

hi,

also zum thema record kann ich dir nur das hie empfehlen: Delphi-source.de

In der mitte findest du was du brauchst!

Gruß


Dragon27

[Neutral General]

Ich habe noch eine Frage : Wie macht man mit Canvas.Flood , das die "Flut" nicht immer von der gleichen Farbe abgeblockt wird sondern von der Farbe von der sie begrenzt wird

[Cuchulainn]

Meinst du FloodFill? Da kann man die Farbe doch übergeben.

[Neutral General]

Ja aber :

Code:

Canvas.FloodFill(X,Y+48,StrToInt(Label10.Caption),fsBorder);

verursacht zwar keinen Fehler aber im Programm funtioniert es nicht !

Beispiel :

Code:

Label10.Caption := '$00010101';