How can you activate the xbeM_Wheel in a DCDIALOG

[digitsoft]

Hi Roger
How can you activate the xbeM_Wheel in a DCDIALOG

[Tom]

Hi, Nolberto.

If you want to deal with wheel events besides what's happening automatically (scroll bars, tables), catch "xbeM_Wheel" in a custom handler (use HANDLER or HANDLERBLOCK, look at the docs for DCREADGUI) and find out whether the mouse pointer is above the control you want to behave depending on the wheel.

Code: Select all

FUNCTION MyHandler(nEvent, mp1, mp2, oXbp, ..., oMyObject)
LOCAL nMove
DO CASE
  CASE nEvent = xbeM_Wheel .AND. MousePointsOn(oMyObject)
  * mp2[2] tells you the count of lines the wheel sends, number can be negative (lines up)
  oMyObject:SetSize/SetPos/DoWhatEver 
...

[Wolfgang Ciriack]

if you are using XBase++ 1.9 you have to disable "scrolling of inactive windows, if the cursor is over it" in the windows mouse scrolling settings.

[digitsoft]

Hello Tom
The cursor moves with the wheel, but I want to know how to position myself at the top of the screen if I use the test to see more data that is hidden below.

Hi, Nolberto.

If you want to deal with wheel events besides what's happening automatically (scroll bars, tables), catch "xbeM_Wheel" in a custom handler (use HANDLER or HANDLERBLOCK, look at the docs for DCREADGUI) and find out whether the mouse pointer is above the control you want to behave depending on the wheel.

Code: Select all

FUNCTION MyHandler(nEvent, mp1, mp2, oXbp, ..., oMyObject)
LOCAL nMove
DO CASE
  CASE nEvent = xbeM_Wheel .AND. MousePointsOn(oMyObject)
  * mp2[2] tells you the count of lines the wheel sends, number can be negative (lines up)
  oMyObject:SetSize/SetPos/DoWhatEver 
...