anchor.diff:  begin
     CheckPrinting(True);
     EndPage(DC);
  -  FPrinters.Remove(Ptr(DC));
  +  FPrinters.Remove(DC);
     if not Aborted then
       Windows.EndDoc(DC);
     SetPrinting(False);
  
positive.code:     lpszDocName := CTitle;
      lpszOutput := nil;
    end;
    FPrinters.Put(Ptr(DC), Self);
    SetAbortProc(DC, AbortProc);
    StartDoc(DC, DocInfo);
    SetPrinting(True);
  
negative.code: {$else}
    Consts,
  {$endif}
    SysUtils, Forms, Contnrs;
  
  type
    // BG, 29.01.2012: allow multiple prints of several THtmlViewer components at a time.
    TMapItem = class(TObject)
    private
      FKey: Integer;
      FValue: Pointer;
    public
      constructor Create(Key: Integer; Value: Pointer);
    end;
  
    // BG, 29.01.2012: allow multiple prints of several THtmlViewer components at a time.
    TMap = class(TObject)
    private
      FItems: TObjectList;
      function getItem(Index: Integer): TMapItem;
      property Items[Index: Integer]: TMapItem read getItem;
    public
      constructor Create;
      destructor Destroy; override;
      function Get(Key: Integer): Pointer;
      function Put(Key: Integer; Value: Pointer): Pointer;
      function Remove(Key: Integer): Pointer;
    end;
  
  var
  