anchor.diff:        end else
           FConfirmedDateTime := FDateTime;
       finally
  -      InRecursiveCall := False;
  +      FChangeInRecursiveCall := False;
       end;
     end;
   
  
positive.code:       FDateTime := ComposeDateTime(FMinDate, FDateTime);
    end;
  
    if not InRecursiveCall then begin // we'll skip the next part in
           // recursive calls which could be made through Change or UndoChanges
      InRecursiveCall := True;
      try
        if FUserChanging > 0 then begin // this means that the change is caused by user interaction
          try
  
negative.code:   with GetControlClassDefaultSize do
      SetInitialBounds(0, 0, cx, cy);
  
    FChangeInRecursiveCall := False;
    FNoEditingDone := 0;
    FArrowShape := asModernSmaller;
    FAllowDroppingCalendar := True;
  