Malen mit Canvas Rückgängig machen ?

[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]