diff options
| -rw-r--r-- | extras/tiopf/gui/tiMediators.pas | 14 |
1 files changed, 13 insertions, 1 deletions
diff --git a/extras/tiopf/gui/tiMediators.pas b/extras/tiopf/gui/tiMediators.pas index c0b127b4..bc1f2c4e 100644 --- a/extras/tiopf/gui/tiMediators.pas +++ b/extras/tiopf/gui/tiMediators.pas @@ -214,9 +214,10 @@ type { Base class to handle TfpgCalendarCombo controls } - TtiCalendarComboMediatorView = class(TtiBaseEditMediatorView) + TtiCalendarComboMediatorView = class(TtiControlMediatorView) protected procedure SetupGUIandObject; override; + procedure SetObjectUpdateMoment(const AValue: TtiObjectUpdateMoment); override; public constructor Create; override; function View: TfpgCalendarCombo; reintroduce; @@ -792,6 +793,17 @@ begin end; end; +procedure TtiCalendarComboMediatorView.SetObjectUpdateMoment( + const AValue: TtiObjectUpdateMoment); +begin + inherited SetObjectUpdateMoment(AValue); + if View <> nil then + if ObjectUpdateMoment in [ouOnChange,ouCustom] then + View.OnChange := @DoOnChange + else + View.OnExit := @DoOnChange; +end; + constructor TtiCalendarComboMediatorView.Create; begin inherited Create; |