anchor.diff:    Subject.PropValue[FieldName] := View.Lines.Text;
   end;
   
  +procedure TtiMemoMediatorView.SetObjectUpdateMoment(const AValue: TtiObjectUpdateMoment);
  +begin
  +  inherited SetObjectUpdateMoment(AValue);
  +  if View <> nil then
  +    if ObjectUpdateMoment in [ouOnChange,ouCustom] then
  +      View.OnChange := @DoOnChange
  +    else
  +      View.OnExit := @DoOnChange;
  +end;
  +
  +constructor TtiMemoMediatorView.Create;
  +begin
  +  inherited Create;
  +//  FControlReadOnlyColor := clWindowBackground;
  +  GUIFieldName := 'Lines';
  +end;
  +
   function TtiMemoMediatorView.View: TfpgMemo;
   begin
     Result := TfpgMemo(inherited View);
  
positive.code: procedure TtiMemoMediatorView.SetupGUIandObject;
  begin
    inherited SetupGUIandObject;
    View.Lines.Clear;
  end;
  
  
  
negative.code: 
  class function TtiControlMediatorView.ComponentClass: TClass;
  begin
    Result := TfpgWidget;
  end;
  
  { TtiBaseEditMediatorView }
  