anchor.diff:      property    TabWidth: integer read FTabWidth write FTabWidth;
       property    Text: TfpgString read GetText write SetText;
       property    UseTabs: boolean read FUseTabs write FUseTabs default False;
  +    property    PopupMenu: TfpgPopupMenu read FPopupMenu write FPopupMenu;
     published
       property    BackgroundColor default clBoxColor;
       property    FontDesc: string read GetFontDesc write SetFontDesc;
  
positive.code: 
  constructor TfpgMemo.Create(AOwner: TComponent);
  begin
    inherited;
    Focusable   := True;
    FFont       := fpgGetFont('#Edit1');
    FHeight     := FFont.Height * 3 + 4;
  
negative.code:     FHScrollBar: TfpgScrollBar;
      FWrapping: boolean;
      FLongestLineWidth: TfpgCoord;
      FPopupMenu: TfpgPopupMenu;
      function    GetFontDesc: string;
      procedure   SetFontDesc(const AValue: string);
      procedure   RecalcLongestLine;
  