Not working nStretchCol (xBrowse )

[Natter]

I have recompiled their programs under FWH18.03 (xHarbour ) In xBrowse has stopped working option nStretchCol. In version 17.12 it's Ok

[nageswaragunupudi]

StretchCol has been working in all versions including 18.03.

Sample without stretch col:

Code: Select all  Expand view  RUN

  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 CENTERED
 

STRETCHCOL_LAST:

Code: Select all  Expand view  RUN

  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 CENTERED

 

STRETCHCOL_WIDEST (recommended)

Code: Select all  Expand view  RUN

  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 CENTERED

 

STRETCHCOL <number>

Code: Select all  Expand view  RUN

  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 CENTERED
 

It is working as expected.

[Natter]

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

[nageswaragunupudi]

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?

[Natter]

l

Code: Select all  Expand view  RUN

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
return
 

[nageswaragunupudi]

You 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):

Code: Select all  Expand view  RUN

  METHOD Resize( nSizeType, nWidth, nHeight ) INLINE ( ::ColStretch(), ::Super:ReSize( nSizeType, nWidth, nHeight ), If( ::lPainted, ::Refresh(), ) )
 

[Natter]

Thank You Mr.Rao. Work correctly

[dagiayunus]

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.

[José Luis Sánchez]

Thanks Mr. Rao, I didn't know this feature of xbrowse and it is very nice !!!

Regards,
José Luis