anchor.diff:  begin
     FFont.Free;
     FFont := fpgGetFont(AValue);
  -  if Height < FFont.Height + (FMargin * 2) then
  +  if FAutoSize then
  +  begin
       Height := FFont.Height + (FMargin * 2);
  +  end;
     RePaint;
   end;
   
  
positive.code:     procedure   DoOnCloseUp; virtual;
      procedure   PaintInternalButton; virtual;
      function    GetDropDownPos(AParent, AComboBox, ADropDown: TfpgWidget): TfpgRect; virtual;
      property    DropDownCount: integer read FDropDownCount write SetDropDownCount default 8;
      property    ExtraHint: string read FExtraHint write SetExtraHint;
      property    FocusItem: integer read FFocusItem write SetFocusItem;
  
negative.code:   published
      property    AcceptDrops;
      property    Align;
      property    AutoSize;
      property    BackgroundColor default clBoxColor;
      property    DropDownCount;
      property    Enabled;
  