FIX: Bug [0001157] 'overwrite all' user interaction dialog keep requesting permission (sync folder)

This commit is contained in:
Alexander Koblov 2015-09-07 12:26:58 +00:00
commit e8678df905
8 changed files with 13 additions and 2 deletions

View file

@ -200,6 +200,7 @@ end;
procedure TFileSystemCopyOperation.Finalize;
begin
FileExistsOption := FOperationHelper.FileExistsOption;
FreeAndNil(FOperationHelper);
end;

View file

@ -164,8 +164,8 @@ end;
procedure TFileSystemMoveOperation.Finalize;
begin
if Assigned(FOperationHelper) then
FreeAndNil(FOperationHelper);
FileExistsOption := FOperationHelper.FileExistsOption;
FreeAndNil(FOperationHelper);
end;
class function TFileSystemMoveOperation.GetOptionsUIClass: TFileSourceOperationOptionsUIClass;

View file

@ -133,6 +133,7 @@ end;
procedure TGioCopyOperation.Finalize;
begin
FileExistsOption := FOperationHelper.FileExistsOption;
FOperationHelper.Free;
end;

View file

@ -97,6 +97,7 @@ end;
procedure TGioMoveOperation.Finalize;
begin
FileExistsOption := FOperationHelper.FileExistsOption;
FOperationHelper.Free;
end;

View file

@ -164,6 +164,8 @@ begin
FCallbackDataClass.UpdateProgressFunction:= nil;
UpdateProgressFunction:= nil;
end;
FileExistsOption := FOperationHelper.FileExistsOption;
FOperationHelper.Free;
end;
class function TWfxPluginCopyInOperation.GetOptionsUIClass: TFileSourceOperationOptionsUIClass;

View file

@ -152,6 +152,8 @@ begin
FCallbackDataClass.UpdateProgressFunction:= nil;
UpdateProgressFunction:= nil;
end;
FileExistsOption := FOperationHelper.FileExistsOption;
FOperationHelper.Free;
end;
class function TWfxPluginCopyOperation.GetOptionsUIClass: TFileSourceOperationOptionsUIClass;

View file

@ -164,6 +164,8 @@ begin
FCallbackDataClass.UpdateProgressFunction:= nil;
UpdateProgressFunction:= nil;
end;
FileExistsOption := FOperationHelper.FileExistsOption;
FOperationHelper.Free;
end;
class function TWfxPluginCopyOutOperation.GetOptionsUIClass: TFileSourceOperationOptionsUIClass;

View file

@ -150,6 +150,8 @@ begin
FCallbackDataClass.UpdateProgressFunction:= nil;
UpdateProgressFunction:= nil;
end;
FileExistsOption := FOperationHelper.FileExistsOption;
FOperationHelper.Free;
end;
class function TWfxPluginMoveOperation.GetOptionsUIClass: TFileSourceOperationOptionsUIClass;