anchor.diff:    published
       property    Align;
       property    BackgroundColor default clBoxColor;
  +    property    BorderStyle: TfpgEditBorderStyle read FBorderStyle write SetBorderStyle default ebsDefault;
       property    Enabled;
       property    FontDesc: string read GetFontDesc write SetFontDesc;
       property    Hint;
  
positive.code:     FReadOnly: Boolean;
      FUpdateCount: integer;
      function    GetFontDesc: string;
      procedure   SetFontDesc(const AValue: string);
      procedure   RecalcLongestLine;
      procedure   DeleteSelection;
  
negative.code: begin
    Canvas.ClearClipRect;
    r.SetRect(0, 0, Width, Height);
    case BorderStyle of
      ebsNone:
          begin
            // do nothing
          end;
      ebsDefault:
          begin
            Canvas.DrawControlFrame(r);
            InflateRect(r, -2, -2);
          end;
      ebsSingle:
          begin
            Canvas.SetColor(clShadow2);
            Canvas.DrawRectangle(r);
            InflateRect(r, -1, -1);
          end;
    end;
    Canvas.SetClipRect(r);
  
    if Enabled and not ReadOnly then
  