anchor.diff:  implementation
   
   uses
  -  math, UCore, UWallet, UUserInterface, UTime;
  +  math, UCoreUtils, UWallet, UUserInterface, UTime;
   
   { TAccountsDataSourceBase }
  -
  -function TAccountsDataSourceBase.GetItemDisposePolicy : TDisposePolicy;
  -begin
  -  Result := idpNone;
  -end;
   
   function TAccountsDataSourceBase.GetColumns : TDataColumns;
   begin
  
positive.code: function TOperationsDataSourceBase.GetTimeSpan : TTimeSpan;
  begin
    Result := TTimeSpan.FromSeconds( CT_NewLineSecondsAvg * (FEnd - FStart + 1) );
    //XXXXXXXXXX TTimeSpan use not available at TPCOperationsComp  Result := TPCOperationsComp.ConvertBlockCountToTimeSpan(FEnd - FStart + 1);
  end;
  
  procedure TOperationsDataSourceBase.SetTimeSpan(const ASpan : TTimeSpan);
  
negative.code:     Result := TAccountComp.FormatMoneyDecimal(AItem.Balance)
    else if ABindingName = 'Payload' then
      Result := AItem.PrintablePayload
    else if ABindingName = 'Description' then
      Result := AItem.OperationTxt
    else raise Exception.Create(Format('Field not found [%s]', [ABindingName]));
  