Code: Select all
REDEFINE XBROWSE oBrw OF oDlg ID 101 ALIAS cAlias ;
COLUMNS "Clave", "NOMBREEXT" ;
HEADERS "Clave", "Nombre" ;
COLSIZES 45, 300 ;
CELL LINES
oBrw:aCols[ 1 ]:lAllowSizing := .f.
oBrw:aCols[ 2 ]:lAllowSizing := .f.
ACTIVATE DIALOG oDlg NOMODAL ;
VALID ( ( cAlias )->( DBCLOSEAREA() ), .t. )
Code: Select all
oBrw := TXBrowse():New( oDlg )
If you still want to use your syntax, it is upto you, but you will not get many benefits that xbrowse provides.