anchor.diff:      Procedure UpdateSelection;
       Procedure UpdateLimits;
       Procedure TimerEvent(Timer: TObject; EventID: Integer);
  -    Procedure SetPrintOptions(Const Value: TPSCCalendarPrintOptions);
  +    //Procedure SetPrintOptions(Const Value: TPSCCalendarPrintOptions);
   
       Function GetEndDate: TDateTime;
       Function GetAutoSize: boolean;
  
positive.code: 
  {------------------------------------------------------------------------------}
  
  Procedure TPSCCustomCalendar.InvalidateSelection;
  Var
    Rect: TRect;
    Date: TDateTime;
  
negative.code:         AHeight := (AHeight Div Value) * Value + Delta +
            (Height-ClientHeight);
        end;
      {End }
  End;
  
  {------------------------------------------------------------------------------}
  
  procedure TPSCCustomCalendar.WMWindowPosChanging(
    var Message: TLMWindowPosChanging);
  Begin
    With Message.WindowPos^ Do
      If flags And SWP_NOSIZE = 0 Then
  