anchor.diff:  
   {------------------------------------------------------------------------------}
   
  -Procedure TPSCCustomCalendar.CMBorderChanged(Var Message: TMessage);
  +procedure TPSCCustomCalendar.CMBorderChanged(var Message: TLMessage);
   Begin
     Inherited;
     BorderChanged;
  
positive.code: 
  {------------------------------------------------------------------------------}
  
  Procedure TPSCCustomCalendar.SetMaxSelDates(Value: Integer);
  Begin
    If Value < 0 Then
      Value := 0;
  
negative.code:           FMonths.Font := Self.Colors.DaysFont;
              HeaderFont := Self.Colors.HeaderFont;
            HeaderHeight := Self.HeaderHeight;
            //Ctl3D := Self.Ctl3D;
            YearsPopupCtl3D := FCalendarStyle = cstMSMoney;
            If FCalendarStyle = cstMSMoney Then
              CaptionColor := Colors.WeekHeader
  