FiveTech Software tech support forums

... := 80 && <<---- este es el alto de línea yo lo puse asi oLbx:nLineHeight := 80 y me da error BASE/1005 Message not found: TWBROWSE:_NLINEHEIGHT Antonio: lo tengo definido asi: define font oTipLet NAME "Courier" SIZE 10,14 // bold DEFINE FONT oFont NAME "TAHOMA" ...

... := 80 && <<---- este es el alto de línea yo lo puse asi oLbx:nLineHeight := 80 y me da error BASE/1005 Message not found: TWBROWSE:_NLINEHEIGHT Antonio: lo tengo definido asi: define font oTipLet NAME "Courier" SIZE 10,14 // bold DEFINE FONT oFont NAME "TAHOMA" ...

... Error BASE/1081 Argument error: + Args: [ 1] = N 0 [ 2] = A { ... } Stack Calls =========== Called from: .\source\classes\WBROWSE.PRG => TWBROWSE:RESIZE( 656 ) Called from: => TWINDOW:HANDLEEVENT( 0 ) Called from: .\source\classes\CONTROL.PRG => TCONTROL:HANDLEEVENT( 1700 ) Called ...

Karinha:

El colega Willi me hizo favor de enviarme el código fuente y yo lo compile.

Gracias Willi.

Saludos a todos

Buenos días Armando. Muestra cómo lo resolviste, otros pueden tener la misma duda que tú. gracias.

Regards, saludos.

Amigos:

Tengo una aplicación muy vieja (Use FWH 0810), ahora necesita actualizarla y me he atorado
porque no tengo la TWBrowse, alguien tiene los fuentes para compilar con una versión más
reciente de FW?

Saludos

o problema esta aqui, mais precisamente na linha destacada: METHOD DispBegin( lCreateDC ) CLASS TWBrowse local hDC, aInfo, hOldDC:= ::hDC DEFAULT lCreateDC:= .F. if lCreateDC hDC:= GetDC( ::hWnd ) else hDC:= ::hDC endif aInfo:= FWDispBegin( ::hWnd, hDC ) ::hDC:= aInfo[3] ...

... e continua fazendo como escrito acima ... andei olhando a classe e achei mais ou menos onde eh o problema: METHOD DispBegin ( lCreateDC ) CLASS TWBrowse local hDC, aInfo, hOldDC:= ::hDC DEFAULT lCreateDC:= .F. if lCreateDC hDC:= GetDC( ::hWnd ) else hDC:= ::hDC endif aInfo:= FWDispBegin( ::hWnd, ...

Muchas graciass, Antonio

Jose Luis,

Si tienes los números de líneas, lo que tienens que hacer es posicionar el browse en una a una de esas lineas, y luego llamar a Eval( oBrowse:bLine ) para obtener el valor de toda la fila, y en ese array estan los valores que buscas

Buenas Me gustaria obtener el valor de una celda de un listbox con twbrowse Con xbrowse basta con oBrw:aCols[1]:Value, pero con twbrowse no. El tema es que hago una seleccion de unos cuantos registros y los envio a una función que recibe los números de las ...

... otras opaciones del programa, así me funciona perfectamente, pero hay algo que se me escapa. He de añadir que todo esto es porque quiero migrar de TWBROWSE A XBROWSE, ya que en TWBROWSE funciona perfectamente

The class used in the RES dialog file is TWBrowse... Source... REDEFINE LISTBOX oBrw ; FIELDS aAcc_No[ nItem ] ,; P6_Mast->(DbSeek(Trim(PadCode1(aAcc_No[ nItem ]))),P6_Mast->Acc_Name) ,; aAcc_Desc[ nItem ] ,; If(!Empty(aTrn_AmtD[ nItem ...

... parametrizar un xbrowse, pasandole por parametros los campos de una tabla, como asi, las descripciones de los mismos, como lo hacia con en twbrowse de cicarelli, habia un parametro omo el bline, que me permitia pasar codeblock con los campos de la base y un aheader, con los nombres de los ...

Leandro, Cristobal,

Listo amigos, ya lo hice andar,

Gracias a Ambos.

Decidi ya dejar la twbrowse del amigo cecarelli, la cual me acompaño por muchos años y pasarme a xBrowse, asi que los estare molestando con algunas cosillas mas...

Muchas gracias por su ayuda.