anchor.diff:    if FReadOnly = AValue then exit;
     FReadOnly := AValue;
     RePaint;
  +end;
  +
  +procedure TfpgBaseEdit.SetAutoSize(const AValue: Boolean);
  +var
  +  r: TRect;
  +begin
  +  if FAutoSize = AValue then
  +    exit;
  +  FAutoSize := AValue;
  +  if FAutoSize then
  +  begin
  +    r := fpgStyle.GetControlFrameBorders;
  +    FHeight := FFont.Height + (FHeightMargin*2) + (r.Top+r.Bottom);
  +    UpdateWindowPosition;
  +  end;
   end;
   
   function TfpgBaseEdit.GetMarginAdjustment: integer;
  
positive.code:     procedure   HandleHide; override;
      function    GetDrawText: String;
      property    AutoSelect: Boolean read FAutoSelect write SetAutoSelect default True;
      property    AutoSize: Boolean read FAutoSize write FAutoSize default True;
      property    BorderStyle: TfpgEditBorderStyle read FBorderStyle write SetBorderStyle default ebsDefault;
      property    FontDesc: String read GetFontDesc write SetFontDesc;
      property    HideSelection: Boolean read FHideSelection write SetHideSelection default True;
  
negative.code:     procedure   DefaultPopupInsertFromCharmap(Sender: TObject);
      procedure   SetDefaultPopupMenuItemsState;
      procedure   SetReadOnly(const AValue: Boolean);
      procedure   SetAutoSize(const AValue: Boolean);
    protected
      FFont: TfpgFont;
      FSideMargin: integer;
  