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

2007-01-10 18:05 UTC+0800 Pritpal Bedi (pritpal@vouchcac.com)

Browse Source 
* source/rtl/teditor.prg
    ! Fixed [ <nWndRow> scrolls past ::naTextLen ]
This commit is contained in:
Pritpal Bedi
2008-01-11 01:52:24 +00:00
parent 77f8c8d957
commit d89767bae9
2 changed files with 8 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -8,6 +8,10 @@
2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2007-01-10 18:05 UTC+0800 Pritpal Bedi (pritpal@vouchcac.com)
* source/rtl/teditor.prg
! Fixed [ <nWndRow> scrolls past ::naTextLen ]
2007-01-10 17:50 UTC+0800 Pritpal Bedi (pritpal@vouchcac.com)
* source/rtl/memoedit.prg
* source/rtl/teditor.prg

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

@@ -1033,6 +1033,10 @@ METHOD New( cString, nTop, nLeft, nBottom, nRight, lEditMode, nLineLength, nTabS
::nFirstCol := ::LineLen( ::nRow ) + 1
ENDIF
if ( ::nFirstRow + nWndRow ) > ::naTextLen
do while ( ::nFirstRow + ( --nWndRow ) ) > ::naTextLen
enddo
endif
// Empty area of screen which will hold editor window
Scroll( nTop, nLeft, nBottom, nRight )