anchor.diff:    begin
       for x := 0 to FHorizontalItems - 1 do
       begin
  -      Paint_Caption (aCanvas, x, y);
  +      Paint_Captions (aCanvas, x, y);
         Paint_Titles (aCanvas, x, y);
         Paint_Month (aCanvas, x, y);
         //Paint_Dividers(x, y);
  
positive.code:     property DayAlignment : TAlignment read FDayAlignment write SetDayAlignment;
      property TitlesColor : TColor read FTitlesColor write SetTitlesColor;
      property DaysColor : TColor read FDaysColor write SetDaysColor;
    end;
  
  implementation
  
negative.code: 
  end;
  
  procedure TmCalendar.Paint_Captions(aCanvas: TCanvas; aX, aY: integer);
  var
    tmpRect : TRect;
    str : String;
  