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

2008-05-27 03:08 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

Browse Source 
* harbour/source/rtl/tbrowse.prg
    ! fixed cursor positioning when it's moved faster then record
      buffer refreshed. It should also fix flickering problem reported
      by Viktor - please test.
This commit is contained in:
Przemyslaw Czerpak
2008-05-27 01:08:45 +00:00
parent 3e913b6607
commit 8fe45da932
2 changed files with 8 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
harbour/ChangeLog
View File

@@ -8,6 +8,12 @@
2008-12-31 13:59 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2008-05-27 03:08 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/source/rtl/tbrowse.prg
! fixed cursor positioning when it's moved faster then record
buffer refreshed. It should also fix flickering problem reported
by Viktor - please test.
2008-05-26 16:59 UTC+0100 Viktor Szakats (harbour.01 syenar hu)
* common.mak
* source/hbpcre/Makefile

4
harbour/source/rtl/tbrowse.prg
View File

@@ -691,11 +691,11 @@ METHOD setPosition() CLASS TBROWSE
IF nNewPos < 1
IF ::nMoveOffset < -1
nMoveOffset -= ::nBufferPos - 1
nMoveOffset -= ::nRowPos - 1
ENDIF
ELSEIF nNewPos > ::nLastRow
IF ::nMoveOffset > 1
nMoveOffset += ::nLastRow - ::nBufferPos
nMoveOffset += ::nLastRow - ::nRowPos
ENDIF
ELSEIF lSetPos
::nRowPos := nNewPos