anchor.diff:    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;
  
positive.code:     procedure HistoryClick(Sender: TObject);
      procedure HistoryJumpTo(Sender: TObject);
      procedure History_ListChange(Sender: TObject);
    protected
      MinimapView: TKMMinimapView;
      Label_Coordinates: TKMLabel;
  
negative.code: 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;
  
  
  