anchor.diff:      procedure HistoryClick(Sender: TObject);
       procedure HistoryJumpTo(Sender: TObject);
       procedure History_ListChange(Sender: TObject);
  +    procedure History_MouseWheel(Sender: TObject; WheelSteps: Integer; var aHandled: Boolean);
     protected
       MinimapView: TKMMinimapView;
       Label_Coordinates: TKMLabel;
  
positive.code: procedure TKMapEdInterface.History_ListChange(Sender: TObject);
  begin
    Button_History_JumpTo.Enabled := ListBox_History.Selected;
  end;
  
  
  
negative.code: 
  procedure TKMapEdInterface.MouseWheel(Shift: TShiftState; WheelSteps, X,Y: Integer; var aHandled: Boolean);
  begin
    if fMyControls.CtrlOver <> nil then
    begin
      fMyControls.MouseWheel(X, Y, WheelSteps, aHandled);
      if not aHandled then
        inherited;
      Exit; // Don't change field stages when mouse not over map
    end;
  
    if aHandled then Exit;
    
    if gGameCursor.Mode in [cmField, cmWine] then
    begin
      if (X < 0) or (Y < 0) then Exit; // This happens when you use the mouse wheel on the window frame
  