Migrar de TWBrowse a xBrowse

Migrar de TWBrowse a xBrowse

Postby gsabattino » Mon Aug 29, 2016 3:49 pm

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.
User avatar
gsabattino
 
Posts: 102
Joined: Fri Oct 14, 2005 12:03 am
Location: Valencia, Venezuela

Re: Migrar de TWBrowse a xBrowse

Postby acuellar » Mon Aug 29, 2016 5:01 pm

Giancarlo

Aquí un ejemplo con tDolphin
Code: Select all  Expand view  RUN

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
Saludos,

Adhemar C.
User avatar
acuellar
 
Posts: 1645
Joined: Tue Oct 28, 2008 6:26 pm
Location: Santa Cruz-Bolivia

Re: Migrar de TWBrowse a xBrowse

Postby cmsoft » Mon Aug 29, 2016 7:25 pm

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.
User avatar
cmsoft
 
Posts: 1293
Joined: Wed Nov 16, 2005 9:14 pm
Location: Mercedes - Bs As. Argentina

Re: Migrar de TWBrowse a xBrowse

Postby gsabattino » Sun Sep 04, 2016 3:43 pm

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.
User avatar
gsabattino
 
Posts: 102
Joined: Fri Oct 14, 2005 12:03 am
Location: Valencia, Venezuela


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 48 guests