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:     procedure   SetObjectUpdateMoment (Const AValue : TObjectUpdateMoment); override;
    public
      constructor Create; override;
      constructor CreateCustom(pEditControl: TfpgWidget; pSubject: TtiObject; pFieldName: string; pGuiFieldName: string = 'Text'); reintroduce;
      destructor  Destroy; override;
      property    EditControl: TfpgEdit read FEditControl write FEditControl;
      class function ComponentClass: TClass; override;
    end;
  
  
negative.code: uses
    SysUtils
    ,TypInfo
    ,fpg_dialogs      // for TfpgMessageDialog
    ,fpg_base         // for predefined colors
    ,tiGUIConstants   // for error color
  