anchor.diff:    FTextColor          := Parent.TextColor;
     FBackgroundColor    := clBoxColor;
     FAutoSelect         := True;
  +  FAutoSize           := True;
     FSelecting          := False;
     FHideSelection      := True;
     FReadOnly           := False;
  
positive.code: begin
    FFont.Free;
    FFont := fpgGetFont(AValue);
    case BorderStyle of
      ebsNone:
        if Height < FFont.Height + (FHeightMargin * 2) then
          Height:= FFont.Height + (FHeightMargin * 2);
      ebsDefault:
        if Height < FFont.Height + 4 + (FHeightMargin * 2) then
          Height:= FFont.Height + 4 + (FHeightMargin * 2);
      ebsSingle:
        if Height < FFont.Height + 2 + (FHeightMargin * 2) then
          Height:= FFont.Height + 2 + (FHeightMargin * 2);
    end;
    Adjust;
    RePaint;
  
negative.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;
  