Duplo click em Tbrowse + gtwvw

[edutek]

Boa Tarde!!


Como faço para acionar no Tbrowse (modelo clipper 5.3) o duplo click do
mouse,
tipo cliclar duplo abre edição do registro.


uso 99.70 .org + gtwvw + tbrowse (clipper 5.3)

eduardo mendes

[Stanis Luksys]

Olá,

Se você usa um CASE para testar as teclas, basta avaliar se o "inkey" é corresponde ao numero dos botões do mouse, se não me engano é 1004 algo assim.

Para testar escreva:

a:=inkey() // de um clique duplo
? str(a)

Falou!

[edutek]

Isso ai mesmo

inkey.ch

K_LDBLCLK - 1006 botao esquedo
K_RDBLCLK - 1007 botao direto

Valeu!!!

[Stanis Luksys]

O duplo é 1004 mesmo? Senão pelo menos cheguei perto... hehehe

Apenas lembrando que necessita do SET EVENTMASK... Se não me engano na WVW é padrão.

Falou!

[edutek]

extraido do INKEY.CH

/* Mouse events */

#define K_MOUSEMOVE 1001
#define K_LBUTTONDOWN 1002
#define K_LBUTTONUP 1003
#define K_RBUTTONDOWN 1004
#define K_RBUTTONUP 1005
#define K_LDBLCLK 1006
#define K_RDBLCLK 1007
#define K_MBUTTONDOWN 1008 // Middle Button Down
#define K_MBUTTONUP 1009 // Middle Button Up
#define K_MDBLCLK 1010 // Middle Button Double Click
#define K_MMLEFTDOWN 1011 // Mouse Move Left Down
#define K_MMRIGHTDOWN 1012 // Mouse Move Right Down
#define K_MMMIDDLEDOWN 1013 // Mouse Move Middle Down
#define K_MWFORWARD 1014 // Mouse Wheel Forward
#define K_MWBACKWARD 1015 // Mouse Wheel Backward
#define K_NCMOUSEMOVE 1016 // Non-Client Area Mouse Movement

#define K_MINMOUSE 1001
#define K_MAXMOUSE 1016