HMGforum.com

Posted: **Fri Mar 28, 2014 4:38 pm**

serge_girard wrote:Little joke:

event : how to catch a mouse in a grid ?

Serge

Posted: **Fri Mar 28, 2014 4:42 pm**

Pablo César wrote:
serge_girard wrote:Little joke:

event : how to catch a mouse in a grid ?

Serge

+1 BUEN CHISTE

Posted: **Fri Mar 28, 2014 4:57 pm**

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 !!!!

Posted: **Fri Mar 28, 2014 5:27 pm**

Wonderful.

We shall include in the next release.

Thanks a lot friends.

Posted: **Fri Mar 28, 2014 5:30 pm**

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

Jajaja Siiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiiii

Posted: **Fri Mar 28, 2014 6:42 pm**

Pablo César wrote: 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 )

Posted: **Fri Mar 28, 2014 8:06 pm**

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

Posted: **Fri Mar 28, 2014 8:21 pm**

srvet_claudio wrote: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...

Posted: **Sat Mar 29, 2014 5:00 am**

Pablo César wrote:
srvet_claudio wrote: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.)

Posted: **Sat Mar 29, 2014 11:52 am**

Rathinagiri wrote:
srvet_claudio wrote: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.

HMGforum.com

how to catch mouse event in a grid ?

how to catch mouse event in a grid ?

Re: how to catch mouse event in a grid ?

Re: how to catch mouse event in a grid ?

Re: how to catch mouse event in a grid ?

Re: how to catch mouse event in a grid ?

Re: how to catch mouse event in a grid ?

Re: how to catch mouse event in a grid ?

how to catch mouse event in a grid ?

Re: how to catch mouse event in a grid ?

how to catch mouse event in a grid ?