Migrar de TWBrowse a xBrowse

[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.

[acuellar]

Giancarlo

Aquí un ejemplo con tDolphin

Code: Select all  Expand view

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

[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.

[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.