anchor.diff:      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    AutoSize: Boolean read FAutoSize write SetAutoSize default False;
       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;
  
positive.code:   inherited Create(AOwner);
    FFont               := fpgGetFont('#Edit1');  // owned object !
    Focusable           := True;
    FHeight             := FFont.Height + 8;     // (BorderStyle + HeightMargin) * 2
    FWidth              := 120;
    FTextColor          := Parent.TextColor;
    FBackgroundColor    := clBoxColor;
    FAutoSelect         := True;
    FAutoSize           := True;
    FSelecting          := False;
    FHideSelection      := True;
    FReadOnly           := False;
  
negative.code:   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;
  