anchor.diff:    end;
   end;
   
  +procedure TmCalendar.SetCaptionsColor(AValue: TColor);
  +begin
  +  if FCaptionsColor=AValue then Exit;
  +  FCaptionsColor:=AValue;
  +  Invalidate;
  +end;
  +
   procedure TmCalendar.SetDayAlignment(AValue: TAlignment);
   begin
     if FDayAlignment=AValue then Exit;
     FDayAlignment:=AValue;
  -  Self.Invalidate;
  +  Invalidate;
   end;
   
   procedure TmCalendar.SetDaysColor(AValue: TColor);
  
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:     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);
  