FiveTech Support Forums

ON RIGHT CLICK clause doesn't work.

EMG

Enrico,

How a Pocket PC user can right click ?

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

EMG

Yes, you are right

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.

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 ?

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

EMG

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

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 ?

Definitely.

EMG

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,

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.

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

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

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

Bill