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

2001-11-04 15:54 GMT+1 Maurilio Longo <maurilio.longo@libero.it>

Browse Source 
* source/rtl/tbrowse.prg
     ! ::Hilite() cursor positioning was wrong for TBrowsers without heading
This commit is contained in:
Maurilio Longo
2001-11-04 14:46:10 +00:00
parent bafe365dbb
commit 381764ff75
2 changed files with 5 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -1,3 +1,7 @@
2001-11-04 15:54 GMT+1 Maurilio Longo <maurilio.longo@libero.it>
* source/rtl/tbrowse.prg
! ::Hilite() cursor positioning was wrong for TBrowsers without heading
2001-11-04 13:56 UTC+0100 Viktor Szakats <viktor.szakats@syenar.hu>
* bin/bld.bat

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

@@ -633,7 +633,7 @@ METHOD Hilite() CLASS TBrowse
local nRow
local cType
nRow := ::nTop + ::RowPos + iif(::lHeaders, ::nHeaderHeight, 1) + iif(Empty(::HeadSep), 0, 1) - 1
nRow := ::nTop + ::RowPos + iif(::lHeaders, ::nHeaderHeight, 0) + iif(Empty(::HeadSep), 0, 1) - 1
// Start of cell
SetPos( nRow, ::aColumns[ ::ColPos ]:ColPos )