anchor.diff:    ListBox.PopupFrame := True;
   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;
   begin
     Result           := TfpgComboBox.Create(AOwner);
     Result.Left      := x;
  
positive.code:     if rowcount < 1 then
        rowcount := 1;
      ddw.Height            := (ddw.ListBox.RowHeight * rowcount) + 4;
      ddw.CallerWidget      := self;
      ddw.ListBox.OnSelect  := @InternalListBoxSelect;
  
  
negative.code: begin
    FFont.Free;
    FFont := fpgGetFont(AValue);
    if Height < FFont.Height + 6 then
    begin
      Height:= FFont.Height + 6;
  //    UpdateWindowPosition;
    end;
    RePaint;
  end;
  
  