Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
MouseDown on Grid
Message
From
14/06/2022 07:24:12
Lutz Scheffler (Online)
Lutz Scheffler Software Ingenieurbüro
Dresden, Germany
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
Object Oriented Programming
Title:
MouseDown on Grid
Miscellaneous
Thread ID:
01684512
Message ID:
01684512
Views:
97
Hi All,

I have an oddness in grids events.

The event MousDown is called by the system, but code in MousDown is not executed in this moment but later on.

My MousDown looks like
LPARAMETERS ;
 tnButton,;
 tnShift,;
 tnXCoord,;
 tnYCoord,;
 toColumn

DEBUGOUT PROGRAM(),' ',ALIAS(),' ',RECNO()
If I MouseClick I got EventLog / Debuglog
46736,246, frmnutzer.pgfmain.page1.cntlist.grdlistgrid.MouseDown(1,0, 2,0, 461,0, 208,0)
46736,246, frmnutzer.pgfmain.page1.cntlist.grdlistgrid.BeforeRowColChange(3,0)
46736,246, frmnutzer.pgfmain.page1.cntlist.grdlistgrid.column3.text1.When()
46736,246, frmnutzer.pgfmain.page1.cntlist.grdlistgrid.column3.text1.Valid()
46736,249, frmnutzer.pgfmain.page1.cntlist.grdlistgrid.column3.text1.Valid()
46736,249, frmnutzer.pgfmain.page1.cntlist.grdlistgrid.column3.text1.When()
46736,254, frmnutzer.pgfmain.page1.cntlist.grdlistgrid.AfterRowColChange(3,0)
46736,262, frmnutzer.pgfmain.page1.cntlist.grdlistgrid.column3.text1.MouseDown(1,0, 2,0, 461,0, 208,0)
FRMNUTZER.PGFMAIN.PAGE1.CNTLIST.GRDLISTGRID.MOUSEDOWN   CURMITARBEITER_EDIT           16,0
The last line is the DEBUGOUT of MouseDown

Yeah, nice, I would like to know if the mouse is pressed with SHIFT or CTRL, if I reach BeforeRowColChange...

Could somebody please check that he got this odd event behaviour? Does somebody have an idea how to get the code running the right moment?

Thanks
Lutz
Words are given to man to enable him to conceal his true feelings.
Charles Maurice de Talleyrand-Périgord

Weeks of programming can save you hours of planning.

Off

There is no place like [::1]
Next
Reply
Map
View

Click here to load this message in the networking platform