From d4b7bc8d6bae8e7004f5b59966e4df2b1b0bbacd Mon Sep 17 00:00:00 2001 From: Viktor Szakats Date: Fri, 12 Oct 2012 17:52:58 +0000 Subject: [PATCH] 2012-10-12 19:52 UTC+0200 Viktor Szakats (harbour syenar.net) * contrib/hbodbc/browodbc.prg * missed two @ commands to convert --- harbour/ChangeLog | 4 ++++ harbour/contrib/hbodbc/browodbc.prg | 5 +++-- 2 files changed, 7 insertions(+), 2 deletions(-) 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 )