anchor.diff:    end;
   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(
  +procedure TtiCalendarComboMediatorView.SetObjectUpdateMoment(
     const AValue: TtiObjectUpdateMoment);
   begin
     inherited SetObjectUpdateMoment(AValue);
  
positive.code:       View.OnExit := @DoOnChange;
  end;
  
  constructor TtiSpinEditFloatMediatorView.Create;
  begin
    inherited Create;
  
negative.code: 
  
    { Base class to handle TfpgCalendarCombo controls }
    TtiCalendarComboMediatorView = class(TtiControlMediatorView)
    protected
      procedure   SetupGUIandObject; override;
      procedure   SetObjectUpdateMoment(const AValue: TtiObjectUpdateMoment); override;
    public
      constructor Create; override;
      function    View: TfpgCalendarCombo; reintroduce;
  