Bug in TXBrowse?
Posted:
Wed Jun 29, 2016 1:53 pmby 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
Re: Bug in TXBrowse?
Posted:
Wed Jun 29, 2016 10:11 pmby 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
Re: Bug in TXBrowse?
Posted:
Fri Jul 01, 2016 9:15 amby Silvio.Falconi
I think it need
oBrw:CreateFromCode() or CreateFromResource( nId )
Re: Bug in TXBrowse?
Posted:
Fri Jul 01, 2016 9:19 amby 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
Re: Bug in TXBrowse?
Posted:
Fri Jul 01, 2016 9:24 amby Silvio.Falconi
CreateFromResource( 101 )
run also without
I tried also with
CONTROL "", 200, "TxBrowse", WS_TABSTOP|0x00a00000, 12, 8, 178, 96
Re: Bug in TXBrowse?
Posted:
Fri Jul 01, 2016 9:30 amby Enrico Maria Giordano
Please look at the font of the button. It should be size 12.
EMG
Re: Bug in TXBrowse?
Posted:
Fri Jul 01, 2016 9:39 amby nageswaragunupudi
Mr Enrico
We shall look into this and get back to you.
At the same I am surprised that you even touched XBrowse.
Re: Bug in TXBrowse?
Posted:
Fri Jul 01, 2016 3:18 pmby Enrico Maria Giordano
And while you are looking at it, what is that "A" on the header?
EMG
Re: Bug in TXBrowse?
Posted:
Sat Jul 02, 2016 6:56 amby Silvio.Falconi
it create an array init from A as default
Re: Bug in TXBrowse?
Posted:
Sat Jul 16, 2016 11:28 amby Enrico Maria Giordano
Rao, please, I need a workaround to this problem.
EMG
