anchor.diff:  
   class function TtiControlMediatorView.ComponentClass: TClass;
   begin
  -  Result := TfpgEdit;
  +  Result := TfpgWidget;
   end;
   
   { TtiBaseEditMediatorView }
  
positive.code:   Subject.PropValue[FieldName] := View.Lines.Text;
  end;
  
  function TtiMemoMediatorView.View: TfpgMemo;
  begin
    Result := TfpgMemo(inherited View);
  
negative.code: 
  procedure RegisterFallBackMediators;
  begin
    gMediatorManager.RegisterMediator(TtiEditMediatorView, TtiObject, [tkSString,tkAString,tkLString,tkWString,tkUString,tkInteger,tkFloat]);
    gMediatorManager.RegisterMediator(TtiEditIntegerMediatorView, TtiObject, [tkInteger]);
    gMediatorManager.RegisterMediator(TtiEditFloatMediatorView, TtiObject, [tkFloat]);
    gMediatorManager.RegisterMediator(TtiEditCurrencyMediatorView, TtiObject, [tkFloat]);
  