瀏覽代碼

avoid mouseup glitch

Johann 6 年之前
父節點
當前提交
be2284242d
共有 1 個文件被更改,包括 2 次插入1 次删除
  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;