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

*** empty log message ***

Browse Source
This commit is contained in:
Antonio Linares
1999-08-16 10:49:48 +00:00
parent 652a2850b0
commit 13f2c4a828
2 changed files with 8 additions and 47 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
harbour/ChangeLog
View File

@@ -1,3 +1,11 @@
19990816-12:39 GMT+1 Antonio Linares <alinares@fivetech.com>
+ source/rtl/browdb.prg
* source code for TBrowseDb()
* source/rtl/tbrowse.prg
* removed source code for TBrowseDb()
* harbour/makefile.b32
* browdb module added.
19990816-12:03 GMT+1 Antonio Linares <alinares@fivetech.com>
* source/vm/hvm.c
* Enhanced ProcName() returned information.

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

@@ -576,50 +576,3 @@ function TBrowseNew( nTop, nLeft, nBottom, nRight )
return oBrw
function TBrowseDb( nTop, nLeft, nBott, nRight )
local oTb := TBrowseNew( nTop, nLeft, nBott, nRight )
oTb:SkipBlock := { | n | TBSkip( n ) }
oTb:GoTopBlock := { || DbGoTop() }
oTb:GoBottomBlock := {|| DbGoBottom() }
Return oTb
static function TbSkip( nRecs )
local nSkipped := 0
if _LastRec() != 0
if nRecs == 0
DbSkip( 0 )
elseif nRecs > 0 .and. _Recno() != _LastRec() + 1
while nSkipped < nRecs
DbSkip( 1 )
if Eof()
DbSkip( -1 )
exit
endif
++nSkipped
end
elseif nRecs < 0
while nSkipped > nRecs
DbSkip( -1 )
if Bof()
exit
endif
--nSkipped
end
endif
endif
return nSkipped
static function _LastRec() // Waiting for those function to become available
return 0
static function _RecNo() // Waiting for those function to become available
return 0