From 59b05913ea0878c03e34edbb33e2a61127e7c381 Mon Sep 17 00:00:00 2001 From: Przemyslaw Czerpak Date: Tue, 8 Feb 2011 13:36:59 +0000 Subject: [PATCH] 2011-02-08 14:36 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl) * harbour/src/rtl/tbrowse.prg ! set default minimal number of visible rows to ::rowpos() when ::configure() method is called - clipper compatibility fix. --- harbour/ChangeLog | 5 +++++ harbour/src/rtl/tbrowse.prg | 2 ++ 2 files changed, 7 insertions(+) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 4eae63eeee..c8d873fe5e 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -16,6 +16,11 @@ The license applies to all entries newer than 2009-04-28. */ +2011-02-08 14:36 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl) + * harbour/src/rtl/tbrowse.prg + ! set default minimal number of visible rows to ::rowpos() when + ::configure() method is called - clipper compatibility fix. + 2011-02-08 13:39 UTC+0100 Viktor Szakats (harbour.01 syenar.hu) * contrib/hbnetio/utils/hbnetio/netiocon.prg + Accepting notification events coming from the server diff --git a/harbour/src/rtl/tbrowse.prg b/harbour/src/rtl/tbrowse.prg index 69c40b069c..45c65402ff 100644 --- a/harbour/src/rtl/tbrowse.prg +++ b/harbour/src/rtl/tbrowse.prg @@ -1469,6 +1469,8 @@ METHOD doConfigure() CLASS TBROWSE ::nRowPos := 1 ENDIF + ::nBufferPos := ::nRowPos + RETURN Self