Selaa lähdekoodia

avoid undefined coords

circular17 6 vuotta sitten
vanhempi
commit
592693a0be
1 muutettua tiedostoa jossa 5 lisäystä ja 0 poistoa
  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));