anchor.diff:  function TfpgMemo.GetFontDesc: string;
   begin
     Result := FFont.FontDesc;
  +end;
  +
  +procedure TfpgMemo.SetBorderStyle(const AValue: TfpgEditBorderStyle);
  +begin
  +  if FBorderStyle = AValue then
  +    exit;
  +  FBorderStyle := AValue;
  +  RePaint;
   end;
   
   procedure TfpgMemo.DeleteSelection;
  
positive.code: 
    TfpgMemo = class(TfpgWidget)
    private
      FLines: TStringList;
      FMaxLength: integer;
      FCursorPos: integer;
  
negative.code:     FReadOnly: Boolean;
      FUpdateCount: integer;
      function    GetFontDesc: string;
      procedure   SetBorderStyle(const AValue: TfpgEditBorderStyle);
      procedure   SetFontDesc(const AValue: string);
      procedure   RecalcLongestLine;
      procedure   DeleteSelection;
  