* FastDoEvents.prg 30-Sep-98 > >* this workaround speeds up a DoEvent call > >local lnRow, lnCol, lcWindow > >lcWindow = wontop() >lnRow = mrow( lcWindow ) >lnCol = mcol( lcWindow ) >if ( lnRow > 0 ) and ( lnCol > 0 ) > * mouse still within VFP window, so it's ok to mouse > mouse at mrow(), mcol() window (lcWindow) >endif > >DoEvents()>
Procedure DoEventsFast local nRow, nCol, cWindow cWindow= wontop() nRow= mrow(m.cWindow) nCol= mcol(m.cWindow) if m.nRow>0 and m.nCol>0 * mouse still inside VFP window, so ok to mouse if empty(m.cWindow) mouse at m.nRow, m.nCol && window (m.cWindow) else mouse at m.nRow, m.nCol window (m.cWindow) endif endif doevents()Now I've use m.nRow instead of another call to MROW(). Is that bad or good :-)