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    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:   FTextColor          := Parent.TextColor;
    FBackgroundColor    := clBoxColor;
    FAutoSelect         := True;
    FSelecting          := False;
    FHideSelection      := True;
    FReadOnly           := False;
  
negative.code: begin
    FFont.Free;
    FFont := fpgGetFont(AValue);
    if AutoSize then
    begin
      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;
    end;
    Adjust;
    RePaint;
  