anchor.diff:    protected
       function    GetGUIControl: TComponent; override;
       procedure   SetGUIControl(const AValue: TComponent); override;
  -    procedure   SetupGUIandObject; override;
       procedure   UpdateGuiValidStatus(pErrors: TtiObjectErrors); override;
       procedure   DoObjectToGui; override;
  +    procedure   SetObjectUpdateMoment(const AValue: TObjectUpdateMoment); override;
     public
       constructor Create; override;
       property    EditControl: TfpgComboBox read FEditControl write FEditControl;
  
positive.code:     FEditControl.MinValue := Mi;
      FEditControl.MaxValue := Ma;
    end;
    if ObjectUpdateMoment in [ouOnChange,ouCustom] then
      FEditControl.OnChange := @DoOnChange
    else
      FEditControl.OnExit := @DoOnChange;
  end;
  
  constructor TMediatorSpinEditFloatView.Create;
  
negative.code:     function    GetGUIControl: TComponent; override;
      procedure   SetGUIControl(const AValue: TComponent); override;
      procedure   UpdateGuiValidStatus(pErrors: TtiObjectErrors); override;
      procedure   SetObjectUpdateMoment (Const AValue : TObjectUpdateMoment); override;
    public
      constructor Create; override;
  