Re: event epcbMouseEventWheelForward -- Howto?

If there is no solution for the mousewheel I will use the following solution with commandlistener. ( Maybe interesting for somebody )

Adding the global Var mouselocX and the function below to the event-handler

By pressing shift und moving the mouse to the left or right ( without pressing a button on mouse)  Dim mode will be changed

By pressing ctrl und moving the mouse to the left or right ( without pressing a button on mouse)  Transparency will be changed

Function com_postonmousemove(eButton, eFlags, dX, dY)
dim ValueTransparency
dim ValueDim

ValueTransparency= ExpActiveDoc.ActiveViewEx.DisplayControl.StringOption( "Global.Option.Transparency" )
ValueDim= ExpActiveDoc.ActiveViewEx.DisplayControl.StringOption( "Global.Option.DimMode" )

  if eflags = epcbKeyboardFlagsShiftPressed then
   if dX < mouselocX and ValueDim > 0 then
    ExpActiveDoc.ActiveViewEx.DisplayControl.StringOption( "Global.Option.DimMode" ) = ValueDim -2
   end if
   if dX > mouselocX and ValueDim < 100 then
    ExpActiveDoc.ActiveViewEx.DisplayControl.StringOption( "Global.Option.DimMode" ) = ValueDim +2
   end if
  end if

  if eflags = epcbKeyboardFlagsCntrlPressed then
   if dX < mouselocX and ValueTransparency > 0 then
    ExpActiveDoc.ActiveViewEx.DisplayControl.StringOption( "Global.Option.Transparency" ) = ValueTransparency -2
   end if
   if dX > mouselocX and ValueTransparency < 100 then
    ExpActiveDoc.ActiveViewEx.DisplayControl.StringOption( "Global.Option.Transparency" ) = ValueTransparency +2
   end if
  end if
  mouselocX = dX
  com_postonmousemove = false
End Function