Alguien tiene esta clase funcionando con FWH Mayo/2007?
Gracias
TwBrowse Hernán
TwBrowse Hernán
Pedro Gonzalez
Ahora funcionando. Errores mios en la compilación de la clase, y un par de warnings y 1 error en la clase, ya corregidos.
Saludos.
[/code]
Code: Select all
..
..
METHOD New( nRow, nCol, nWidth, nHeigth, bLine, aHeaders, aColSizes, oWnd,;
cField, uVal1, uVal2, bChange, bLDblClick, bRClick,;
oFont, oCursor, nClrFore, nClrBack, cMsg, lUpdate, cAlias,;
lPixel, bWhen, lDesign, bValid, bLClick, aActions ) CLASS TWBrowse
LOCAL n, nElements // no estaban declaradas estas variables, y daba warning
..
..
DEFAULT nElements := Len( Eval( ::bLine ) ) // no estaba definido nElements en ninguna parte, por lo que daba error.
if Len( ::aHeaders ) < nElements
if ::Cargo == nil
::aHeaders = Array( nElements )
..
..
Saludos.
[/code]
Pedro Gonzalez