General information
Category:
ActiveX controls in VFP
Title:
Lastkey() Loop within oTreeview: MouseUp
Whilst using a simple TreeView connection to a Table all is fine.
I decided that a side menu activated by the Right-Click,(button=2) would be
good idea.
Yes, it all worked well until testing !
It was the USERs fault !
They decided to simultaniously click both the Left & Right mouse button at the same time. It stop the application, and my Treeview was all over the place.
I found the the Left&Right Mouse click created a LASTKEY()=27.
OK. So I trapped the problem. But how to I change the Lastkey() value ?
Sample
Object : oTrreview Procedure: MouseUp
*** ActiveX Control Event ***
LPARAMETERS button, shift, x, y
IF LASTKEY()==27
???
ENDIF
IF button==2
DO CASE
CASE ALLTRIM(datalog.type)=='EQUIP'
DO core_eq.mpr
RELEASE MENU core_eq
CASE ALLTRIM(datalog.type)=='FOLDER'
DO core_ut.mpr
RELEASE MENU core_ut
ENDCASE
RETURN
ENDIF
I have to release & clear but to no avail.
Am I missing something very basic in my old age ?
Next
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only