|
@@ -2060,6 +2060,7 @@ procedure TPCSafeBox.CheckMemory;
|
|
Var sb : TPCSafeBox;
|
|
Var sb : TPCSafeBox;
|
|
tc : TTickCount;
|
|
tc : TTickCount;
|
|
auxSnapshotsList : TList;
|
|
auxSnapshotsList : TList;
|
|
|
|
+ i : Integer;
|
|
{$ENDIF}
|
|
{$ENDIF}
|
|
begin
|
|
begin
|
|
{$IFDEF FPC}
|
|
{$IFDEF FPC}
|
|
@@ -2081,6 +2082,10 @@ begin
|
|
Self.CopyFrom(sb);
|
|
Self.CopyFrom(sb);
|
|
// Restore snapshots:
|
|
// Restore snapshots:
|
|
FSnapshots.Assign(auxSnapshotsList);
|
|
FSnapshots.Assign(auxSnapshotsList);
|
|
|
|
+ // Clear changes to do not fire key activity
|
|
|
|
+ for i := 0 to FListOfOrderedAccountKeysList.count-1 do begin
|
|
|
|
+ TOrderedAccountKeysList( FListOfOrderedAccountKeysList[i] ).ClearAccountKeyChanges;
|
|
|
|
+ end;
|
|
finally
|
|
finally
|
|
auxSnapshotsList.Free;
|
|
auxSnapshotsList.Free;
|
|
end;
|
|
end;
|