diff --git a/harbour/ChangeLog b/harbour/ChangeLog index a4842eb2f8..f3d76febe8 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -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 diff --git a/harbour/contrib/hbodbc/browodbc.prg b/harbour/contrib/hbodbc/browodbc.prg index e1c946d7b8..2199e0843e 100644 --- a/harbour/contrib/hbodbc/browodbc.prg +++ b/harbour/contrib/hbodbc/browodbc.prg @@ -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 )