anchor.diff:          L := 3
     End;
   
  -  Result:=Copy(Result,1,L);
  +  Result:=UTF8Copy(Result,1,L);
   end;
   
   {------------------------------------------------------------------------------}
  
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:   Sysutils,
    classes,
    types,
    LazUTF8,
  
    myla_system,
    myla_interfaces,
  