wbrowse y dolphin
Posted: Fri Jul 24, 2015 6:00 pm
Hola como puedo cargar un objeto obtenido de un query en un Wbrowse con tdolphin?
Gracias por su atención
Luis
Gracias por su atención
Luis
Revisa el Method SetDolphin(), de la clase TXBrowse
Un pequeño ejemplo
Code: Select all
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