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
