anchor.diff:    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.}
  +  if h < TfpgComboBox(Result).FFont.Height + 6 then
  +    Result.Height:= TfpgComboBox(Result).FFont.Height + 6
  +  else
  +    Result.Height:= h;
  +    
  +  Result.Items.AddStrings(AList);
   end;
   
   { TfpgAbstractComboBox }
  
positive.code: begin
    FFont.Free;
    FFont := fpgGetFont(AValue);
    RePaint;
  end;
  
  
negative.code:     ddw.ListBox.FocusItem := FFocusItem;
  
      ddw.DontCloseWidget := self;  // now we can control when the popup window closes
      ddw.ShowAt(Parent, Left, Top + Height);      // drop the box below the combo
      ddw.ListBox.SetFocus;
    end
    else
  