From e3160e7258a5485264a183c52e925cdbaa8e2969 Mon Sep 17 00:00:00 2001 From: Pritpal Bedi Date: Fri, 8 Aug 2008 00:17:57 +0000 Subject: [PATCH] 2008-08-07 17:20 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com) * harbour/source/rtl/achoice.prg - Removed K_MOUSEMOVE functionality. --- harbour/ChangeLog | 4 ++++ harbour/source/rtl/achoice.prg | 10 ---------- 2 files changed, 4 insertions(+), 10 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index d23c137825..93438726f1 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -8,6 +8,10 @@ 2008-12-31 13:59 UTC+0100 Foo Bar */ +2008-08-07 17:20 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com) + * harbour/source/rtl/achoice.prg + - Removed K_MOUSEMOVE functionality. + 2008-08-07 16:35 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com) * harbour/source/rtl/achoice.prg + Added functionality for K_MOUSEMOVE. diff --git a/harbour/source/rtl/achoice.prg b/harbour/source/rtl/achoice.prg index f0c170ff7a..2e1a7fc0c7 100644 --- a/harbour/source/rtl/achoice.prg +++ b/harbour/source/rtl/achoice.prg @@ -160,16 +160,6 @@ FUNCTION AChoice( nTop, nLeft, nBottom, nRight, acItems, xSelect, xUserFunc, nPo nPos := 0 lFinished := .T. - CASE nKey == K_MOUSEMOVE - nAux := HitTest( nTop, nLeft, nBottom, nRight, MRow(), MCol() ) - IF nAux != 0 .AND. ( nNewPos := nAtTop + nAux - 1 ) <= nItems .AND. nNewPos != nPos - IF Eval( bSelect, alSelect[ nNewPos ] ) - DispLine( acItems[ nPos ], nTop + ( nPos - nAtTop ), nLeft, Eval( bSelect, alSelect[ nPos ] ), .F., nNumCols ) - nPos := nNewPos - DispLine( acItems[ nPos ], nTop + ( nPos - nAtTop ), nLeft, Eval( bSelect, alSelect[ nPos ] ), .T., nNumCols ) - ENDIF - ENDIF - CASE nKey == K_LDBLCLK .OR. nKey == K_LBUTTONDOWN nAux := HitTest( nTop, nLeft, nBottom, nRight, MRow(), MCol() ) IF nAux != 0 .AND. ( nNewPos := nAtTop + nAux - 1 ) <= nItems