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

2001-09-27 14:33 UTC+0100 Viktor Szakats <viktor.szakats@syenar.hu>

Browse Source
This commit is contained in:
Viktor Szakats
2001-09-27 12:44:36 +00:00
parent d7fb8f5c4f
commit a99269cbb4
4 changed files with 27 additions and 15 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
harbour/ChangeLog
View File

@@ -1,3 +1,15 @@
2001-09-27 14:33 UTC+0100 Viktor Szakats <viktor.szakats@syenar.hu>
* source/rtl/memofile.c
! MEMOWRIT() - Restored CA-Cl*pper compatibility.
* source/rtl/dbedit.prg
! DBEDIT() - Restored CA-Cl*pper compatibility.
* source/rtl/tbrowse.prg
! Fixed AutoLite/Hilite/DeHilite() support. Now DBEDIT() works
as expected.
2001-09-27 01:52 GMT-3 Horacio Roldan <harbour_ar@yahoo.com.ar>
* source/rtl/memofile.c
* Fixed: MemoWrit added an EOF (0x1A) everytime

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

@@ -126,7 +126,7 @@ FUNCTION dbEdit(;
oBrowse:HeadSep := iif( ISCHARACTER( xHeadingSeparators ), xHeadingSeparators, Chr( 205 ) + Chr( 209 ) + Chr( 205 ) )
oBrowse:ColSep := iif( ISCHARACTER( xColumnSeparators ), xColumnSeparators, " " + Chr( 179 ) + " " )
oBrowse:FootSep := iif( ISCHARACTER( xFootingSeparators ), xFootingSeparators, "" )
oBrowse:AutoLite := .t. //don't know why it was .F. (if it break something...)
oBrowse:AutoLite := .F. /* Set to .F. just like in CA-Cl*pper. [vszakats] */
// Calculate the number of columns

8
harbour/source/rtl/memofile.c
View File

@@ -69,6 +69,7 @@ HB_FUNC( MEMOREAD )
if( fhnd != FS_ERROR )
{
ULONG ulSize = hb_fsSeek( fhnd, 0, FS_END );
if( ulSize != 0 )
{
BYTE * pbyBuffer;
@@ -79,8 +80,7 @@ HB_FUNC( MEMOREAD )
{
BYTE byEOF = HB_CHAR_NUL;
hb_fsSeek( fhnd, ulSize-1, FS_SET );
hb_fsSeek( fhnd, -1, FS_END );
hb_fsRead( fhnd, &byEOF, sizeof( BYTE ) );
if( byEOF == HB_CHAR_EOF )
@@ -128,8 +128,8 @@ HB_FUNC( MEMOWRIT )
#if ! defined(OS_UNIX_COMPATIBLE)
{
BYTE byEOF = HB_CHAR_EOF;
if ( (ulSize == 0) || ( (( BYTE * ) hb_itemGetCPtr( pString ))[ulSize-1] != HB_CHAR_EOF) )
hb_fsWrite( fhnd, &byEOF, sizeof( BYTE ) );
hb_fsWrite( fhnd, &byEOF, sizeof( BYTE ) );
}
#endif

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

@@ -638,13 +638,7 @@ METHOD Hilite() CLASS TBrowse
// Start of cell
SetPos( nRow, ::aColumns[ ::ColPos ]:ColPos )
if ::AutoLite
cType := ::DispCell(::ColPos, CLR_ENHANCED)
else
cType := ::DispCell(::ColPos, CLR_STANDARD)
endif
cType := ::DispCell(::ColPos, CLR_ENHANCED)
// Put cursor back on first char of cell value
SetPos(nRow, ::aColumns[ ::ColPos ]:ColPos + iif(cType == "L", ::aColumns[::ColPos]:Width / 2, 0 ))
@@ -1037,7 +1031,9 @@ METHOD Stabilize() CLASS TBrowse
::HitTop := ::lHitTop
::HitBottom := ::lHitBottom
::Hilite()
if ::AutoLite
::Hilite()
endif
SetCursor(nOldCursor)
::stable := .T.
@@ -1046,7 +1042,9 @@ METHOD Stabilize() CLASS TBrowse
else
/* NOTE: DBU relies upon current cell being reHilited() even if already stable */
::Hilite()
if ::AutoLite
::Hilite()
endif
SetCursor(nOldCursor)
return .T.
@@ -1064,7 +1062,9 @@ METHOD Moved() CLASS TBrowse
::lHitTop := .F.
::lHitBottom := .F.
::DeHilite()
if ::AutoLite
::DeHilite()
endif
::stable := .F.
endif