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 :roll:

[Cuchulainn]

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

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';

[Cuchulainn]

Was steht denn in Label0?

[Neutral General]

Code:

Label10.Caption := '$00010101';

(Beispiel)

[Cuchulainn]

Lies dir mal die Hilfe zu TColor durch. Vielleicht hilft dir das. Das ist der Typ, den du FloodFill übergeben musst.

[Neutral General]

OK aber wenn ich ja einfach nur

Code:

Canvas.FloodFill(X,Y+48,$00010101,fsBorder);

eingebe funktioniert es ja ! :gruebel:

[Cuchulainn]

Vielleicht darfst du kein StrToInt verwenden. Aber ich wüsste jetzt auch keine bessere Möglichkeit.

[Cuchulainn]

Ich habe gerade mal experimentiert. Mit StrToInt wird deine Hexadezimalzahl automatisch in eine Dezimalzahl uzmgewandelt. Wie ich erwartet habe. Du müsstest dir also eine Funktion bauen, der du die Dezimalzahl übergibst, die das Ding in Hexadezimal umwandelt und diese zurückgibt. Und die Funktion müsstest du dann im Übergabebereich von FloodFill aufrufen.

Du könntest dir auch die Hexadezimalzahl zusammensetzen, indem du die drei Teile, also die Intensität von Rot, Blau und Grün, angibst. Da hilft dir vielleicht die Hilfe zu TColor weiter.

[XeRo]

Ich hab mir jetzt nicht alle antowrten durchgelesen, aber was ist wenn du bevor du etwas neues zeichnest einen screenshot von der momentanen zeichnung nimmst und dann bei "rückgängig" einfach darüberzeichnest? :lol:

[axelf98]

Schau dir mal Stringtocolor an!

[Neutral General]

Danke !! StringToColor bringts ! :thuimb:
Es klappt :bouncing4: :hello:

[Neutral General]

O man bin ich blöd ! :wall:

Ich lese einfach im MouseMove Ereignis die Farbe des Pixels auf dem sich die Mause befindet :

Code:

var Farbe : TColor;
Farbe := Canvas.Pixels[X,Y];

und dann mache ich FloodFill mit dem Parameter fsSurface, und gebe Farbe als Color an :

Code:

Canvas.FloodFill(X,Y+48,Farbe,fsSurface);

Und jetzt füllt Delphi nur die Farbe wo ich mit dem Mauszeiger bin ! Dann ignoriert er alle anderen Farben ! Wie in Paint ! :dancer: