FiveTech Software tech support forums

... etc. Fixed * TArrayData class ( source\classes\tarrdata.prg ) Bug fixes: relating to use of PValue() in xHarbour * TEdit control: New DATA lReadOnly: lReadOnly can be toggled during runtime also. * function RoundBox() new 11th parameter nPenStyle, default PS_SOLID Syntax: RoundBox( hDC, ...

... yes allready saw it compile this test without :SetMultiSelectCol() you'll see this error Error description: Error BASE/1005 No exported variable: LREADONLY Args: [ 1] = U [ 2] = L .T. Stack Calls =========== Called from: xbmulsel.prg => _LREADONLY( 0 ) Called from: xbmulsel.prg => (b)MAIN( ...

Hi Rao,
yes,
this is default in my Std management of table,

::oBrw:SetMultiSelectCol( )

I rarely disable it using the property :

::oBrw:oMultiSelCol:lReadOnly := .T.

TIA

You can use the above code to Toggle ReadOnly status during runtime. This code is tested.

From the next version, we have provided DATA lReadOnly. We can toggle this at runtime with oEdit:lReadOnly := .T. or .F..

Hola a todos, Estoy usando un control EDIT y necesito poder bloquear su edición y según el caso permitir su edición. ¿Cómo lo hago? La Data lReadonly veo que no existe en este control para modificarla en tiempo de ejecución. Si que puedo deshabilitar el control con Disable(), pero entonces el ...

Estimado Antonio. Estimado Albeiro, Se ve bien, buen trabajo! Si siguen apareciendo GPFs esporadicamente mi consejo es que depures ese módulo en C++ desde Visual Studio: el debugger de Visual Studio te indicará el lugar exacto en donde se producen. Muchas Gracias por revisar el codigo. Cuando te ref...

Estimado Albeiro,

Se ve bien, buen trabajo!

Si siguen apareciendo GPFs esporadicamente mi consejo es que depures ese módulo en C++ desde Visual Studio:
el debugger de Visual Studio te indicará el lugar exacto en donde se producen.

Hola Antonio. Estimado Albeiro, Prueba a comentar estas dos líneas para solucionar los GPFs: // if ( userList.m_ArrayUsers ) // hb_xfree( userList.m_ArrayUsers ); No se ve que llames a hb_xgrab() en tu código, luego esa llamada a hb_xfree() está de más. Voy a hacer lo que me cometas. Igual voy a pos...

Estimado Albeiro,

Prueba a comentar estas dos líneas para solucionar los GPFs:
// if ( userList.m_ArrayUsers )
// hb_xfree( userList.m_ArrayUsers );

No se ve que llames a hb_xgrab() en tu código, luego esa llamada a hb_xfree() está de más.

Mr Rao. It is difficult for us to support modified classes. Please try your sample with xbrowse as released by FWH without any modifications and see if you get any error. If you still get error, then please provide a small sample which we can test at our end. I stopped using my modified xbrowse clas...

Hola Jesus. estas modificando aArray, pero como está definido como variable local y no lo devuelves a la función que lo llama, es posible que te dé un error. Como vez estoy pasando el parametro oBrw a la funcion y le asigno el valor del array en SetArray por lo tanto no es necesario devolver el arr...

It is difficult for us to support modified classes.
Please try your sample with xbrowse as released by FWH without any modifications and see if you get any error.
If you still get error, then please provide a small sample which we can test at our end.

Hi Mr. Rao. Are you sure you are using XBrowse without any modifications? Yes, I use a modified xBrowse method to use incremental seek with Tdolphin, here is the code I use // EXTENSIONES DE CLASS#include "FiveWin.ch"#include "hbclass.ch"#include "reportexcel.ch"#ifndef...

Both TXbrowe and TXBrwColumn classes do have the DATA lReadOnly. This error: Called from:  => LREADONLY( 0 )Called from: .\source\classes\XBROWSE.PRG => TXBRWCOLUMN:VALUE( 13576 ) indicates that the object is NIL. Are you sure ...

Karina. REDEFINE BTNBMP oBtn[3] ID 302 OF oDlg; 2007; CENTER; NOROUND; PROMPT "Salir"; GRADIENT BtnGradRed() oBtn[3]:bAction = <|| lExit := .T. oDlg:End() SysRefresh() hb_gcAll(.T.) Return Nil > Albeiroval, intenta asi por favor: #Define aPubGrad {| lInvert | If( lInvert, ;...