* Fixed TfpgApplication to call CheckSynchronize in the application loop so multithreaded applications will work.

* TfpgApplication now inherits from TComponent so it can act as a container for other components like Forms.
* Implemented CreateForm in TfpgApplication.
* Fixed the default Height of TfpgComboBox to look at the specified Font instead of a hardcoded value.

2 files changed, 3 insertions, 2 deletions

diff --git a/src/gui/gui_combobox.pas b/src/gui/gui_combobox.pas
index 91e422fb..930bd551 100644
--- a/src/gui/gui_combobox.pas
+++ b/src/gui/gui_combobox.pas
@@ -465,16 +465,16 @@ end;
 constructor TfpgAbstractComboBox.Create(AOwner: TComponent);
 begin
   inherited Create(AOwner);
+  FFont   := fpgGetFont('#List');
   FBackgroundColor  := clBoxColor;
   FDropDownCount    := 8;
   FWidth            := 120;
-  FHeight           := 23;
+  FHeight           := FFont.Height + 6;
   FFocusItem        := 0; // nothing is selected
   FMargin           := 3;
   FFocusable        := True;
   FBtnPressed       := False;
   
-  FFont   := fpgGetFont('#List');
   FItems  := TStringList.Create;
   CalculateInternalButtonRect;
 
diff --git a/src/gui/gui_form.pas b/src/gui/gui_form.pas
index 8c1dd83d..5b5ca64c 100644
--- a/src/gui/gui_form.pas
+++ b/src/gui/gui_form.pas
@@ -318,6 +318,7 @@ end;
 
 procedure TfpgForm.Close;
 begin
+  fpgApplication.RemoveComponent(self);
   Hide;
   if fpgApplication.MainForm = self then
     fpgApplication.Terminated := True;