Page 1 of 1
Migrar de TWBrowse a xBrowse
Posted: Mon Aug 29, 2016 3:49 pm
by gsabattino
Buen Dia mi gente... saludos a todos...
Tengo muchos años usando la clase TWBrowse que fue aportada en su entonces por el pibe Diego Ceccarelli...
No se si mi percepción es correcta, pero creo que el abandonó eso y de ahi en adelante me parece que la clase ha quedado huerfana.
Por lo que he leido en el foro, la clase xBrowse (que ahora es nativa de FW) ha resultado en ser un excelente sustituto de la TWBrowse, y sobre todo porque tiene montañas de mejoras con respecto a la TWBrowse, por lo que me gustaria tener a la mano alguna documentacion de la misma (mas alla de los mismos fuentes), así como tambien ejemplos y tips para sacarle el mejor provecho posible, sobre todo en su uso con la tDolphin.
Agradeciendo de antemano cualquier ayuda relacionada con el tema,
Giancarlo Sabattino,
Valencia, Venezuela.
Re: Migrar de TWBrowse a xBrowse
Posted: Mon Aug 29, 2016 5:01 pm
by acuellar
Giancarlo
Aquí un ejemplo con tDolphin
Code: Select all
oEMPL:=oServer:Query( "SELECT * FROM DATPER ORDER BY CODIGO FOR UPDATE")
TE:=oEMPL:nRecCount
....
DEFINE DIALOG oDlg FROM 2, 2 TO 120,200 Title "EMPLEADOS";oDlg:lHelpIcon:=.F.
@0,0 xBrowse oBrw Of oDlg AUTOSORT DATASOURCE oEMPL COLUMNS "IDEMPL"
oBrw:nMarqueeStyle:=5
oBrw:nColDividerStyle:=LINESTYLE_LIGHTGRAY
oBrw:nRowDividerStyle:=LINESTYLE_LIGHTGRAY
oBrw:bClrSelFocus:={ || { CLR_BLUE, { { 0.1,16777215,12961221 } }} }
oBrw:bClrSel:={ || { CLR_BLUE, { { 0.30,16777215,12961210 } }} }
oBrw:bClrRowFocus:= { || { CLR_BLUE, { { 0.30,16777215,12961210 } }} }
oBrw:bClrStd:={|| If(oEMPL:lOUT,{CLR_HRED,CLR_WHITE},{CLR_BLACK,CLR_WHITE})}
oBrw:lRecordSelector:=.F.
oBrw:lAllowRowSizing:= .F.
oBrw:lHScroll:=.F.
oBrw:lAllowColHiding := .F.
oBrw:lAllowColSwapping:=.F.
oBrw:nRowHeight := 18
oBrw:nFooterHeight := 20
oBrw:lFooter=.T.
oCol:=oBrw:AddCol()
oCol:bEditValue := { || oEMPL:CODIGO }
oCol:nHeadStrAlign := AL_CENTER
oCol:cHeader:= "COD."
oCol:nWidth:=30
oCol:cSortOrder := "CODIGO"
oCol:bLClickHeader:= {|| oBrw:GoTop() }
oCol:=oBrw:AddCol()
oCol:bEditValue := { || oEMPL:NOMBRE }
oCol:nHeadStrAlign := AL_CENTER
oCol:cHeader := "NOMBRE Y APELLIDOS"
oCol:nWidth:=223
oCol:cSortOrder := "NOMBRE"
oCol:bLClickHeader:= {|| oBrw:GoTop() }
oCol:bfooter:={|| ("TOTAL EMPLEADOS: "+Trans(TE,"9999")) }
oBrw:CreateFromCode()
ACTIVATE DIALOG oDlg CENTERED
Saludos,
Adhemar
Re: Migrar de TWBrowse a xBrowse
Posted: Mon Aug 29, 2016 7:25 pm
by cmsoft
Giancarlo:
Creo yo que lo mejor es pasarte a usar Xbrowse y encontrar como reemplazar la funcionalidad a la que estas acostumbrado a trabajar con Wbrowse, y luego ir agregandole las mejoras segun las posibilidades que te da la nueva xbrowse. Al menos es lo que yo hice (pase de TSBrowse). Es que tiene tanto que hay mucha tela para cortar...
Incluso hay diferentes formas de usarla. El define (o redefine) ya es muy potente. Pero puedes personalizarla mas aun con los metodos y las datas que tiene.
El mejor manual creo que es el propio fuente de la clase, mas este foro... Creo que ahi encontraras todo.
Re: Migrar de TWBrowse a xBrowse
Posted: Sun Sep 04, 2016 3:43 pm
by gsabattino
Gracias po rlos Tips
Asi de entradita veo que migrar de tWBrowse a xBrowse me tomara algo de tiempo ya que ambas clases se definen de una forma muy distinta...
Ire haciendolo la migración desde los browsers mas sencillitos hacia los mas complejos para irme familiarizando, y cualquier cosa estare por aca enviandoles la señal de SOS...
Gracias nuevamente,
Giancarlo Sabattino
Valencia, Venezuela.