topic-32895

Board index FiveWin para Harbour/xHarbour Migrar de TWBrowse a xBrowse

Posts: 102

Joined: Fri Oct 14, 2005 12:03 AM

Migrar de TWBrowse a xBrowse
Posted: Mon Aug 29, 2016 03: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.

acuellar

Posts: 1710

Joined: Tue Oct 28, 2008 06:26 PM

Re: Migrar de TWBrowse a xBrowse
Posted: Mon Aug 29, 2016 05:01 PM

Giancarlo

Aquí un ejemplo con tDolphin

Code (fw): Select all Collapse

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.

cmsoft

Posts: 1344

Joined: Wed Nov 16, 2005 09:14 PM

Re: Migrar de TWBrowse a xBrowse
Posted: Mon Aug 29, 2016 07: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.

Salu2
Cesar Gomez
https://www.bcnsoft.com.ar
https://www.pedidosbcn.com

gsabattino

Posts: 102

Joined: Fri Oct 14, 2005 12:03 AM

Re: Migrar de TWBrowse a xBrowse
Posted: Sun Sep 04, 2016 03: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.

FiveTech Support Forums

Continue the discussion