PC Toledo

Código: Selecionar todos

   oFrm:BrowseLines( .T. )
   cKeyboard := BrowseADORC( nTop, nLeft, nBottom, nRight, cnSQL, oTBrowse, cFilterKey, bKeyboard, bUserFunction, nFixToCol, aADOFilterList )
   oFrm:BrowseLines( .F. )

Código: Selecionar todos

METHOD BrowseLines( lOnOff ) CLASS frmGuiClass

   LOCAL oControl, nCont, cSetColor

   hb_Default( @lOnOff, .T. )
   IF lOnOff
      cSetColor := SetColor( SetColorTBrowseFrame() )
      FOR nCont = 6 TO MaxRow() - 4
         oControl := wvgTstFrame():New( wvgSetAppWindow() )
         oControl:PointerFocus := .F.
         oControl:Create( , , { -nCont, -0.1 }, { -MaxRow(), -MaxCol() } )
         AAdd( ::aControlList, { CONTROL_TYPE_LINE, oControl } )
      NEXT
      SetColor( cSetColor )
   ELSE
      FOR EACH oControl IN ::aControlList DESCEND
         IF oControl[ 1 ] == CONTROL_TYPE_LINE
            oControl[ 2 ]:Destroy()
            hb_ADel( ::aControlList, oControl:__EnumIndex, .T. )
         ENDIF
      NEXT
   ENDIF

   RETURN Nil