anchor.diff:        function GetTimeSpan : TTimeSpan;
         procedure SetTimeSpan(const ASpan : TTimeSpan);
       protected
  -      function GetItemDisposePolicy : TDisposePolicy; override;
         function GetColumns : TDataColumns;  override;
       public
         constructor Create(AOwner: TComponent); override;
  
positive.code:   if Not Assigned(Node) then exit;
    for i := Node.Operations.Count - 1 downto 0 do begin
      Op := Node.Operations.OperationsHashTree.GetOperation(i);
      If TPCOperation.OperationToOperationResume(0,Op,Op.SignerAccount,OPR) then begin
        OPR.NOpInsideBlock := i;
        OPR.Block := Node.Bank.BlocksCount;
        OPR.Balance := Node.Operations.SafeBoxTransaction.Account(Op.SignerAccount).balance;
  
negative.code: function TOperationsDataSourceBase.GetTimeSpan : TTimeSpan;
  begin
    Result := TTimeSpan.FromSeconds( CT_NewLineSecondsAvg * (FEnd - FStart + 1) );
  end;
  
  procedure TOperationsDataSourceBase.SetTimeSpan(const ASpan : TTimeSpan);
  