소스 검색

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;