Selaa lähdekoodia

avoid mouseup glitch

Johann 6 vuotta sitten
vanhempi
commit
be2284242d
1 muutettua tiedostoa jossa 2 lisäystä ja 1 poistoa
  1. 2 1
      lazpaint/lazpaintmainform.pas

+ 2 - 1
lazpaint/lazpaintmainform.pas

@@ -1225,10 +1225,11 @@ var redraw: boolean;
 begin
   if not Assigned(FImageView) then exit;
 
-  redraw := ToolManager.ToolMove(FImageView.FormToBitmap(X,Y),CurrentPressure);
+  redraw := false;
   if (btnLeftDown and (Button = mbLeft)) or (btnRightDown and (Button=mbRight))
     or (btnMiddleDown and (Button = mbMiddle)) then
   begin
+    redraw := ToolManager.ToolMove(FImageView.FormToBitmap(X,Y),CurrentPressure);
     if ToolManager.ToolUp then redraw := true;
     btnLeftDown := false;
     btnRightDown := false;