anchor.diff: -unit KM_Controls;
  +﻿unit KM_Controls;
   {$I KaM_Remake.inc}
   interface
   uses
  
positive.code:   if Assigned(fOnMouseWheel) then
      fOnMouseWheel(Self, WheelDelta, aHandled)
    else
      aHandled := DoHandleMouseWheelByDefault;
  end;
  
  
  
negative.code: end;
  
  
  procedure TKMScrollPanel.MouseWheel(Sender: TObject; WheelDelta: Integer; var aHandled: Boolean);
  begin
    if saVertical in fScrollAxisSet then
      fScrollBarV.MouseWheel(Sender, WheelDelta, aHandled)
    else if saHorizontal in fScrollAxisSet then
      fScrollBarH.MouseWheel(Sender, WheelDelta, aHandled)
    else
      inherited;
  end;
  
  
  procedure TKMScrollPanel.ScrollChanged(Sender: TObject);
  var
    OldValue: Integer;
  