MBRZMOVE() Short: ------ MBRZMOVE() Checks for mouse click at and moves to Tbrowse row/col Returns: -------- <lClicked> => If the mouse clicked on a new Tbrowse Row/Column. Syntax: ------- MBRZMOVE(oTBrowse, nMouseRow, nMouseCol,[nTop,nLeft,nBottom,nRight]) Description: ------------ Determines if the mouse coordinates <nMouseRow> and <nMouseCol> are on a new Tbrowse row/column, and causes the Tbrowse cursor to move there. [nTop,nLeft,nBottom,nRight] determine the Tbrowse 'live' area - the area exclusive of headers, footers, seperators etc. MBRZMOVE() can determine this on its own, but it is much faster to pass these coordinates if you can. Examples: --------- from MCHOICE(): case nLastKey == K_MOUSELEFT do case case ISMOUSEAT(nMouseR, nMouseC, nBottom,nRight-3, nBottom, nRight-2) oTb:down() IFMOUSEHD({||oTb:down()},oTb) case MBRZMOVE(oTb,nMouseR, nMouseC,nTop+1,nLeft+1,nBottom-1,nRight-1) keyboard chr(K_ENTER) case MBRZMOVE(oTb,nMouseR, nMouseC) EXIT endcase endcase Source: ------- S_MOOSE.PRG
Pingback: SP Event Functions | Viva Clipper !
Pingback: SP Functions | Viva Clipper !