Explorar el Código

avoid undefined coords

circular17 hace 6 años
padre
commit
592693a0be
Se han modificado 1 ficheros con 5 adiciones y 0 borrados
  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));