how to catch mouse event in a grid ?

[Pablo César]

Little joke:

event : how to catch a mouse in a grid ?

Serge

[Javier Tovar]

Little joke:

event : how to catch a mouse in a grid ?

Serge

+1 BUEN CHISTE

[jpp]

to serge

to catch the mouse, just include "Cheese" at first column and make some refreshes every minute....

It's really time for week_end !!!!

[Rathinagiri]

Wonderful.

We shall include in the next release.

Thanks a lot friends.

[Javier Tovar]

to catch the mouse, just include "Cheese" at first column and make some refreshes every minute....

Jajaja Siiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii

[srvet_claudio]

I also wish to ask to Dr. Soto if this jpp implementation:

Code: Select all

*-- Deb Jpp
      ELSEIF AT("BYPASS", UPPER( EventGetPROCNAME (nIndex))) > 0
          lProcessMessage := .T.
*-- Fin Jpp

Could be added at H_WINDOWS.PRG source lib file. What do you think about Claudio ?

Hi Pablo,
this is equivalent to:

CREATE EVENT PROCNAME cProcName HWND hWnd STOREINDEX nIndex

Code: Select all

EventSTOP  ( nIndex, lStop )

[Rathinagiri]

Thanks for explaining Claudio. So, it is already implemented.

[Pablo César]

this is equivalent to:

CREATE EVENT PROCNAME cProcName HWND hWnd STOREINDEX nIndex

Code: Select all

EventSTOP  ( nIndex, lStop )

Sorry Claudio, but I do not think so. How this could it be implemented in this my demo ? Would you show us please ?

I tried and was unsuccessful...

[srvet_claudio]

this is equivalent to:

CREATE EVENT PROCNAME cProcName HWND hWnd STOREINDEX nIndex

Code: Select all

EventSTOP  ( nIndex, lStop )

Sorry Claudio, but I do not think so. How this could it be implemented in this my demo ? Would you show us please ?

I tried and was unsuccessful...

Pablo now I think I understand your demo, a Grid with Keyboard or Mouse, but not both at once.
Add in your code:

CREATE EVENT PROCNAME Check_Event_ByPass() HwND form_1.GRID_1.HANDLE STOREINDEX nIndex
EventProcessAllHookMessage (nIndex, .T.)

[Pablo César]

Pablo now I think I understand your demo, a Grid with Keyboard or Mouse, but not both at once.
Add in your code:

CREATE EVENT PROCNAME Check_Event_ByPass() HwND form_1.GRID_1.HANDLE STOREINDEX nIndex
EventProcessAllHookMessage (nIndex, .T.)

Casi, casi, pero todavia sin suceso.

Claudio, fijese que en mi ejemplo (utilize mi demo ejecutable) y verá que todos los eventos que fueron definidos en el demo son exibidos en el StatuBar:

- key_up
- key_down
- Mouse wheel
- Mouse move
- Mouse lbtn Down
- Mouse Rbtn Down

Claro, que tendrá que clicar en el CheckBox. Pero funcionan aparentemente normal, inclusive mouse e keyboard events.

Con su indicación de colocar: EventProcessAllHookMessage (nIndex, .T.) funcionó en partes, pero tiene comportamiento diferente al que fué indicado por jpp de adicionar:

Code: Select all

*-- Deb Jpp
      ELSEIF AT("BYPASS", UPPER( EventGetPROCNAME (nIndex))) > 0
          lProcessMessage := .T.
*-- Fin Jpp

Porque el CheckBox alterna el valor pre-definido en mi funcion Check_Event_ByPass() para que retorne al contrário.