anchor.diff:    protected
       procedure WriteRectangle(const AStream: TStream);
     public
  -    constructor CreateRectangle(const AEpais, APosX, APosY, AWidth, AHeight: single; const AFill, AStroke: Boolean);
  +    constructor CreateRectangle(const ALineWidth, APosX, APosY, AWidth, AHeight: single; const AFill, AStroke: Boolean);
       destructor Destroy; override;
     end;
   
  
positive.code: 
    TPdfRectangle = class(TPdfObject)
    private
      FEpais: single;
      FRecX: single;
      FRecY: single;
      FRecW: single;
  
negative.code:         begin
            if FontName > -1 then
            begin
              Fnt          := TPdfEmbeddedFont.CreateFont(FontName, FontSize);
              // adjust font size to display device
              Fnt.FTxtSize := IntToStr(Round((StrToInt(FontSize) * fpgApplication.Screen_dpi_y) div 72));
              TPdfStream(TPdfXRef(FGlobalXRefs[PageNum]).FStream).AddItem(Fnt);
  