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

2001-02-09 23:46 GMT+1 Maurilio Longo <maurilio.longo@libero.it>

Browse Source 
* source/rtl/tbrowse.prg
     ! fixed ::Moved() method which was calling ::Dehilite() even if TBrowse was already
     unstable causing wrong painting of current row
This commit is contained in:
Maurilio Longo
2001-02-09 22:48:35 +00:00
parent 024ccdf51b
commit 93ea3d7623
2 changed files with 16 additions and 5 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
harbour/ChangeLog
View File

@@ -1,3 +1,8 @@
2001-02-09 23:46 GMT+1 Maurilio Longo <maurilio.longo@libero.it>
* source/rtl/tbrowse.prg
! fixed ::Moved() method which was calling ::Dehilite() even if TBrowse was already
unstable causing wrong painting of current row
2001-02-09 11:25 UTC-0800 Ron Pinkas <ron@profit-master.com>
* harbour/source/debug/debugger.prg
! Fixesd ValType( &cColor ) to Type( cColor )

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

@@ -801,6 +801,9 @@ METHOD Stabilize() CLASS TBrowse
if (::nNewRowPos + nRecsSkipped >= 1) .AND. (::nNewRowPos + nRecsSkipped <= ::RowCount)
::nNewRowPos += nRecsSkipped
::nLastRetrieved := ::nNewRowPos
// This is needed since present TBrowse has no cache, so I need to repaint current row
// rereading it from data source and to force rereading from data source I have to mark
// row as invalid
::aRedraw[::nNewRowPos] := .T.
else
@@ -980,12 +983,15 @@ return .F.
// Movement keys cause TBrowse to become unstable.
METHOD Moved() CLASS TBrowse
// Internal flags used to set ::HitTop/Bottom during next stabilization
::lHitTop := .F.
::lHitBottom := .F.
// No need to Dehilite() current cell more than once
if ::stable
// Internal flags used to set ::HitTop/Bottom during next stabilization
::lHitTop := .F.
::lHitBottom := .F.
::DeHilite()
::stable := .F.
::DeHilite()
::stable := .F.
endif
return Self