anchor.diff:    if Assigned(FMainTimelineRef) then
     begin
       SystemParametersInfo(SPI_GETWHEELSCROLLLINES, 0, @ScrollLines, 0);
  -    ScrollCount := -ScrollLines * Message.WheelDelta div {$ifdef fpc}Message.WheelDelta{$else}WHEEL_DELTA{$endif};
  +    ScrollCount := -ScrollLines * Message.WheelDelta div {$ifdef fpc}120{$else}WHEEL_DELTA{$endif}; // http://forum.lazarus.freepascal.org/index.php?topic=22722.0
       CurrentDate := FMainTimelineRef.Scale.AddTicks(Self.CurrentDate, ScrollCount);
     end;
   end;
  
positive.code:   Color := clBtnFace;
  
    FCurrentDate := Floor(Now);
  end;
  
  destructor TmTimeruler.Destroy;
  
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;
  