anchor.diff:      procedure NotifySubscribers(EventKind: TmTimerulerEventKind; Info: TDateTime);
       procedure SetCurrentDate(Value: TDateTime);
       function CalculateTimelineHeight (Timeline : TmTimeline) : integer;
  +    procedure SetMaxDate(AValue: TDateTime);
  +    procedure SetMinDate(AValue: TDateTime);
   
       procedure SetOneBucketWidth(AValue: Integer);
       procedure NotifyLayoutChanged(MustInvalidateTimebar : boolean);
  
positive.code: 
  procedure TmTimeruler.Rebuild;
  begin
    Self.Invalidate;
    NotifyLayoutChanged(true);
  end;
  
negative.code:   strict private
      FEventsSubscriptions: TObjectList;
      FCurrentDate: TDateTime;
      FMinDate: TDateTime;
      FMaxDate: TDateTime;
      FMouseMoveData: _TmMouseMoveData;
  
      FTimelines : TmTimelines;
      FMainTimelineRef : TmTimeline;
      FDoubleBufferedBitmap: Graphics.TBitmap;
  
      FOnDateChanged: TNotifyEvent;
      FOnBeforeDateChange: TOnDateChangingEvent;
  