diff options
Diffstat (limited to 'extras')
| -rw-r--r-- | extras/tiopf/gui/tiMediators.pas | 10 |
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; |