gtwvg browse com linhas

[JoséQuintas]

Nada sofisticado mas quebra o galho.
Como é na "página" inteira, fiz assim:

Código: Selecionar todos

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

E na rotina de janelas, o FOR/NEXT, usando FRAME mesmo, porque já vém numa cor mais suave que as outras opções.

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

Nem se compara com a da HMG Extended, mas tudo bem......

[JoséQuintas]

Talvez eu ressucite meu browse com imagens...
Devo ter backup no github de quando fiz o teste...

[microvolution]

INTERESSANTE.