summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--extras/tiopf/gui/tiMediators.pas14
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;