From 8fe45da932fb9c4e5f6f1303c0c45a951532af33 Mon Sep 17 00:00:00 2001 From: Przemyslaw Czerpak Date: Tue, 27 May 2008 01:08:45 +0000 Subject: [PATCH] 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. --- harbour/ChangeLog | 6 ++++++ harbour/source/rtl/tbrowse.prg | 4 ++-- 2 files changed, 8 insertions(+), 2 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 4aa723084a..c272a026bf 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -8,6 +8,12 @@ 2008-12-31 13:59 UTC+0100 Foo Bar */ +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 diff --git a/harbour/source/rtl/tbrowse.prg b/harbour/source/rtl/tbrowse.prg index aa9f00124a..91d8dddeaf 100644 --- a/harbour/source/rtl/tbrowse.prg +++ b/harbour/source/rtl/tbrowse.prg @@ -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