anchor.diff:    end;
     
   
  -function CreateComboBox(AOwner: TComponent; x, y, w: TfpgCoord; AList: TStringList): TfpgComboBox;
  +function CreateComboBox(AOwner: TComponent; x, y, w: TfpgCoord; AList: TStringList;
  +      h: TfpgCoord = 0): TfpgComboBox;
   
   
   implementation
  
positive.code:   ListBox.PopupFrame := True;
  end;
  
  function CreateComboBox(AOwner: TComponent; x, y, w: TfpgCoord; AList: TStringList): TfpgComboBox;
  begin
    Result           := TfpgComboBox.Create(AOwner);
    Result.Left      := x;
  
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
  