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