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:   Repaint;
  end;
  
  procedure TfpgMemo.HandleMouseMove(x, y: integer; btnstate: word; shiftstate: TShiftState);
  var
    n: integer;
  
negative.code: 
  constructor TfpgMemo.Create(AOwner: TComponent);
  begin
    inherited Create(AOwner);
    Focusable   := True;
    FFont       := fpgGetFont('#Edit1');
    FHeight     := FFont.Height * 3 + 4;
  