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

2010-03-21 20:30 UTC+0100 Xavi (jarabal/at/gmail.com)

Browse Source 
* harbour/src/rtl/teditor.prg
    ! Fixing MemoEdit parameter calculation: nTextBuffRow, nWindowColumn.

      Procedure Main()
         Cls
         // Put 5 in the 5 position and next BS to change.
         ? MemoEdit( "123",,, MaxRow(), MaxCol(),,,,,, 5 )
         Wait
This commit is contained in:
Xavi
2010-03-21 19:32:50 +00:00
parent 754d04a1f2
commit 3bc818f6e4
2 changed files with 12 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

10
harbour/ChangeLog
View File

@@ -17,6 +17,16 @@
past entries belonging to author(s): Viktor Szakats.
*/
2010-03-21 20:30 UTC+0100 Xavi (jarabal/at/gmail.com)
* harbour/src/rtl/teditor.prg
! Fixing MemoEdit parameter calculation: nTextBuffRow, nWindowColumn.
Procedure Main()
Cls
// Put 5 in the 5 position and next BS to change.
? MemoEdit( "123",,, MaxRow(), MaxCol(),,,,,, 5 )
Wait
2010-03-21 20:00 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/src/macro/macro.y
+ added support for

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

@@ -1019,10 +1019,10 @@ METHOD New( cString, nTop, nLeft, nBottom, nRight, lEditMode, nLineLength, nTabS
nWndCol := Max( 0, nWndCol )
::nFirstRow := Max( 1, nTextRow - nWndRow )
::nFirstCol := Max( 1, nTextCol - nWndCol )
::nFirstCol := Max( 1, nTextCol - nWndCol + 1 )
::nRow := Max( 1, Min( nTextRow, ::naTextLen ) )
::nCol := Max( 1, Min( Len( ::aText[ ::nRow ]:cText ), nTextCol + 1 ) )
::nCol := Max( 1, nTextCol + 1 )
// extra sanitization over max bounds
IF ::nFirstRow > ::naTextLen