wbrowse y dolphin

[surGom]

Hola como puedo cargar un objeto obtenido de un query en un Wbrowse con tdolphin?

Gracias por su atención

Luis

[compubrion]

Saludos !

Revisa el Method SetDolphin(), de la clase TXBrowse

Un pequeño ejemplo

Code: Select all  Expand view

oQry := TDolphinQry():New( "SELECT * FROM scg_cuentas", oConex )

oBrow := TXBrowse():New( oWndCtas )

      WITH OBJECT oBrow

         :SetDolphin( cQry, .T., .T. )
         :lColDividerComplete := .T.

         :nMarqueeStyle    := MARQSTYLE_HIGHLROW
         :nColDividerStyle := LINESTYLE_BLACK
         :nStretchCol      := STRETCHCOL_LAST
         :nHeaderHeight    := 30
         :lRecordSelector  := .T.
         :oFont   := oFont
         :nLeft   := 203
         :l2007   := .F.
         :lFooter := .T.
         :bClrStd    := {|| IF( cQry:RecNo()  % 2 == 0, {CLR_BLACK, CLR_WHITE}, {0, RGB( 226,226,226 ) } ) }
         :bChange    := {|| MuestraRegis( cQryCond, cMsg ) }

      END WITH

 

[surGom]

Lo que necesito es para cargar un browse, el xbrowse lo había resuelto.

Gracias

Luis

[compubrion]

OK !

Debes convertir el query en un array usando el Method FillArray( bOnFillArray, aColumns ), para luego usarlo con TWbrowse

Saludos

[surGom]

Gracias compañero