handle scroll wheel scrolling in new ListControl

Change-Id: I8dc68b674aabf446c4b949770ae066d41204efc3
Reviewed-on: https://gerrit.libreoffice.org/41680Reviewed-by: Markus Mohrhard <markus.mohrhard@googlemail.com>
Tested-by: Markus Mohrhard <markus.mohrhard@googlemail.com>

include/svx/listctrl.hxx

@@ -48,6 +48,7 @@ public:
     virtual Size GetOptimalSize() const override;
     virtual void queue_resize(StateChangedType eReason = StateChangedType::Layout) override;
     virtual void Resize() override;
+    virtual bool EventNotify( NotifyEvent& rNEvt ) override;
 
     DECL_LINK( ScrollHdl, ScrollBar*, void );
 };

svx/source/dialog/listctrl.cxx

@@ -142,4 +142,17 @@ void ListControl::deleteEntry(sal_uInt32 nPos)
     RecalcAll();
 }
 
+bool ListControl::EventNotify( NotifyEvent& rNEvt )
+{
+    if (rNEvt.GetType() == MouseNotifyEvent::COMMAND)
+    {
+        const CommandEvent* pEvent = rNEvt.GetCommandEvent();
+        if (pEvent && pEvent->GetCommand() == CommandEventId::Wheel)
+        {
+            HandleScrollCommand(*pEvent, nullptr, mpScrollBar.get());
+        }
+    }
+    return true;
+}
+
 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */