1 files changed, 30 insertions, 0 deletions
diff --git a/extras/tiopf/gui/tiMediators.pas b/extras/tiopf/gui/tiMediators.pas
index a0024df4..c6b62bd0 100644
--- a/extras/tiopf/gui/tiMediators.pas
+++ b/extras/tiopf/gui/tiMediators.pas
@@ -55,6 +55,7 @@ type
     function    GetGUIControl: TComponent; override;
     procedure   SetGUIControl(const AValue: TComponent);override;
     procedure   UpdateGuiValidStatus(pErrors: TtiObjectErrors); override;
+    procedure   SetupGUIandObject; override;
   public
     constructor Create; override;
     property    EditControl: TfpgCheckBox read FEditControl write FEditControl;
@@ -85,6 +86,7 @@ type
     function    GetGUIControl: TComponent; override;
     procedure   SetGUIControl(const AValue: TComponent);override;
     procedure   UpdateGuiValidStatus(pErrors: TtiObjectErrors); override;
+    procedure   SetupGUIandObject; override;
   public
     constructor Create; override;
     property    EditControl: TfpgSpinEdit read FEditControl write FEditControl;
@@ -100,6 +102,7 @@ type
     function    GetGUIControl: TComponent; override;
     procedure   SetGUIControl(const AValue: TComponent);override;
     procedure   UpdateGuiValidStatus(pErrors: TtiObjectErrors); override;
+    procedure   SetupGUIandObject; override;
   public
     constructor Create; override;
     property    EditControl: TfpgSpinEditFloat read FEditControl write FEditControl;
@@ -345,6 +348,15 @@ begin
   end;
 end;
 
+procedure TMediatorSpinEditView.SetupGUIandObject;
+begin
+  inherited SetupGUIandObject;
+  if ObjectUpdateMoment in [ouOnChange,ouCustom] then
+    FEditControl.OnChange := @DoOnChange
+  else
+    FEditControl.OnExit := @DoOnChange;
+end;
+
 constructor TMediatorSpinEditView.Create;
 begin
   inherited Create;
@@ -659,6 +671,15 @@ begin
   end;
 end;
 
+procedure TMediatorCheckBoxView.SetupGUIandObject;
+begin
+  inherited SetupGUIandObject;
+  if ObjectUpdateMoment in [ouOnChange,ouCustom] then
+    FEditControl.OnChange := @DoOnChange
+  else
+    FEditControl.OnExit := @DoOnChange;
+end;
+
 constructor TMediatorCheckBoxView.Create;
 begin
   inherited Create;
@@ -777,6 +798,15 @@ begin
   end;
 end;
 
+procedure TMediatorSpinEditFloatView.SetupGUIandObject;
+begin
+  inherited SetupGUIandObject;
+  if ObjectUpdateMoment in [ouOnChange,ouCustom] then
+    FEditControl.OnChange := @DoOnChange
+  else
+    FEditControl.OnExit := @DoOnChange;
+end;
+
 constructor TMediatorSpinEditFloatView.Create;
 begin
   inherited Create;