anchor.diff:  constructor TfpgBaseComboBox.Create(AOwner: TComponent);
   begin
     inherited Create(AOwner);
  -  FDropDownCount := 8;
  -  FMargin := 3;
  -  FFocusItem := -1; // nothing is selected
  -  FItems  := TStringList.Create;
  +  FWidth          := 120;
  +  FHeight         := 24;
  +  FAutoSize       := False;
  +  FDropDownCount  := 8;
  +  FMargin         := 3;
  +  FFocusItem      := -1; // nothing is selected
  +  FItems := TStringList.Create;
     FItems.OnChange := @InternalItemsChanged;
  -  FFont   := fpgGetFont('#List');
  +  FFont := fpgGetFont('#List');
     FOptions := [];
     FBtnPressed := False;
     FOnChange := nil;
  
positive.code:     Exit; //=>
    FMargin := AValue;
    Height := FFont.Height + (FMargin * 2);
  end;
  
  procedure TfpgBaseComboBox.CalculateInternalButtonRect;
  
negative.code:     procedure   SetFontDesc(const AValue: string);
      procedure   SetExtraHint(const AValue: string);
    protected
      FAutoSize: Boolean;
      FMargin: integer;
      FInternalBtnRect: TfpgRect;
      FFocusItem: integer;
      FItems: TStringList;
      FBtnPressed: Boolean;
      procedure   SetMargin(const AValue: integer); virtual;
      procedure   SetAutoSize(const AValue: Boolean); virtual;
      procedure   CalculateInternalButtonRect; virtual;
      procedure   InternalOnClose(Sender: TObject); virtual;
      procedure   InternalItemsChanged(Sender: TObject); virtual;
  