I have recompiled their programs under FWH18.03 (xHarbour ) In xBrowse has stopped working option nStretchCol. In version 17.12 it's Ok
Board index FiveWin for Harbour/xHarbour Not working nStretchCol (xBrowse )
StretchCol has been working in all versions including 18.03.
Sample without stretch col:
STRETCHCOL_LAST:
STRETCHCOL_WIDEST (recommended)
STRETCHCOL <number>
It is working as expected.
Sample without stretch col:
local oDlg, oBrw
USE CUSTOMER
DEFINE DIALOG oDlg SIZE 800,300 PIXEL TITLE FWVERSION + " STRETCH NONE"
@ 10,10 XBROWSE oBrw SIZE 380,130 PIXEL OF oDlg ;
DATASOURCE "CUSTOMER" ;
COLUMNS "FIRST","CITY","SALARY" ;
AUTOCOLS CELL LINES NOBORDER
oBrw:CreateFromCode()
ACTIVATE DIALOG oDlg CENTEREDSTRETCHCOL_LAST:
local oDlg, oBrw
USE CUSTOMER
DEFINE DIALOG oDlg SIZE 800,300 PIXEL TITLE FWVERSION + " STRETCHCOL_LAST"
@ 10,10 XBROWSE oBrw SIZE 380,130 PIXEL OF oDlg ;
DATASOURCE "CUSTOMER" ;
COLUMNS "FIRST","CITY","SALARY" ;
AUTOCOLS CELL LINES NOBORDER
oBrw:nStretchCol := STRETCHCOL_LAST
oBrw:CreateFromCode()
ACTIVATE DIALOG oDlg CENTEREDSTRETCHCOL_WIDEST (recommended)
USE CUSTOMER
DEFINE DIALOG oDlg SIZE 800,300 PIXEL TITLE FWVERSION + " STRETCHCOL_WIDEST (recommended)"
@ 10,10 XBROWSE oBrw SIZE 380,130 PIXEL OF oDlg ;
DATASOURCE "CUSTOMER" ;
COLUMNS "FIRST","CITY","SALARY" ;
AUTOCOLS CELL LINES NOBORDER
oBrw:nStretchCol := STRETCHCOL_WIDEST
oBrw:CreateFromCode()
ACTIVATE DIALOG oDlg CENTEREDSTRETCHCOL <number>
local oDlg, oBrw
USE CUSTOMER
DEFINE DIALOG oDlg SIZE 800,300 PIXEL TITLE FWVERSION + " STRETCHCOL <specified>"
@ 10,10 XBROWSE oBrw SIZE 380,130 PIXEL OF oDlg ;
DATASOURCE "CUSTOMER" ;
COLUMNS "FIRST","CITY","SALARY" ;
AUTOCOLS CELL LINES NOBORDER
oBrw:nStretchCol := 1
oBrw:CreateFromCode()
ACTIVATE DIALOG oDlg CENTEREDIt is working as expected.
Regards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India
It's all so if you do not change the width xBbrose. But if I next increase the width xBbroseб, the column width (number nStretchCol) will not change
But if I next increase the width xBbroseб, the column width (number nStretchCol) will not change
I do not understand.
Can you clearly explain, please?
Regards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India
l
ocal oBrw
private oDlg
USE CUSTOMER
DEFINE DIALOG oDlg SIZE 800,300 PIXEL TITLE FWVERSION + " STRETCHCOL_LAST"
@ 10,10 XBROWSE oBrw SIZE 380,130 PIXEL OF oDlg ;
DATASOURCE "CUSTOMER" ;
COLUMNS "FIRST","CITY","SALARY" ;
AUTOCOLS CELL LINES NOBORDER
oBrw:nStretchCol := STRETCHCOL_LAST
oBrw:CreateFromCode()
ACTIVATE DIALOG oDlg ON INIT MY_INI() CENTERED
return NIL
procedure My_Ini
oDlg:nWidth+=100
oDlg:aControls[1]:nWidth+=100
returnYou are right.
Thanks for pointing out.
Please re-insert this line anywhere in the class declaration of xbrowse (where the method resize is commented out):
Thanks for pointing out.
Please re-insert this line anywhere in the class declaration of xbrowse (where the method resize is commented out):
METHOD Resize( nSizeType, nWidth, nHeight ) INLINE ( ::ColStretch(), ::Super:ReSize( nSizeType, nWidth, nHeight ), If( ::lPainted, ::Refresh(), ) )Regards
G. N. Rao.
Hyderabad, India
G. N. Rao.
Hyderabad, India
Thank You Mr.Rao. Work correctly
Dear Mr.Rao
The screen resolution is vary on my desktop and laptops.
How can I autofit column (stretch or srink) according to the resolution ?
I have sent screenshot of my application to you.
Regards
Yunus.
Regards
Yunus
FWH 21.02
Yunus
FWH 21.02
Thanks Mr. Rao, I didn't know this feature of xbrowse and it is very nice !!!
Regards,
José Luis