|
@@ -156,6 +156,7 @@ begin
|
|
|
result := EmptyRect;
|
|
result := EmptyRect;
|
|
|
if not handMoving then
|
|
if not handMoving then
|
|
|
begin
|
|
begin
|
|
|
|
|
+ GetAction;
|
|
|
handMoving := true;
|
|
handMoving := true;
|
|
|
handOriginF := ptF;
|
|
handOriginF := ptF;
|
|
|
idx := Manager.Image.CurrentLayerIndex;
|
|
idx := Manager.Image.CurrentLayerIndex;
|
|
@@ -226,7 +227,6 @@ procedure TToolMoveLayer.NeedLayerBounds;
|
|
|
var
|
|
var
|
|
|
idx: Integer;
|
|
idx: Integer;
|
|
|
begin
|
|
begin
|
|
|
- GetAction;
|
|
|
|
|
idx := Manager.Image.CurrentLayerIndex;
|
|
idx := Manager.Image.CurrentLayerIndex;
|
|
|
if not FLayerBoundsDefined then
|
|
if not FLayerBoundsDefined then
|
|
|
begin
|
|
begin
|
johann