TWBrowse right click

[Enrico Maria Giordano]

ON RIGHT CLICK clause doesn't work.

EMG

[Antonio Linares]

Enrico,

How a Pocket PC user can right click ?

[Enrico Maria Giordano]

Clicking on a spot and keep pressing the pen for a while. Try to do so on a file in Explorer.

EMG

[Antonio Linares]

Yes, you are right

[Antonio Linares]

Enrico,

It looks as WM_RBUTTONDOWN msg is never sent to a window. We need to find which msg is sent for that event.

I have placed a LogFile( "msgs.txt", { nMsg, nWParam, nLParam } ) at Class TWindow Method HandleEvent() but I can't find it, by now.

[Antonio Linares]

Enrico,

It looks as we never get such message. So a solution may be to count the ellapsed time since the left button is clicked, and on a certain amount, then fire the method.

What ellapsed time amount should we check ?

[Enrico Maria Giordano]

Sorry, I don't have a real device to test it here. But your solution seems the right one.

EMG

[Maurizio]

I solve with a work around :

this is a sample for the wbrowse.prg but it is possible to use in every control :

oBrwArt:bTimer := {|| MsgInfo("Hello") }





//-------------------------------------------------------
//1 - ADD this variable
DATA oTimer
DATA nTimer
DATA bTimer
// ------------------------------------------------------
// 2 Method LButtonDown
METHOD LButtonDown( nRow, nCol, nKeyFlags ) CLASS TWBrowse

local nClickRow, nSkipped
local nColPos := 0, nColInit := ::nColPos - 1
local nAtCol

//----- my_modi
IF ::bTimer != nil
::nTimer := 1
::oTimer := TTimer():New( 1000, ;
{||(::nTimer++,;
IIF( ::nTimer > 1 , ( ::nTimer := 0 ,::oTimer:End() , eval(::bTimer) ), ) )})
::oTimer:Activate()
ENDIF
// -----------------------------------------------------
// 2 Method LButtonUp
METHOD LButtonUp( nRow, nCol, nFlags ) CLASS TWBrowse
//----- my_modi
IF ::bTimer != nil
IF ::nTimer > 0
::oTimer:End()
ENDIF
::nTimer := 0
ENDIF

[Antonio Linares]

Maurizio,

I thought about the same solution, to use a timer. But to create a timer everytime the mouse is clicked it seems a big overload to the application.

Whats your opinion ?

[Enrico Maria Giordano]

Definitely.

EMG

[Maurizio]

Yes it is true , but I use this trick in VBE from 4 years without problem .
My application in FWPPC is still in beta , antil now it works ok .
Better if we found another solution .

Maurizio

[Bill Simmeth]

Hi, I too am interested in "right click" support in WBrowse. I found this article in the MSDN knowledgebase. Perhaps this can help. Unfortaunately, I am not talented enough to understand the "SHRecognizeGesture function".
http://msdn.microsoft.com/library/defau ... 2_noxa.asp

My specific interest is in popping up a menu. This example on MSDN shows specifics...
http://msdn.microsoft.com/library/defau ... isting.asp

Thanks for any help!

[Antonio Linares]

Bill,

Thanks for your feedback.

We have just published a new FWPPC build that includes the function SHRecognizeGesture(). Please review samples\TapHold.prg for a working sample detecting the tap and hold event.

Please notice that on such sample we are not showing a popup menu yet, just a MsgInfo(). Also we have detected that sometimes it makes crash the application, we still don't know why.

[Antonio Linares]

This sample already shows a POPUP, when tap & hold, though the actions are not managed yet:

http://hyperupload.com/download/017c2df ... d.prg.html

[Bill Simmeth]

Antonio,
Thanks for this start. It does seem to crash often, however.

Bill