FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin for Harbour/xHarbour Bug in TXBrowse?
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
Bug in TXBrowse?
Posted: Wed Jun 29, 2016 01:53 PM
Please look at these two samples.

PRG 1:

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


FUNCTION MAIN()

    LOCAL oDlg

    DEFINE DIALOG oDlg;
           RESOURCE "TEST"

    REDEFINE BUTTON;
             ID 201 OF oDlg

    ACTIVATE DIALOG oDlg;
             CENTER

    RETURN NIL


RC 1:

Code (fw): Select all Collapse
TEST DIALOG 0, 0, 300, 300
STYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU
CAPTION "Test"
FONT 12, "MS Sans Serif"
LANGUAGE LANG_NEUTRAL, SUBLANG_NEUTRAL
{
 CONTROL "Test", 201, "BUTTON", BS_PUSHBUTTON | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 20, 265, 41, 16
}


PRG 2:

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


FUNCTION MAIN()

    LOCAL oDlg

    LOCAL oBrw

    DEFINE DIALOG oDlg;
           RESOURCE "TEST"

    REDEFINE XBROWSE oBrw;
             ID 101 OF oDlg

    ( oBrw )

    REDEFINE BUTTON;
             ID 201 OF oDlg

    ACTIVATE DIALOG oDlg;
             CENTER

    RETURN NIL


RC 2:

Code (fw): Select all Collapse
TEST DIALOG 0, 0, 300, 300
STYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU
CAPTION "Test"
FONT 12, "MS Sans Serif"
LANGUAGE LANG_NEUTRAL, SUBLANG_NEUTRAL
{
 CONTROL "Test", 201, "BUTTON", BS_PUSHBUTTON | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 20, 265, 41, 16
 CONTROL "", 101, "TXBrowse", WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL | WS_HSCROLL | WS_TABSTOP, 10, 10, 275, 245
}


The second sample doesn't honour the font size defined in the RC file. It looks like the presence of TXBrowse prevents it.

Any workaround?

EMG
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
Re: Bug in TXBrowse?
Posted: Wed Jun 29, 2016 10:11 PM
Just to further explain the problem, this sample using TWBrowse works fine instead:

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


FUNCTION MAIN()

    LOCAL oDlg

    LOCAL oBrw

    DEFINE DIALOG oDlg;
           RESOURCE "TEST"

    REDEFINE LISTBOX oBrw FIELDS;
             ID 101 OF oDlg

    ( oBrw )

    REDEFINE BUTTON;
             ID 201 OF oDlg

    ACTIVATE DIALOG oDlg;
             CENTER

    RETURN NIL


Code (fw): Select all Collapse
TEST DIALOG 0, 0, 300, 300
STYLE DS_MODALFRAME | WS_POPUP | WS_CAPTION | WS_SYSMENU
CAPTION "Test"
FONT 12, "MS Sans Serif"
LANGUAGE LANG_NEUTRAL, SUBLANG_NEUTRAL
{
 CONTROL "Test", 201, "BUTTON", BS_PUSHBUTTON | WS_CHILD | WS_VISIBLE | WS_TABSTOP, 20, 265, 41, 16
 CONTROL "", 101, "TWBrowse", WS_CHILD | WS_VISIBLE | WS_BORDER | WS_VSCROLL | WS_HSCROLL | WS_TABSTOP, 10, 10, 275, 245
}


EMG
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
Re: Bug in TXBrowse?
Posted: Fri Jul 01, 2016 09:15 AM

I think it need
oBrw:CreateFromCode() or CreateFromResource( nId )

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
Re: Bug in TXBrowse?
Posted: Fri Jul 01, 2016 09:19 AM
With oBrw:CreateFromCode() I get the following error:

Code (fw): Select all Collapse
Error description: Error FiveWin/2  Duplicated Id: No:    101


EMG
Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
Re: Bug in TXBrowse?
Posted: Fri Jul 01, 2016 09:23 AM

here run ok
wich is the problem ?
Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
Re: Bug in TXBrowse?
Posted: Fri Jul 01, 2016 09:24 AM

CreateFromResource( 101 )
run also without

I tried also with
CONTROL "", 200, "TxBrowse", WS_TABSTOP|0x00a00000, 12, 8, 178, 96

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
Re: Bug in TXBrowse?
Posted: Fri Jul 01, 2016 09:30 AM

Please look at the font of the button. It should be size 12.

EMG

Posts: 10733
Joined: Sun Nov 19, 2006 05:22 AM
Re: Bug in TXBrowse?
Posted: Fri Jul 01, 2016 09:39 AM

Mr Enrico

We shall look into this and get back to you.
At the same I am surprised that you even touched XBrowse. :-)

Regards



G. N. Rao.

Hyderabad, India
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
Re: Bug in TXBrowse?
Posted: Fri Jul 01, 2016 09:52 AM
nageswaragunupudi wrote:Mr Enrico

We shall look into this and get back to you.


Thank you.

nageswaragunupudi wrote:At the same I am surprised that you even touched XBrowse. :-)


Why?

EMG
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
Re: Bug in TXBrowse?
Posted: Fri Jul 01, 2016 03:18 PM

And while you are looking at it, what is that "A" on the header?

EMG

Posts: 7317
Joined: Thu Oct 18, 2012 07:17 PM
Re: Bug in TXBrowse?
Posted: Sat Jul 02, 2016 06:56 AM

it create an array init from A as default

Since from 1991/1992 ( fw for clipper Rel. 14.4 - Momos)

I use : FiveWin for Harbour March-April 2024 - Harbour 3.2.0dev (harbour_bcc770_32_20240309) - Bcc7.70 - xMate ver. 1.15.3 - PellesC - mail: silvio[dot]falconi[at]gmail[dot]com
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
Re: Bug in TXBrowse?
Posted: Sun Jul 10, 2016 09:31 AM

Still waiting... :-)

EMG

Posts: 9020
Joined: Thu Oct 06, 2005 08:17 PM
Re: Bug in TXBrowse?
Posted: Sat Jul 16, 2016 11:28 AM

Rao, please, I need a workaround to this problem. :-)

EMG