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

2012-10-12 19:52 UTC+0200 Viktor Szakats (harbour syenar.net)

Browse Source 
* contrib/hbodbc/browodbc.prg
    * missed two @ commands to convert
This commit is contained in:
Viktor Szakats
2012-10-12 17:52:58 +00:00
parent 1463430f4c
commit d4b7bc8d6b
2 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -16,6 +16,10 @@
The license applies to all entries newer than 2009-04-28.
*/
2012-10-12 19:52 UTC+0200 Viktor Szakats (harbour syenar.net)
* contrib/hbodbc/browodbc.prg
* missed two @ commands to convert
2012-10-12 18:57 UTC+0200 Viktor Szakats (harbour syenar.net)
* contrib/hbnf/aredit.prg
* contrib/hbnf/blink.prg

5
harbour/contrib/hbodbc/browodbc.prg
View File

@@ -58,6 +58,7 @@
* and fieldbl.prg. Only minor changes were needed to adapt them to ODBC.
*/
#include "box.ch"
#include "inkey.ch"
#include "setcurs.ch"
@@ -86,8 +87,8 @@ FUNCTION BrowseODBC( nTop, nLeft, nBottom, nRight, oDataSource )
nOldCursor := SetCursor( SC_NONE )
cOldScreen := SaveScreen( nTop, nLeft, nBottom, nRight )
@ nTop, nLeft TO nBottom, nRight
@ nTop + 1, nLeft + 1 SAY Space( nRight - nLeft - 1 )
hb_DispBox( nTop, nLeft, nBottom, nRight, HB_B_SINGLE_UNI )
hb_DispOutAt( nTop + 1, nLeft + 1, Space( nRight - nLeft - 1 ) )
oBrw := TBrowseNew( nTop + 2, nLeft + 1, nBottom - 1, nRight - 1 )