9687850865
* (all files)
* stripped svn header
* minor cleanups
; use following command to find out the history of files:
git log
git log --follow
git blame
git annotate
230 lines
4.5 KiB
Plaintext
230 lines
4.5 KiB
Plaintext
|
|
THREAD STATIC t_lCrsState := .F.
|
|
THREAD STATIC t_lMInit := .F.
|
|
|
|
FUNCTION ft_MDblClk( nClick, nButton, nInterval, nRow, nCol, nStart )
|
|
|
|
LOCAL nVert, nHorz // local row and col coordinates
|
|
LOCAL lDouble // double click actually occurred
|
|
LOCAL lDone // loop flag
|
|
LOCAL nPrs // number of presses which occurred
|
|
|
|
__defaultNIL( @nClick, 1 )
|
|
__defaultNIL( @nButton, 0 )
|
|
__defaultNIL( @nInterval, 0.5 )
|
|
__defaultNIL( @nRow, MRow() )
|
|
__defaultNIL( @nCol, MCol() )
|
|
__defaultNIL( @nStart, Seconds() )
|
|
|
|
nVert := nRow
|
|
nHorz := nCol
|
|
lDouble := lDone := ( nClick == 0 )
|
|
|
|
// Wait for first press if requested
|
|
|
|
DO WHILE ! lDone
|
|
|
|
ft_MButPrs( nButton, @nPrs, @nVert, @nHorz )
|
|
nVert := Int( nVert / 8 )
|
|
nHorz := Int( nHorz / 8 )
|
|
|
|
lDouble := ( nPrs > 0 )
|
|
ldone := Seconds() - nStart >= nInterval .OR. lDouble
|
|
|
|
ENDDO
|
|
|
|
// if we have not moved then keep the preliminary double click setting
|
|
|
|
lDouble := lDouble .AND. ( nVert == nRow .AND. nHorz == nCol )
|
|
|
|
// change start time if we waited for first click. nInterval is the
|
|
// maximum time between clicks not the total time for two clicks if
|
|
// requested.
|
|
|
|
IF nClick > 0
|
|
nStart := Seconds()
|
|
ENDIF
|
|
|
|
// If we have fulfilled all of the requirements then wait for second click
|
|
|
|
IF lDouble
|
|
|
|
lDouble := lDone := .F.
|
|
|
|
DO WHILE ! lDone
|
|
|
|
ft_MButPrs( nButton, @nPrs, @nVert, @nHorz )
|
|
nVert := Int( nVert / 8 )
|
|
nHorz := Int( nHorz / 8 )
|
|
|
|
lDouble := ( nPrs > 0 )
|
|
lDone := Seconds() - nStart >= nInterval .OR. lDouble
|
|
|
|
ENDDO
|
|
|
|
// make sure we haven't moved
|
|
lDouble := lDouble .AND. nVert == nRow .AND. nHorz == nCol
|
|
|
|
ENDIF
|
|
|
|
RETURN lDouble
|
|
|
|
FUNCTION ft_MInRegion( nTR, nLC, nBR, nRC )
|
|
|
|
RETURN ;
|
|
MRow() >= nTR .AND. MRow() <= nBR .AND. ;
|
|
MCol() >= nLC .AND. MCol() <= nRC
|
|
|
|
FUNCTION ft_MMickeys( /* @ */ nX, /* @ */ nY )
|
|
|
|
nX := MRow() * 8
|
|
nY := MCol() * 8
|
|
|
|
RETURN NIL
|
|
|
|
FUNCTION ft_MGetPos( /* @ */ nX, /* @ */ nY )
|
|
|
|
nX := MRow() * 8
|
|
nY := MCol() * 8
|
|
|
|
RETURN ;
|
|
iif( MLeftDown(), 1, 0 ) + ;
|
|
iif( MRightDown(), 2, 0 ) + ;
|
|
iif( hb_MMiddleDown(), 4, 0 )
|
|
|
|
FUNCTION ft_MSetPos( nX, nY )
|
|
|
|
RETURN MSetPos( nX / 8, nY / 8 )
|
|
|
|
FUNCTION ft_MGetCoord( /* @ */ nX, /* @ */ nY )
|
|
|
|
nX := MRow()
|
|
nY := MCol()
|
|
|
|
RETURN ;
|
|
iif( MLeftDown(), 1, 0 ) + ;
|
|
iif( MRightDown(), 2, 0 ) + ;
|
|
iif( hb_MMiddleDown(), 4, 0 )
|
|
|
|
FUNCTION ft_MSetCoord( nX, nY )
|
|
|
|
RETURN MSetPos( nX, nY )
|
|
|
|
FUNCTION ft_MSetSens( nHoriz, nVert, nDouble )
|
|
|
|
LOCAL nCurHoriz, nCurVert, nCurDouble
|
|
|
|
// Get current values
|
|
|
|
ft_MGetSens( @nCurHoriz, @nCurVert, @nCurDouble )
|
|
|
|
hb_default( @nHoriz, nCurHoriz )
|
|
hb_default( @nVert, nCurVert )
|
|
hb_default( @nDouble, nCurDouble )
|
|
|
|
// Fill the registers
|
|
_ft_MSetSensitive( nHoriz, nVert, nDouble )
|
|
|
|
RETURN NIL
|
|
|
|
FUNCTION ft_MVersion( /* @ */ nMinor, /* @ */ nType, /* @ */ nIRQ )
|
|
|
|
nMinor := 20
|
|
nType := 2 /* serial */
|
|
nIRQ := 3
|
|
|
|
RETURN 8
|
|
|
|
FUNCTION ft_MInit()
|
|
|
|
// If not previously initialized then try
|
|
|
|
IF ! t_lMInit
|
|
t_lMInit := ( ft_MReset() != 0 )
|
|
ELSE
|
|
MSetBounds()
|
|
ENDIF
|
|
|
|
RETURN t_lMInit
|
|
|
|
FUNCTION ft_MReset()
|
|
|
|
t_lCrsState := .F. // Cursor is off after reset
|
|
MHide()
|
|
MSetBounds()
|
|
MSetPos( ( MaxRow() + 1 ) / 2, ( MaxCol() + 1 ) / 2 )
|
|
|
|
RETURN iif( MPresent(), -1, 0 )
|
|
|
|
FUNCTION ft_MCursor( lState )
|
|
|
|
LOCAL lSavState := t_lCrsState
|
|
|
|
IF HB_ISLOGICAL( lState )
|
|
IF ( t_lCrsState := lState )
|
|
MShow()
|
|
ELSE
|
|
MHide()
|
|
ENDIF
|
|
ENDIF
|
|
|
|
RETURN lSavState
|
|
|
|
FUNCTION ft_MShowCrs()
|
|
|
|
MShow()
|
|
|
|
t_lCrsState := .T.
|
|
|
|
RETURN NIL // no output from function
|
|
|
|
FUNCTION ft_MHideCrs() // decrement internal cursor flag and hide cursor
|
|
|
|
MHide()
|
|
|
|
t_lCrsState := .F.
|
|
|
|
RETURN NIL // no output from function
|
|
|
|
FUNCTION ft_MXLimit( nMin, nMax )
|
|
|
|
LOCAL nTop, nBottom
|
|
|
|
hb_MGetBounds( @nTop,, @nBottom )
|
|
MSetBounds( nTop, nMin, nBottom, nMax )
|
|
|
|
RETURN NIL
|
|
|
|
FUNCTION ft_MYLimit( nMin, nMax )
|
|
|
|
LOCAL nLeft, nRight
|
|
|
|
hb_MGetBounds(, @nLeft,, @nRight )
|
|
MSetBounds( nMin, nLeft, nMax, nRight )
|
|
|
|
RETURN NIL
|
|
|
|
/* NOTE: This is what original NFLib did, returned
|
|
vertical position (row) as X and
|
|
horizontal position (col) as Y. [vszakats] */
|
|
|
|
FUNCTION ft_MGetX()
|
|
|
|
RETURN MRow()
|
|
|
|
FUNCTION ft_MGetY()
|
|
|
|
RETURN MCol()
|
|
|
|
FUNCTION ft_MGetPage()
|
|
|
|
RETURN 0
|
|
|
|
/* NOTE: Page is ignored in Harbour */
|
|
|
|
FUNCTION ft_MSetPage( nPage )
|
|
|
|
HB_SYMBOL_UNUSED( nPage )
|
|
|
|
RETURN NIL
|