anchor.diff:          If Size.cx > Rect.Right - Rect.Left - 4 Then
             Begin
               S := PSCShortMonthNames(Month);
  -            S := PSCUpperCase(S[1])+Copy(S,2,MaxInt);
  +            S := PSCUpperCase(UTF8Copy(S, 1, 1))+UTF8Copy(S,2,MaxInt);
               Size:=Canvas.TextExtent(S);
             End;
             
  
positive.code:        + MyMonthWidth * ((AP.X - MyR.Left) div MyMonthWidth + 1), MyR.Top +
         MyMonthHeight * ((AP.Y - MyR.Top) Div MyMonthHeight) + HeaderHeight);
        MyS := GetHeaderText(ADate);
        MySS := Copy(MyS, 1, Length(MyS) - 4);
        MyWasteSize:=Canvas.TextExtent(MySS);
        MySize:=Canvas.TextExtent(MyS);
        with MyRect do
  
negative.code:   Sysutils,
    classes,
    types,
    LazUTF8,
  
    myla_system,
    myla_interfaces,
  