Update UGridUtils.pas

PascalCoin · Nov 2, 2021 · 1127039 · 1127039
1 parent d74cda2
commit 1127039
Showing 1 changed file with 3 additions and 3 deletions.
diff --git a/src/gui-classic/UGridUtils.pas b/src/gui-classic/UGridUtils.pas
@@ -298,7 +298,7 @@ procedure TAccountsGridUpdateThread.BCExecute;
   LApplyfilter : Boolean;
   LAccount : TAccount;
   LNode : TNode;
-  LAccountsList : TList<Integer>;
+  LAccountsList : TList<Int64>;
 begin
   LApplyfilter := ((FAccountsGridFilter.MinBalance>0) Or ((FAccountsGridFilter.MaxBalance>=0) And (FAccountsGridFilter.MaxBalance<CT_MaxWalletAmount)));
   FBalance := 0;
@@ -321,9 +321,9 @@ procedure TAccountsGridUpdateThread.BCExecute;
             LAccountsNumbersList := FAccountsGridFilter.OrderedAccountsKeyList.AccountKeyList[i];
             if Assigned(LAccountsNumbersList) then begin
 
-              LAccountsList := TList<Integer>.Create;
+              LAccountsList := TList<Int64>.Create;
               Try
-                LAccountsNumbersList.FillList(j_min,500,LAccountsList);
+                LAccountsNumbersList.FillList(j_min,50000,LAccountsList);
                 for j := 0 to LAccountsList.Count - 1 do begin
                   LAccount := LNode.Bank.SafeBox.Account(LAccountsList[j]);