fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

2008-08-06 22:30 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)

Browse Source 
* harbour/source/rtl/achoice.prg
    + Implemented mouse operations as follows.
      CASE ( nKey == K_MWFORWARD )
         Keyboard( Chr( K_UP ) )
      CASE ( nKey == K_MWBACKWARD )
         Keyboard( Chr( K_DOWN ) )
      CASE nKey == K_LDBLCLK
         Keyboard( Chr( K_ENTER ) )
This commit is contained in:
Pritpal Bedi
2008-08-07 05:34:37 +00:00
parent 9990488df7
commit 94e31c94d2
2 changed files with 20 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
harbour/ChangeLog
View File

@@ -8,6 +8,16 @@
2008-12-31 13:59 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2008-08-06 22:30 UTC-0800 Pritpal Bedi (pritpal@vouchcac.com)
* harbour/source/rtl/achoice.prg
+ Implemented mouse operations as follows.
CASE ( nKey == K_MWFORWARD )
Keyboard( Chr( K_UP ) )
CASE ( nKey == K_MWBACKWARD )
Keyboard( Chr( K_DOWN ) )
CASE nKey == K_LDBLCLK
Keyboard( Chr( K_ENTER ) )
2008-08-07 05:05 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/include/hbdefs.h
! fixed default printf length modifier for long long integer values

11
harbour/source/rtl/achoice.prg
View File

@@ -110,7 +110,7 @@ FUNCTION AChoice( nTop, nLeft, nBottom, nRight, acItems, xSelect, xUserFunc, nPo
DO WHILE !lFinished
IF nMode != AC_GOTO .AND. nMode != AC_NOITEM
nKey := Inkey( 0 )
nKey := Inkey( 0 )
nMode := AC_IDLE
ENDIF
@@ -159,6 +159,15 @@ FUNCTION AChoice( nTop, nLeft, nBottom, nRight, acItems, xSelect, xUserFunc, nPo
nPos := 0
lFinished := .T.
CASE ( nKey == K_MWFORWARD )
Keyboard( Chr( K_UP ) )
CASE ( nKey == K_MWBACKWARD )
Keyboard( Chr( K_DOWN ) )
CASE nKey == K_LDBLCLK
Keyboard( Chr( K_ENTER ) )
CASE nKey == K_UP
IF nPos == nFrstItem