anchor.diff:      FSelecting: Boolean;
       FReadOnly: Boolean;
       FIgnoreMouseCursor: Boolean;
  +    FAutoSize: Boolean;
       procedure   Adjust(UsePxCursorPos: boolean = false); virtual;
       procedure   AdjustTextOffset(UsePxCursorPos: boolean); virtual;
       procedure   AdjustDrawingInfo; virtual;
  
positive.code:     property    PopupMenu;  // UI Designer doesn't fully support it yet
    published
      property    AutoSelect;
      property    BackgroundColor default clBoxColor;
      property    BorderStyle;
      property    ExtraHint;
  
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;
  