Rectangle verzerrt bei Bewegung

[SunSet]

Ich programmiere zurzeit ein Zeichenprogramm ähnlich wie Paint. Mein Programm hat schon diverse Funktionen wie Freihand zeichnen, Pipette, etc., nur beim Rectangle und der Ellipse habe ich ein Problem, da beim bewegen das alte Viereck bleibt und das ist natürlich nicht richtig. Ich habe folgenden Code in den Maus-Ereignissen meiner Zeichenflaeche:

Delphi-Quellcode:

procedure TForm1.imgZeichenflaecheMouseDown(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
var Farbe: TColor;
begin
  Klick := true;
  imgZeichenflaeche.Canvas.MoveTo(x,y);
end;{ImageMouseDown}

procedure TForm1.imgZeichenflaecheMouseMove(Sender: TObject;
  Shift: TShiftState; X, Y: Integer);
begin
  if Klick = true then begin
    with imgZeichenflaeche.Canvas do begin
      Pen.Mode := pmNotXor;
      Rectangle(PenPos.X,Penpos.Y,X,Y);
    end;
  end;
end;{ImageMouseMove}

procedure TForm1.imgZeichenflaecheMouseUp(Sender: TObject;
  Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
begin
  klick := false;
end;{ImageMouseUp}

Das Viereck lässt sich vergrößeren aber es bleibt halt das alte. Ich habe versucht das zu löschen nur irgendwie weiß ich gerade nicht wie ich die richtigen Koordinaten für das alte Viereck, welches gelöscht werden soll, ermitteln kann. Wäre nett wenn mir da jemand helfen könnte

[himitsu]

Beim Zeichnen die Position des Rechtecks merken, dann das alte Rechteck löschen/übermalen und das Neue zeichnen.

[DeddyH]

Und bitte niemals auf true vergleichen.

Zitat:

if Klick = true then begin

-->if Klick then begin

[SunSet]

Also ich habe das jetzt mal versucht zu löschen, jedoch funktioniert das auch nicht wie ichs gern möchte. Ich habe folgenden Code im MouseMove-Ereignis:

Delphi-Quellcode:

  if Klick then begin
    with imgZeichenflaeche.Canvas do begin
      Pen.Mode := pmNotXor;
      Pen.Color := clWhite;
      Rectangle(x1,y1,x2,y2);
      Pen.Color := Farbe;
      Rectangle(PenPos.X,Penpos.Y,X,Y);
      x1 := PenPos.X;
      y1 := PenPos.Y;
      x2 := X;
      y2 := Y;
    end;{with-anweisung}
  end;

Es ist immernoch wie vorher das alte Rectangle zu sehen. Warum? Ich übermale es doch mit einem weißen, oder etwa nicht?

[DeddyH]

Ist zwar schon etwas älter, aber immer noch empfehlenswert: delphi gummibandeffekt (gleich der erste Treffer)

[SunSet]

Danke War zwar viel zu lesen aber hab mein Problem lösen können.

[Wolfgang Mix]

Verrätst du uns auch die Lösung?