Bug in TXBrowse?

[Enrico Maria Giordano]

Please look at these two samples.

PRG 1:

Code: Select all  Expand view

#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: Select all  Expand view

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: Select all  Expand view

#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: Select all  Expand view

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

[Enrico Maria Giordano]

Just to further explain the problem, this sample using TWBrowse works fine instead:

Code: Select all  Expand view

#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: Select all  Expand view

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

[Enrico Maria Giordano]

Any news?

EMG

[Silvio.Falconi]

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

[Enrico Maria Giordano]

With oBrw:CreateFromCode() I get the following error:

Code: Select all  Expand view

Error description: Error FiveWin/2  Duplicated Id: No:    101

EMG

[Silvio.Falconi]

here run ok
wich is the problem ?

[Silvio.Falconi]

CreateFromResource( 101 )
run also without

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

[Enrico Maria Giordano]

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

EMG

[nageswaragunupudi]

Mr Enrico

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

[Enrico Maria Giordano]

Mr Enrico

We shall look into this and get back to you.

Thank you.

At the same I am surprised that you even touched XBrowse.

Why?

EMG

[Enrico Maria Giordano]

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

EMG

[Silvio.Falconi]

it create an array init from A as default

[Enrico Maria Giordano]

Any news?

EMG

[Enrico Maria Giordano]

Still waiting...

EMG

[Enrico Maria Giordano]

Rao, please, I need a workaround to this problem.

EMG