* Published new events for Calendar Combo.

* tiOPF: CalendarCombo mediator now hooks into the OnChange and OnExit event.

1 files changed, 10 insertions, 0 deletions

diff --git a/extras/tiopf/gui/tiMediators.pas b/extras/tiopf/gui/tiMediators.pas
index c6b62bd0..2cc11bbb 100644
--- a/extras/tiopf/gui/tiMediators.pas
+++ b/extras/tiopf/gui/tiMediators.pas
@@ -192,6 +192,7 @@ type
   protected
     function    GetGUIControl: TComponent; override;
     procedure   SetGUIControl(const AValue: TComponent);override;
+    procedure   SetupGUIandObject; override;
   public
     constructor Create; override;
     property    EditControl: TfpgCalendarCombo read FEditControl write FEditControl;
@@ -736,6 +737,15 @@ begin
   inherited SetGUIControl(AValue);
 end;
 
+procedure TMediatorCalendarComboView.SetupGUIandObject;
+begin
+  inherited SetupGUIandObject;
+  if ObjectUpdateMoment in [ouOnChange,ouCustom] then
+    FEditControl.OnChange := @DoOnChange
+  else
+    FEditControl.OnExit := @DoOnChange;
+end;
+
 constructor TMediatorCalendarComboView.Create;
 begin
   inherited Create;