anchor.diff:      WriteString('f' + CRLF, AStream);
   end;
   
  -constructor TPdfRectangle.CreateRectangle(const AEpais, APosX, APosY, AWidth, AHeight: single; const AFill, AStroke: Boolean);
  +constructor TPdfRectangle.CreateRectangle(const ALineWidth, APosX, APosY, AWidth, AHeight: single; const AFill, AStroke: Boolean);
   begin
     inherited Create;
  -  FEpais  := AEpais;
  +  FLineWidth  := ALineWidth;
     FRecX   := APosX;
     FRecY   := APosY;
     FRecW   := AWidth;
  
positive.code: begin
    for Cpt := 0 to Pred(FStream.Count) do
    begin
      if TPdfObject(FStream[Cpt]) is TPdfFonte then
        TPdfFonte(FStream[Cpt]).WriteFonte(AStream);
      if TPdfObject(FStream[Cpt]) is TPdfColor then
        TPdfColor(FStream[Cpt]).WriteColor(AStream);
      if TPdfObject(FStream[Cpt]) is TPdfText then
  
negative.code:     destructor Destroy; override;
    end;
  
    TPdfEmbeddedFont = class(TPdfObject)
    private
      FTxtFont: integer;
      FTxtSize: string;
    protected
      procedure WriteFont(const AStream: TStream);
      function WriteEmbeddedFont(const ASrcStream: TMemoryStream; const AStream: TStream): int64;
    public
      constructor CreateFont(const AFont: integer; const ASize: string);
      destructor Destroy; override;
    end;
  
  