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:   Self.Invalidate;
  end;
  
  procedure TmCalendar.SetDaysColor(AValue: TColor);
  begin
    if FDaysColor=AValue then Exit;
    FDaysColor:=AValue;
    Invalidate;
  end;
  
  procedure TmCalendar.SetHorizontalItems(AValue: integer);
  begin
    if FHorizontalItems=AValue then Exit;
  