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));