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