anchor.diff:      procedure   DefaultPopupInsertFromCharmap(Sender: TObject);
       procedure   SetDefaultPopupMenuItemsState;
       procedure   SetReadOnly(const AValue: Boolean);
  +    procedure   SetAutoSize(const AValue: Boolean);
     protected
       FFont: TfpgFont;
       FSideMargin: integer;
  
positive.code:   if FReadOnly = AValue then exit;
    FReadOnly := AValue;
    RePaint;
  end;
  
  function TfpgBaseEdit.GetMarginAdjustment: integer;
  
negative.code:   inherited Create(AOwner);
    FFont               := fpgGetFont('#Edit1');  // owned object !
    Focusable           := True;
    FHeight             := 24;
    FWidth              := 120;
    FTextColor          := Parent.TextColor;
    FBackgroundColor    := clBoxColor;
    FAutoSelect         := True;
    FAutoSize           := False;
    FSelecting          := False;
    FHideSelection      := True;
    FReadOnly           := False;
  