Browse Source

issue key activity

clear changes on checking memory
PascalCoin 7 năm trước cách đây
mục cha
commit
4f66a5c147
1 tập tin đã thay đổi với 5 bổ sung0 xóa
  1. 5 0
      src/core/UAccounts.pas

+ 5 - 0
src/core/UAccounts.pas

@@ -2060,6 +2060,7 @@ procedure TPCSafeBox.CheckMemory;
 Var sb : TPCSafeBox;
   tc : TTickCount;
   auxSnapshotsList : TList;
+  i : Integer;
 {$ENDIF}
 begin
   {$IFDEF FPC}
@@ -2081,6 +2082,10 @@ begin
         Self.CopyFrom(sb);
         // Restore snapshots:
         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
         auxSnapshotsList.Free;
       end;