How to programmatically change a TCBrowse column's width?

[hua]

I tried using

Code: Select all  Expand view

oBrw:aColumns[1]:nWidth := 1
oBrw:refresh()

but that doesn't seem to work.

TIA

[MarcoBoschi]

I'm also interested

[James Bott]

Did you try:

DEFINE COLUMN...WIDTH nWidth...[ PIXELS ]

// general data columns
#command DEFINE COLUMN <oCol> ;
[ <dat: DATA, SHOWBLOCK> <uData> ] ;
[ <tit: TITLE, HEADER> <cHead> [ <oem: OEM, ANSI, CONVERT>] ];
[ <clr: COLORS, COLOURS> <uClrFore> [,<uClrBack>] ] ;
[ ALIGN ] [ <al: LEFT, CENTERED, RIGHT> ] ;
[ <wid: WIDTH, SIZE> <nWidth> [ PIXELS ] ] ;
[ <pict: PICT, PICTURE> <cPicture> ] ;
[ <bit: BITMAP> ] ;
[ <edit: EDITABLE> ] ;
[ MESSAGE <cMsg> ] ;
[ VALID <uValid> ] ;
[ ERROR [MSG] [MESSAGE] <cErr> ] ;
[ <lite: NOBAR, NOHILITE> ] ;
[ <idx: ORDER, INDEX, TAG> <cOrder> ] ;

[hua]

I'm trying to change the widths after the TCBrowse is already displayed James. Specifying the widths prior to that is not a problem

[Enrico Maria Giordano]

I tried using

Code: Select all  Expand view

oBrw:aColumns[1]:nWidth := 1
oBrw:refresh()

but that doesn't seem to work.

TIA

Try

Code: Select all  Expand view

oBrw:aColumns[1]:nWidth := 1
oBrw:Default()
oBrw:refresh()

EMG

[hua]

Enrico,

Try

Code: Select all  Expand view

oBrw:aColumns[1]:nWidth := 1
oBrw:Default()
oBrw:refresh()

That works! Thank you!