FiveTech Support Forums

Estimados,

No logro conseguir la forma de ajustar un browse en una ventana a solo las columnas que quiero mostrar.

Aca el codigo que utilizo

DEFINE WINDOW oWndBCO MDICHILD OF oWndPrinc ;
FROM 0, 0 TO 0, 0 ;

SET MESSAGE OF oWndBCO

oWndBCO:Hide()

oBrw := TXBrowse():New( oWndBCO )

oCol = oBrw:AddCol()
oCol:cHEADER := "Codigo"
oCol:bStrData := { ||BANCO->BCO_CODIGO }
oCol:nWidth := 95

oCol = oBrw:AddCol()
oCol:cHEADER := "Nombre"
oCol:bStrData := { ||BANCO->BCO_DESCRI }
oCol:nWidth := 250

oCol := oBrw:AddCol()
oCol:cHeader := "Cuenta Contable"
oCol:bStrData := {|| BANCO->BCO_CUENTA }

oBrw:SetRDD()
oBrw:CreateFromCode()
oWndBCO:SetControl(oBrw)

ACTIVATE WINDOW oWndBCO ;
ON INIT oBrw:Refresh() ;

oWndPrinc:cascade()
oWndBCO:oClient = oBrw
oWndBCO:Show()

//-----Fin de codigo

Saludos

para la version que usas no esta disponible esa caracteristica, esta disponible desde la version 8.04 (abril 2008)

oBrw:nStretchCol = STRETCHCOL_LAST

o si quieres estirar alguna columan en especifico

oBrw:nStretchCol = 3

Saludos

se me ocurre una solucion algo tediosa, debes pensarla y "hechar" algo de logica y codigo

te lo explico...

usa el codeblock bResized del objeto "WINDOW" contenedor del browse.... puedes ver un ejemplo en testmdir.prg como usar bResized
con el argumento nWidth recibido en ese codeblock, que es el ancho de la ventana, podras calcular automaticamente el ancho debera tener la(s) columna(s) para ajustarse al ancho de la ventana de forma equitativa... aqui es donde debes pensar un poco y usar algo de logica

el ancho de las columnas esta representada en los objetos columnas en la data nWidth,
ejemplo
oBrw:aCols[ 3 ]:nWidth = 100
eso ajusta el ancho de la columna 3 a 100

Gracias,

Voy a intentarlo y si lo logro agrego el codigo aca como contribucion.

Saludos

este es un codigo que escribi hace dos años atras, puede que te sirva de guia...

trata de un xbrowse que se ajusta a una ventana y a su vez de forma simetrica a la resolucion de la pantalla

es algo complicado pero alli lo dejo

http://forums.fivetechsupport.com/viewtopic.php?p=74000#p74000