anchor.diff:      property DayAlignment : TAlignment read FDayAlignment write SetDayAlignment;
       property TitlesColor : TColor read FTitlesColor write SetTitlesColor;
       property DaysColor : TColor read FDaysColor write SetDaysColor;
  +    property CaptionsColor : TColor read FCaptionsColor write SetCaptionsColor;
     end;
   
   implementation
  
positive.code:   FDayAlignment:= taCenter;
    FTitlesColor:= clBlack;
    FDaysColor:= clBlack;
    Self.Color:= clWhite;
  end;
  
  
negative.code: 
      procedure Paint_FillBackground(aCanvas : TCanvas; const aRect : TRect);
      procedure Paint_Items(aCanvas : TCanvas);
      procedure Paint_Captions (aCanvas: TCanvas; aX, aY : integer);
      procedure Paint_Titles (aCanvas: TCanvas; aX, aY : integer);
      procedure Paint_Month(aCanvas: TCanvas; aX, aY : integer);
      function GetItemRefDate (aX, aY : integer) : TDateTime;
      procedure DrawFlatFrame (aCanvas : TCanvas ; const Rect : TRect );
      procedure DoInternalSizeCalculation;
      procedure SetBorderSize(AValue: integer);
      procedure SetCaptionsColor(AValue: TColor);
      procedure SetDayAlignment(AValue: TAlignment);
      procedure SetDaysColor(AValue: TColor);
      procedure SetHorizontalItems(AValue: integer);
  