anchor.diff:    inherited Create(AOwner);
     FBackgroundColor  := clBoxColor;
     FTextColor        := Parent.TextColor;
  -  FWidth            := 120;
  -  FHeight           := Font.Height + (2*FMargin);
     FFocusable        := True;
   
     CalculateInternalButtonRect;
  
positive.code: constructor TfpgBaseComboBox.Create(AOwner: TComponent);
  begin
    inherited Create(AOwner);
    FDropDownCount := 8;
    FMargin := 3;
    FFocusItem := -1; // nothing is selected
    FItems  := TStringList.Create;
    FItems.OnChange := @InternalItemsChanged;
    FFont   := fpgGetFont('#List');
    FOptions := [];
    FBtnPressed := False;
    FOnChange := nil;
  
negative.code:     procedure   DoOnCloseUp; virtual;
      procedure   PaintInternalButton; virtual;
      function    GetDropDownPos(AParent, AComboBox, ADropDown: TfpgWidget): TfpgRect; virtual;
      property    AutoSize: Boolean read FAutoSize write SetAutoSize default False;
      property    DropDownCount: integer read FDropDownCount write SetDropDownCount default 8;
      property    ExtraHint: string read FExtraHint write SetExtraHint;
      property    FocusItem: integer read FFocusItem write SetFocusItem;
  