anchor.diff:            Top := Top + delta2;
             Bottom := Bottom - (delta - delta2);
           End;
  -    End;}
  +    End;
   End;
   
   {------------------------------------------------------------------------------}
  
positive.code:   ParentColor := false;
    FWeekCursor := crDefault;
    Flat := true;
    //FBorderStyle := cPSCDefCalendarBorderStyle;
    //FBorderEdges := [beLeft,beTop,beRight,beBottom];
    FExtendedSelect := true;
    Width := 170;
    Height := 170;
  
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
  