FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour XBrowse: a problem with GoRight() and GoToCol()
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
XBrowse: a problem with GoRight() and GoToCol()
Posted: Thu Nov 05, 2020 09:56 AM

Using GoRight() and GoToCol() methods I noticed that the first columns of the browse are sometimes shifted left and no more visible even if there are plenty of space for them.

Any workaround?

EMG

Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
Re: XBrowse: a problem with GoRight() and GoToCol()
Posted: Fri Nov 06, 2020 09:57 AM
This is a sample of the problem:

Code (fw): Select all Collapse
#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oWnd, oBrw

    USE CUSTOMER

    DEFINE WINDOW oWnd

    @ 0, 0 XBROWSE oBrw ALIAS "CUSTOMER"

    oBrw:CreateFromCode()

    ACTIVATE WINDOW oWnd;
             ON INIT ( oWnd:SetSize( 850, 600 ),;
                       oWnd:oClient := oBrw,;
                       oBrw:GoToCol( 4 ) )

    CLOSE

    RETURN NIL


EMG
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
Re: XBrowse: a problem with GoRight() and GoToCol()
Posted: Fri Nov 06, 2020 01:28 PM
The problem is not there using dialogs:

Code (fw): Select all Collapse
#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oWnd, oBrw

    USE CUSTOMER

    DEFINE DIALOG oWnd

    @ 0, 0 XBROWSE oBrw ALIAS "CUSTOMER"

    oBrw:CreateFromCode()

    ACTIVATE DIALOG oWnd;
             ON INIT ( oWnd:SetSize( 850, 600 ),;
                       oBrw:AdjClient(),;
                       oBrw:GoToCol( 4 ) )

    CLOSE

    RETURN NIL


EMG
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
Re: XBrowse: a problem with GoRight() and GoToCol()
Posted: Fri Nov 06, 2020 01:33 PM
This is a workaround:

Code (fw): Select all Collapse
#include "Fivewin.ch"


FUNCTION MAIN()

    LOCAL oWnd, oBrw

    USE CUSTOMER

    DEFINE WINDOW oWnd

    @ 0, 0 XBROWSE oBrw ALIAS "CUSTOMER"

    oBrw:CreateFromCode()

    ACTIVATE WINDOW oWnd;
             ON INIT ( oWnd:SetSize( 850, 600 ),;
                       oBrw:SetSize( 10000, 10000 ),;
                       oWnd:oClient := oBrw,;
                       oBrw:GoToCol( 4 ) )

    CLOSE

    RETURN NIL


EMG

Continue the discussion