* Implemented OnClose event for TfpgPopupWindow

* Implemented OnDropDown and OnCloseUp for any combobox type component.
* TfpgCombobox.FocusItem can now be set via code without the OnChange event firing (default). This behaviour can be modified with the TfpgComboBox.Options property.

1 files changed, 7 insertions, 0 deletions

diff --git a/src/gui/gui_editcombo.pas b/src/gui/gui_editcombo.pas
index dad8449f..fee9ec70 100644
--- a/src/gui/gui_editcombo.pas
+++ b/src/gui/gui_editcombo.pas
@@ -129,6 +129,8 @@ type
     property    TextColor;
     property    Width;
     property    OnChange;
+    property    OnCloseUp;
+    property    OnDropDown;
   end;
 
 
@@ -359,6 +361,11 @@ begin
     ddw.DontCloseWidget := self;  // now we can control when the popup window closes
     r := GetDropDownPos(Parent, self, ddw);
     ddw.Height := r.Height;
+
+    if (FItems.Count > 0) and Assigned(OnDropDown) then
+      OnDropDown(self);
+    ddw.OnClose := @InternalOnClose;
+
     ddw.ShowAt(Parent, r.Left, r.Top);
   end
   else