anchor.diff:    FTitleSize:= 16;
     FStartDate:= Date;
     FDayAlignment:= taCenter;
  +  FTitlesColor:= clBlack;
  +  FDaysColor:= clBlack;
   end;
   
   
  
positive.code:     FStartDate : TDateTime;
      FDayAlignment: TAlignment;
      FTitlesColor: TColor;
  
      // internal properties
      FItemWidth : integer;
  
negative.code: end;
  
  procedure TmCalendar.Paint_Month(aX, aY: integer);
  var
    i, k : integer;
    x1 , y1 , x2 , y2 : integer;
    r : TRect;
    tmpYear, tmpMonth, tmpDay : word;
    curDate : TDateTime;
  begin
    Canvas.Font := Self.Font;
    Canvas.Font.Color := FDaysColor;
    if FItemType = itMonth then
    begin
      curDate := GetItemRefDate(aX, aY);
      DecodeDate(curDate, tmpYear, tmpMonth, tmpDay);
      for k := 0 to 5 do
      begin
        y1 := (aY * FItemHeight) + FCaptionSize + FTitleSize + (k * FDayHeight);
        y2 := y1 + FDayHeight;
        for i := 0 to 6 do
        begin
          x1 := (i * FDayWidth) + FBorderSize + (aX * FItemWidth);
          x2 := x1 + FDayWidth;
          r := Classes.Rect (x1, y1, x2, y2);
          if DayOfTheWeek(curDate) = i + 1 then
          begin
            WriteText(Canvas, r, IntToStr(tmpDay), FDayAlignment);
            curDate := curDate + 1;
            inc(tmpDay);
          end;
          if MonthOf(curDate) <> tmpMonth then
            break;
        end;
      end;
    end;
  
  end;
  
  