anchor.diff:      function    GetGUIControl: TComponent; override;
       procedure   SetGUIControl(const AValue: TComponent); override;
       procedure   UpdateGuiValidStatus(pErrors: TtiObjectErrors); override;
  -    procedure   SetupGUIandObject; override;
       procedure   SetObjectUpdateMoment (Const AValue : TObjectUpdateMoment); override;
     public
       constructor Create; override;
  
positive.code:   end;
  end;
  
  procedure TMediatorEditIntegerView.SetupGUIandObject;
  begin
    inherited;
    if ObjectUpdateMoment in [ouOnChange,ouCustom] then
      FEditControl.OnChange := @DoOnChange
    else
      FEditControl.OnExit := @DoOnChange;
  end;
  
  procedure TMediatorEditIntegerView.SetObjectUpdateMoment(
    const AValue: TObjectUpdateMoment);
  begin
    inherited SetObjectUpdateMoment(AValue);
    if Assigned(FEditControl) then
  
negative.code:     procedure   SetGUIControl(const AValue: TComponent); override;
      procedure   UpdateGuiValidStatus(pErrors: TtiObjectErrors); override;
      procedure   SetupGUIandObject; override;
      procedure   SetObjectUpdateMoment (const AValue: TObjectUpdateMoment); override;
    public
      constructor Create; override;
      destructor  Destroy; override;
  