修正鼠标滚轮消息传递，并增加滚轮控制摄像机距离

example/Vulkan/VulkanAppFramework.h

@@ -46,6 +46,7 @@ protected:
     void OnMouseDown(int,int,uint mk){mouse_key=mk;MouseDown(mk);}
     void OnMouseUp  (int,int,uint mk){mouse_key=0;MouseUp(mk);}
     void OnMouseMove(int x,int y){mouse_pos.Set(x,y);MouseMove();}
+    void OnMouseWheel(int v,int h,uint mk){MouseWheel(v,h,mk);}
 
 protected:
 
@@ -117,6 +118,7 @@ public:
         SetEventCall(win->OnMouseDown,  this,VulkanApplicationFramework,OnMouseDown );
         SetEventCall(win->OnMouseUp,    this,VulkanApplicationFramework,OnMouseUp   );
         SetEventCall(win->OnMouseMove,  this,VulkanApplicationFramework,OnMouseMove );
+        SetEventCall(win->OnMouseWheel, this,VulkanApplicationFramework,OnMouseWheel);
 
         return(true);
     }
@@ -126,6 +128,7 @@ public:
     virtual void MouseDown(uint){}
     virtual void MouseUp(uint){}
     virtual void MouseMove(){}
+    virtual void MouseWheel(int,int,uint){}
 
     void InitCommandBuffer()
     {
@@ -314,4 +317,9 @@ public:
 
         mouse_last_pos=mouse_pos;
     }
+
+    virtual void MouseWheel(int v,int h,uint)
+    {
+        camera.Distance(1+(v/1000.0f));
+    }
 };//class WalkerCameraAppFramework