Roland Gentner hat geschrieben:Kann man Wheel in XbpBrowse auch nicht abschalten?
Dann könnte ich ja was eigenes bauen.
es gibt keinen :Wheel Slot im Source von XbpBrowse/XbpQuickbrowse.
Es gibt die Method o:HandleEvent ( nEvent, Mp1, Mp2 )
Code: Alles auswählen
CASE nEvent == xbeM_Wheel
// Mouse wheel, the wheel uses degree values which tell
// how many degrees the wheel needs to be turned. Therefore
// we have to calculate the 360/degrees to determine
// how many lines we have to skip.
i := Int( ::RowCount / ( 360 / Abs( Mp2[2] ) ) )
IF Mp2[2] > 0
i := i * (-1)
ENDIF
PostAppEvent ( xbeBRW_Navigate, XBPBRW_Navigate_Skip, i, self )
oder
Code: Alles auswählen
CASE nEvent == xbeM_Wheel
FOR i := 1 TO Int( ::RowCount / ( 360 / Abs( Mp2[2] ) ) )
IF mp2[2] < 0
::Down(FALSE)
ELSE
::Up(FALSE)
ENDIF
NEXT
es wird also der Event
xbeM_Wheel ausgewertet.
p.s. wenn ein Event "verarbeitet" wurde wird er aus der Event Queue "gelöscht" und kommt nicht mehr in einer "anderen" Event-Loop an.