anchor.diff:  
     FOperationsGrid := TVisualGrid.Create(Self);
     FOperationsGrid.SortMode := smMultiColumn;
  -  FOperationsGrid.FetchDataInThread := True;
  +  FOperationsGrid.FetchDataInThread := true;
     FOperationsGrid.AutoPageSize := True;
     FOperationsGrid.DeselectionType := dtDefault;
     FOperationsGrid.SelectionType := stRow;
  
positive.code: begin
    FetchUserData;
    RefreshTotals;
    FAccountsGrid.RefreshGrid;
    FOperationsGrid.RefreshGrid;
  end;
  
  procedure TCTRLWallet.FetchUserData;
  
negative.code: 
  begin
    FUserData := TUserInterface.Node.Bank.SafeBox.GetUserSummary(TWallet.Keys.AccountsKeyList.ToArray, true);
    FNodeNotifyEvents.WatchKeys.Clear;
    FNodeNotifyEvents.WatchKeys.AddAccountKeys(FUserData.Keys);
    if cbAccounts.ItemIndex = 0 then
      FAccountsDataSource.FilterKeys := FUserData.Keys;
    FOperationsDataSource.Accounts := TListTool<TAccount, cardinal>.Transform(FUserData.Accounts, GetAccNo);
  end;
  
  