Bläddra i källkod

avoid undefined coords

circular17 6 år sedan
förälder
incheckning
592693a0be
1 ändrade filer med 5 tillägg och 0 borttagningar
  1. 5 0
      lazpaint/lazpaintmainform.pas

+ 5 - 0
lazpaint/lazpaintmainform.pas

@@ -1195,6 +1195,11 @@ begin
   InFormMouseMove := True;
   if not FImageView.PictureCoordsDefined then
     Application.ProcessMessages; //empty message stack
+  if not FImageView.PictureCoordsDefined then
+  begin
+    InFormMouseMove:= false;
+    exit;
+  end;
 
   BmpPos := FImageView.FormToBitmap(FormMouseMovePos);
   FCoordinatesCaption := IntToStr(round(BmpPos.X))+','+IntToStr(round(BmpPos.Y));