anchor.diff:        View.OnExit := @DoOnChange;
   end;
   
  +constructor TtiCalendarComboMediatorView.Create;
  +begin
  +  inherited Create;
  +  GUIFieldName := 'DateValue';
  +end;
  +
  +function TtiCalendarComboMediatorView.View: TfpgCalendarCombo;
  +begin
  +  Result := TfpgCalendarCombo(inherited View);
  +end;
  +
  +class function TtiCalendarComboMediatorView.ComponentClass: TClass;
  +begin
  +  Result := TfpgCalendarCombo;
  +end;
  +
  +
  +{ TtiItemComboBoxMediatorView }
  +
  +procedure TtiItemComboBoxMediatorView.DoGUIToObject;
  +begin
  +  SetOrdProp(Subject, FieldName, View.FocusItem);
  +end;
  +
  +procedure TtiItemComboBoxMediatorView.DoObjectToGUI;
  +begin
  +  View.FocusItem := GetOrdProp(Subject, FieldName);
  +end;
  +
  +constructor TtiItemComboBoxMediatorView.Create;
  +begin
  +  inherited Create;
  +  GuiFieldName := 'FocusItem';
  +end;
  +
  +{ TtiSpinEditFloatMediatorView }
  +
  +procedure TtiSpinEditFloatMediatorView.SetupGUIandObject;
  +var
  +  Mi, Ma: Integer;
  +begin
  +  inherited SetupGUIandObject;
  +  if Subject.GetFieldBounds(FieldName, Mi, Ma) then
  +  begin
  +    View.MinValue := Mi;
  +    View.MaxValue := Ma;
  +  end;
  +end;
  +
  +procedure TtiSpinEditFloatMediatorView.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 TtiSpinEditFloatMediatorView.Create;
   begin
     inherited Create;
  
positive.code: 
  
    { Base class to handle TfpgCalendarCombo controls }
    TtiCalendarComboMediatorView = class(TtiBaseEditMediatorView)
    protected
      procedure   SetupGUIandObject; override;
    public
      constructor Create; override;
      function    View: TfpgCalendarCombo; reintroduce;
  
negative.code:   end;
  end;
  
  procedure TtiCalendarComboMediatorView.SetObjectUpdateMoment(
    const AValue: TtiObjectUpdateMoment);
  begin
    inherited SetObjectUpdateMoment(AValue);
  