anchor.diff:        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 LineColor: TfpgColor read FColor write FColor;
         property LineStyle: TfpgLineStyle read FStyle write FStyle;
       end;
   
  
positive.code:       FBeginY: Single;
        FEndX: Single;
        FEndY: Single;
        FColor: Integer;
        FStyle: TfpgLineStyle;
      protected
      public
  
negative.code:       property RectBottom: Single read FBottom write FBottom;
        property RectHeight: Single read FHeight write FHeight;
        property RectWidth: Single read FWidth write FWidth;
        property RectColor: TfpgColor 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;
  