circular17 6 роки тому
батько
коміт
592693a0be
1 змінених файлів з 5 додано та 0 видалено
  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));