Brw:VGoBottom() does not work in xBrowse [SOLVED]

Post Reply
MOISES
Posts: 824
Joined: Wed Aug 22, 2007 10:09 am

Brw:VGoBottom() does not work in xBrowse [SOLVED]

Post by MOISES »

Good morning, Antonio,

To finish solving the problem of xBrowse and SQLRDD, since Nages doesn't answer the messages, I need to be able to move the vertical scroll bar.

However, oBrw:VGoBottom() and SendMsg( VK_DOWN ) do not work. They don't do anything.

Here is an example.

Code: Select all

#Include "FiveWin.Ch"
#include "xbrowse.ch"

#include "hbcompat.ch"



FUNCTION Main()

   use c:\fwh\samples\customer

   TESTBROWSE()

   dbcloseall()


   quit


return nil





function TESTBROWSE()

   local oDlg
   local oBrw

   define dialog oDlg title "Test xBrowse " + cvaltochar(datetime()) from 0,0 to 24,79


    @ 0,0 xbrowse oBrw datasource alias() of oDlg fastedit autocols autosort ;
    SIZE -1, -1 PIXEL

    oBrw:nRowHeight := 25


    oBrw:lAutoappend := .t.
    oBrw:CreateFromCode()


    activate dialog oDlg centered ;
             on init ( oBrw:VGoBottom(), oBrw:oVScroll:SendMsg( VK_DOWN ) )

return nil
 
I'd appreciate your help, since I've been requesting for the fix since December and the customers are extremely pissed off.

Thank you very much. Greetings
Last edited by MOISES on Thu Jun 11, 2020 12:21 pm, edited 1 time in total.
Saludos / Regards,

FWH 20.04, Harbour 3.2.0 dev (r1909261630) y BCC 7.40
User avatar
ukoenig
Posts: 3981
Joined: Wed Dec 19, 2007 6:40 pm
Location: Germany
Contact:

Re: Brw:VGoBottom() does not work in xBrowse

Post by ukoenig »

Just define the needed position from inside the used DBF
and not from a defined xBrowse row-position like :

activate dialog oDlg centered ;
on init DBGOBOTTOM() // seek or anything else

// on init ( oBrw:VGoBottom(), oBrw:oVScroll:SendMsg( VK_DOWN ) )

regards
Uwe :D
Since 1995 ( the first release of FW 1.9 )
i work with FW.
If you have any questions about special functions, maybe i can help.
MOISES
Posts: 824
Joined: Wed Aug 22, 2007 10:09 am

Re: Brw:VGoBottom() does not work in xBrowse

Post by MOISES »

Hi,

Thank you for your reply.

But I need to force such behaviour in order to get xBrowse work under SQLRDD, as this is the failing issue.
Saludos / Regards,

FWH 20.04, Harbour 3.2.0 dev (r1909261630) y BCC 7.40
MOISES
Posts: 824
Joined: Wed Aug 22, 2007 10:09 am

Re: Brw:VGoBottom() does not work in xBrowse [solved]

Post by MOISES »

Thanks to Cristobal´s help, this is the fix:

Code: Select all


METHOD KeyCount() CLASS TXBrowse

   TRY
      if Empty( ::aFilter )
         ::nLen   := Eval( ::bKeyCount )
      else
         ::nLen   := Len( ::aFilter )
      endif
      ::lClosed   := .f.

   CATCH
      ::nLen      := 0
      ::lClosed   := .t.
   END


   if ::oVScroll != nil
      ::VSetRange( 1, ::nLen )

      if !::lSqlRDD
        ::VUpdatePos()
      endif
   endif

return ::nLen


 
Saludos / Regards,

FWH 20.04, Harbour 3.2.0 dev (r1909261630) y BCC 7.40
User avatar
nageswaragunupudi
Posts: 8017
Joined: Sun Nov 19, 2006 5:22 am
Location: India
Contact:

Re: Brw:VGoBottom() does not work in xBrowse [SOLVED]

Post by nageswaragunupudi »

There is no need to use this method directly.

http://forums.fivetechsupport.com/viewt ... 58#p233158
Regards

G. N. Rao.
Hyderabad, India
Post Reply