anchor.diff:  
   end;
   
  -procedure TmCalendar.Paint_Caption(aCanvas: TCanvas; aX, aY: integer);
  +procedure TmCalendar.Paint_Captions(aCanvas: TCanvas; aX, aY: integer);
   var
     tmpRect : TRect;
     str : String;
  
positive.code:     FDayAlignment: TAlignment;
      FTitlesColor: TColor;
      FDaysColor : TColor;
  
      // internal properties
      FItemWidth : integer;
  
negative.code:     str := DefaultFormatSettings.LongMonthNames[tmpMonth] + ' ' + IntToStr(tmpYear);
    end;
    aCanvas.Font := Self.Font;
    aCanvas.Font.Color := FCaptionsColor;
    aCanvas.Brush.Style := bsClear;
    w := 0;
    h := 0;
    aCanvas.GetTextSize(str, w, h);
    aCanvas.TextOut(tmpRect.Left + ((FItemWidth - w) div 2), tmpRect.Top, str);
  end;
  
  procedure TmCalendar.Paint_Titles(aCanvas: TCanvas; aX, aY: integer);
  