Преглед изворни кода

avoid exiting temporary move tool

Juliette ELSASS пре 6 месеци
родитељ
комит
eca9cf21d4
2 измењених фајлова са 2 додато и 1 уклоњено
  1. 1 1
      lazpaint/tools/utool.pas
  2. 1 0
      lazpaint/tools/utoolbasic.pas

+ 1 - 1
lazpaint/tools/utool.pas

@@ -1590,7 +1590,7 @@ end;
 
 function TToolManager.CheckExitTool: boolean;
 begin
-  if FShouldExitTool then
+  if FShouldExitTool and not ToolSleeping then
   begin
     FShouldExitTool:= false;
     SetCurrentToolType(FSwitchAfterExitTool);

+ 1 - 0
lazpaint/tools/utoolbasic.pas

@@ -603,6 +603,7 @@ var
   original: TVectorOriginal;
   i: Integer;
 begin
+  if Manager.ToolSleeping then exit;
   if not Manager.Image.SelectionMaskEmpty and
     not Manager.Image.SelectionLayerIsEmpty and
     IsAffineMatrixInversible(Manager.Image.SelectionTransform) then