Hallo, ich möchte gerne auf TImage ein Rechteck "ziehen", ähnlich wie bei Zeichenprogrammen. Dies soll mit über die Befehle OnMouseDown und Move geschehen. Beim Drücken der Maustaste wird der Startpunkt festgelegt, jetzt soll man das Rechteck ziehen können. Mein Problem: Das Rechteck wird gezogen, es erscheinen aber innerhalb dieses Rechtecks seeeehr viele andere Rechtecke, alle mit gestrichelter schwacher Linie.
Was kann ich machen?
Delphi-Quellcode:
procedure TForm1.BildMouseDown(Sender: TObject; Button: TMouseButton;
Shift: TShiftState; X, Y: Integer);
begin
Bild.Canvas.MoveTo(X,Y);
Zeichnen:=True;
Bild.Canvas.Pen.mode:=pmxor;
Xf:=X;
Yf:=Y;
end;
procedure TForm1.BildMouseMove(Sender: TObject; Shift: TShiftState; X,
Y: Integer);
begin
if not Zeichnen then exit;
if Werkzeug.ItemIndex=1 then //Das Rechteck-Werkzeug
begin
Bild.Canvas.DrawFocusRect(Rect(Xf,Yf,X,Y));
end;
end;
Liebe Grüße!