anchor.diff:    Result.Width     := w;
     Result.Focusable := True;
   
  -  if h < TfpgComboBox(Result).FFont.Height + (Result.FMargin * 2) then
  -    Result.Height := TfpgComboBox(Result).FFont.Height + (Result.FMargin * 2)
  +  lh := TfpgComboBox(Result).FFont.Height + (Result.FMargin * 2);
  +  if h < lh then
  +    Result.Height := lh
     else
       Result.Height := h;
   
  
positive.code: 
  
  function CreateComboBox(AOwner: TComponent; x, y, w: TfpgCoord; AList: TStringList;
        h: TfpgCoord = 0): TfpgComboBox;
  begin
    Result           := TfpgComboBox.Create(AOwner);
    Result.Left      := x;
  
negative.code: {
      fpGUI  -  Free Pascal GUI Toolkit
  
      Copyright (C) 2006 - 2013 See the file AUTHORS.txt, included in this
      distribution, for details of the copyright.
  
      See the file COPYING.modifiedLGPL, included in this distribution,
  