FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour wbrowse y dolphin
Posts: 652
Joined: Wed Oct 19, 2005 12:03 PM
wbrowse y dolphin
Posted: Fri Jul 24, 2015 06:00 PM

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

Gracias por su atención

Luis

Posts: 132
Joined: Thu Mar 08, 2007 06:12 PM
Re: wbrowse y dolphin
Posted: Sun Jul 26, 2015 12:42 AM
Saludos !

Revisa el Method SetDolphin(), de la clase TXBrowse

Un pequeño ejemplo

Code (fw): Select all Collapse
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
Harbour / Bcc / MinGW / Fwh 13.9
Posts: 652
Joined: Wed Oct 19, 2005 12:03 PM
Re: wbrowse y dolphin
Posted: Sun Jul 26, 2015 11:06 AM

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

Gracias

Luis

Posts: 132
Joined: Thu Mar 08, 2007 06:12 PM
Re: wbrowse y dolphin
Posted: Wed Jul 29, 2015 12:51 PM

OK !

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

Saludos

Harbour / Bcc / MinGW / Fwh 13.9
Posts: 652
Joined: Wed Oct 19, 2005 12:03 PM
Re: wbrowse y dolphin
Posted: Wed Jul 29, 2015 11:22 PM

Gracias compañero

Continue the discussion