anchor.diff:  procedure RegisterFallBackMediators;
   begin
     gMediatorManager.RegisterMediator(TMediatorEditView, TtiObject, [tkSString,tkAString,tkInteger,tkFloat]);
  +  gMediatorManager.RegisterMediator(TMediatorEditIntegerView, TtiObject, [tkInteger]);
  +  gMediatorManager.RegisterMediator(TMediatorEditFloatView, TtiObject, [tkFloat]);
  +  gMediatorManager.RegisterMediator(TMediatorEditCurrencyView, TtiObject, [tkFloat]);
     gMediatorManager.RegisterMediator(TMediatorCheckBoxView, TtiObject, [tkBool]);
     gMediatorManager.RegisterMediator(TMediatorComboboxView, TtiObject, [tkSString,tkAString]);
     gMediatorManager.RegisterMediator(TMediatorItemComboBoxView, TtiObject, [tkInteger, tkEnumeration]);
  
positive.code:   Result := TfpgSpinEditFloat;
  end;
  
  end.
  
  
negative.code:     procedure   SetObjectUpdateMoment (Const AValue : TObjectUpdateMoment); override;
    public
      constructor Create; override;
      destructor  Destroy; override;
      property    EditControl: TfpgEdit read FEditControl write FEditControl;
      class function ComponentClass: TClass; override;
    end;
  
  
    { TMediatorEditIntegerView }
    TMediatorEditIntegerView = class(TMediatorView)
    private
      FEditControl: TfpgEditInteger;
    protected
      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;
      destructor  Destroy; override;
      property    EditControl: TfpgEditInteger read FEditControl write FEditControl;
      class function ComponentClass: TClass; override;
    end;
  
  
    { TMediatorEditFloatView }
    TMediatorEditFloatView = class(TMediatorView)
    private
      FEditControl: TfpgEditFloat;
    protected
      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;
      destructor  Destroy; override;
      property    EditControl: TfpgEditFloat read FEditControl write FEditControl;
      class function ComponentClass: TClass; override;
    end;
  
  
    { TMediatorEditCurrencyView }
    TMediatorEditCurrencyView = class(TMediatorView)
    private
      FEditControl: TfpgEditCurrency;
    protected
      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;
      destructor  Destroy; override;
      property    EditControl: TfpgEditCurrency read FEditControl write FEditControl;
      class function ComponentClass: TClass; override;
    end;
  
  