anchor.diff:      function    GetGUIControl: TComponent; override;
       procedure   SetGUIControl(const AValue: TComponent);override;
       procedure   SetupGUIandObject; override;
  +    procedure   SetObjectUpdateMoment(const AValue: TObjectUpdateMoment); override;
     public
       constructor Create; override;
       property    EditControl: TfpgCalendarCombo read FEditControl write FEditControl;
  
positive.code:   end;
  end;
  
  procedure TMediatorEditIntegerView.SetupGUIandObject;
  begin
    inherited;
    if ObjectUpdateMoment in [ouOnChange,ouCustom] then
      FEditControl.OnChange := @DoOnChange
    else
      FEditControl.OnExit := @DoOnChange;
  end;
  
  procedure TMediatorEditIntegerView.SetObjectUpdateMoment(
    const AValue: TObjectUpdateMoment);
  begin
    inherited SetObjectUpdateMoment(AValue);
    if Assigned(FEditControl) then
  
negative.code:   end;
  end;
  
  procedure TMediatorEditCurrencyView.SetObjectUpdateMoment(const AValue: TObjectUpdateMoment);
  begin
    inherited SetObjectUpdateMoment(AValue);
    if Assigned(FEditControl) then
      if ObjectUpdateMoment in [ouOnchange,ouCustom] then
        FEditControl.OnChange := @DoOnChange
      else
        FEditControl.OnExit := @DoOnChange;
  end;
  
  constructor TMediatorEditCurrencyView.Create;
  begin
    inherited Create;
    GUIFieldName := 'Value';
  end;
  
  destructor TMediatorEditCurrencyView.Destroy;
  begin
    if Assigned(EditControl) and Assigned(EditControl.OnChange) then
      EditControl.OnChange := nil;
    inherited Destroy;
  end;
  
  class function TMediatorEditCurrencyView.ComponentClass: TClass;
  begin
    Result := TfpgEditCurrency;
  