anchor.diff:  procedure TKMapEdInterface.History_ListChange(Sender: TObject);
   begin
     Button_History_JumpTo.Enabled := ListBox_History.Selected;
  +end;
  +
  +
  +procedure TKMapEdInterface.History_MouseWheel(Sender: TObject; WheelSteps: Integer; var aHandled: Boolean);
  +begin
  +  ListBox_History.MouseWheel(Sender, WheelSteps, aHandled);
  +
  +  aHandled := True;
   end;
   
   
  
positive.code: 
  procedure TKMapEdInterface.MouseWheel(Shift: TShiftState; WheelSteps, X,Y: Integer; var aHandled: Boolean);
  begin
    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
  
negative.code:   PopUp_History.Top  := 0;
    PopUp_History.DragEnabled := True;
    PopUp_History.DoSetVisible; // History is visible by default
    PopUp_History.OnMouseWheel := History_MouseWheel;
  
      ListBox_History := TKMListBox.Create(PopUp_History, 10, 10, PopUp_History.Width - 20, PopUp_History.Height - 50, fntMetal, bsGame);
      ListBox_History.AutoHideScrollBar := True;
  