Rechtecke auf TImage ziehen mit DrawFocusRect

[s.h.a.r.k]

Das Problem ist, dass das Bild sich den letzten Rahmen merkt und diesen nicht löscht. Du musst das Bild inkl. Rahmen neu zeichnen -> siehe Code:

Delphi-Quellcode:

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 "clearen"
          Bild.Canvas.Brush.Color := clWhite;
          Bild.Canvas.FillRect(Rect(0, 0, Bild.Width, Bild.Height));

          // Neuen Rahmen zeichnen
          Bild.Canvas.DrawFocusRect(Rect(Xf,Yf,X,Y));
     end;     
end;