anchor.diff:  begin
     FFont.Free;
     FFont := fpgGetFont(AValue);
  +  if Height < FFont.Height + 6 then
  +  begin
  +    Height:= FFont.Height + 6;
  +//    UpdateWindowPosition;
  +  end;
     RePaint;
   end;
   
  
positive.code:   Result.Width     := w;
    Result.Focusable := True;
  
    Result.Height := 23;  // replace this with font height + margins
    { TODO : We still need to handle the AList param as well.}
  end;
  
  { TfpgAbstractComboBox }
  
negative.code:   end;
    
  
  function CreateComboBox(AOwner: TComponent; x, y, w: TfpgCoord; AList: TStringList;
        h: TfpgCoord = 0): TfpgComboBox;
  
  
  implementation
  