anchor.diff:        FBottom: Single;
         FHeight: Single;
         FWidth: Single;
  -      FColor: Integer;
  +      FColor: TfpgColor;
         FFill: Boolean;
         FStroke: Boolean;
         FLineStyle: TfpgLineStyle;
  
positive.code:       property LineBeginY: Single read FBeginY write FBeginY;
        property LineEndX: Single read FEndX write FEndX;
        property LineEndY: Single read FEndY write FEndY;
        property LineColor: Integer read FColor write FColor;
        property LineStyle: TfpgLineStyle read FStyle write FStyle;
      end;
  
  
negative.code:     private
        FPage: Integer;
        FPoints: T_Points;
        FColor: TfpgColor;
      protected
      public
        property PageId: Integer read FPage write FPage;
        property Points: T_Points read FPoints;
        property SurfColor: TfpgColor read FColor write FColor;
      end;
  
    TPdfImg = class(TPdfElement)
  