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:     FMainTimelineRef := CopyFrom.FMainTimelineRef;
      Font.Assign(CopyFrom.Font);
      Color := CopyFrom.Color;
      Self.Rebuild;
      if Showing then
        invalidate;
  
negative.code:     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);
  