anchor.diff:      private
         FPage: Integer;
         FPoints: T_Points;
  -      FColor: Integer;
  +      FColor: TfpgColor;
       protected
       public
         property PageId: Integer read FPage write FPage;
         property Points: T_Points read FPoints;
  -      property SurfColor: Integer read FColor write FColor;
  +      property SurfColor: TfpgColor read FColor write FColor;
       end;
   
     TPdfImg = class(TPdfElement)
  
positive.code:       property RectBottom: Single read FBottom write FBottom;
        property RectHeight: Single read FHeight write FHeight;
        property RectWidth: Single read FWidth write FWidth;
        property RectColor: Integer read FColor write FColor;
        property RectFill: Boolean read FFill write FFill;
        property RectStroke: Boolean read FStroke write FStroke;
        property RectLineStyle: TfpgLineStyle read FLineStyle write FLineStyle;
  
negative.code:       FBeginY: Single;
        FEndX: Single;
        FEndY: Single;
        FColor: TfpgColor;
        FStyle: TfpgLineStyle;
      protected
      public
  