anchor.diff:      Property StartDate Stored False;
       Property Flat;
       Property BorderStyle;
  -    //Property BorderEdges;
  +    Property BorderEdges;
       Property MaxSelDates;
       Property WeekCursor;
       Property SelectKind;
  
positive.code:     Property StartDate;
      Property Flat;
      Property BorderStyle;
      //Property BorderEdges;
      Property MaxSelDates;
      Property WeekCursor;
      Property SelectKind;
  
negative.code:         AWidth := (AWidth Div Value) * Value + Delta +
            (Width-ClientWidth);
        end;
      End;
  
    If FBorderEdges * [beTop,beBottom] = [] Then
      Begin
        Value := GetMonthHeight;
        If Value > 0 Then
        begin
  