TwBrowse Hernán

[pymsoft]

Alguien tiene esta clase funcionando con FWH Mayo/2007?


Gracias

[pymsoft]

Ahora funcionando. Errores mios en la compilación de la clase, y un par de warnings y 1 error en la clase, ya corregidos.

Code: Select all  Expand view  RUN

..
..
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]