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