anchor.diff:    {$IFDEF Unix} LCLIntf, LCLType, {$ENDIF}
     SysUtils, StrUtils, Math, KromUtils, Clipbrd,
     KM_Resource, KM_ResSprites, KM_ResSound, KM_ResCursors, KM_ResTexts,
  -  KM_Sound, KM_CommonUtils, KM_Utils;
  +  KM_Sound, KM_CommonUtils, KM_Utils, KM_DevPerfLog, KM_DevPerfLogTypes;
   
   
   const
  
positive.code:     procedure SetPeacetime(aValue: Integer);
      procedure SetMaxValue(aValue: Integer);
    protected
      procedure ControlMouseMove(Sender: TObject; X, Y: Integer; Shift: TShiftState); override;
      procedure PaintBar; override;
    public
      constructor Create(aParent: TKMPanel; aLeft, aTop, aWidth, aHeight: Integer; aFont: TKMFont = fntMini); overload;
  
negative.code: 
  
  procedure TKMMasterControl.MouseMove(X,Y: Integer; Shift: TShiftState);
  var
    I: Integer;
    HintControl: TKMControl;
  begin
    CtrlOver := HitControl(X,Y);
  
    // Notify all ControlMouseMove subscribers
    for I := 0 to fMouseMoveSubsList.Count - 1 do
      if Assigned(fMouseMoveSubsList[I]) then
        fMouseMoveSubsList[I](CtrlOver, X, Y, Shift);
  
    //User is dragging some Ctrl (e.g. scrollbar) and went away from Ctrl bounds
    if (CtrlDown <> nil) and CtrlDown.Visible then
  