topic-18773

Posts: 592

Joined: Tue Mar 14, 2006 11:34 PM

Ajustes en XBrowse.
Posted: Mon May 10, 2010 05:08 AM

Hola a todos,

Estoy por empezar a cambiar los TWBrowse por XBrowse de mi app y quisiera saber si es correcto y posible ( creo que lo lei hace tiempo ) lo siguiente :

Si ya tengo definido ciertos ajustes ( Colores, Gradientes, BackGround, etc. ) por aplicar y para no andar repitiendolos en cada browse ( son muuchos por convertir ), puedo pasar el objeto a una funcion y desde ahi aplicarlos ?

Code (fw): Select all Collapse

REDEFINE XBROWSE brw1 
...  
...  
....

AplParms2Brw( brw1 )


Static Function AplParms2Brw( xBrw )

With Object xBrw
xBrw:esto    := XXXX
xBrw:aquello := yyyy
xBrw:aquel   := zzzz

Return NIL

Y para alinear los datos de una columna, debo hacerlo de manera individual ?
aplique JUSTIFY 1 y los datos si se alinearon a la derecha, pero el encabezado queda centrado y el footer queda a la izquierda.

Sorry, todavia estoy acostumbrado a la clase de Hernan, en la cual se ubican los 3 datos a la alineacion indicada.

Saludos

FWH 10.6 + xHarbour + Borland 582

nageswaragunupudi

Posts: 10733

Joined: Sun Nov 19, 2006 05:22 AM

Re: Ajustes en XBrowse.
Posted: Mon May 10, 2010 10:40 AM

You can pass oBrw object to a function for assigning common properties.

nHeadStrAlign and nFootStrAlign are to be assigned independantly.

But where XBrowse is defined in an appropriate way, XBrowse automatically decides picture formats and alignments of data and footers appropriate to the data type.

Regards

G. N. Rao.

Hyderabad, India

Raymundo Islas M.

Posts: 592

Joined: Tue Mar 14, 2006 11:34 PM

Re: Ajustes en XBrowse.
Posted: Mon May 10, 2010 02:26 PM

Mr. Rao,

Thanks a lot for clarifying this to me.

And yes, you're rigth, my intention is to assign common properties to all and then fine tune when necessary.

Best regards.

FWH 10.6 + xHarbour + Borland 582

Raymundo Islas M.

Posts: 592

Joined: Tue Mar 14, 2006 11:34 PM

Re: Ajustes en XBrowse.
Posted: Mon May 10, 2010 03:17 PM

Mr. Rao,

Just to let you know is working perfect !!!

Thanks again.

Regards

FWH 10.6 + xHarbour + Borland 582

gdeteran

Posts: 115

Joined: Fri Oct 14, 2005 07:10 PM

Re: Ajustes en XBrowse. ( Resuelto )
Posted: Mon May 10, 2010 08:47 PM

Hola Raymundo:

Yo tambien estoy cambiando TWBrowse por XBrowse
Todavia no me queda claro como debo desarrollar para XBrowse, lo equivalente a bEdit de TWBrowse.
Tu me podrias ayudar en esto por favor
De antemanos, gracias

Saludos,

Gonzalo

Puerto Montt - CHILE

FWH 22.12 - Harbour 3.2.0dev (r2008190002) - Borland/Embarcadero C++ 7.0(32-bit)

Raymundo Islas M.

Posts: 592

Joined: Tue Mar 14, 2006 11:34 PM

Re: Ajustes en XBrowse. ( Resuelto )
Posted: Mon May 10, 2010 11:14 PM

Gonzalo,

Siento horrible no poder apoyarte en este punto, tambien estoy dando mis primeros pasos en el Xbrowse. :oops:

De todos los browses que voy a cambiar ( le calculo unos 100 ), todos son unicamente para mostrar datos, a excepcion de 2 donde si hago edicion de celdas pero los estoy dejando para lo ultimo, ya que le haya entendido bien a esta clase, totalmente nueva para mi.

Espero comprendas que no es que no quiera, sino que en este momento no me es posible por los escazos conocimientos del XBrowse que tengo.

Si te sirve en algo, te puedo enviar algo del tema pero usando la TWBrowse de Hernan, que es la que ha usado toda la vida

Saludos

FWH 10.6 + xHarbour + Borland 582

Raymundo Islas M.

Posts: 592

Joined: Tue Mar 14, 2006 11:34 PM

Re: Ajustes en XBrowse.
Posted: Tue May 11, 2010 02:01 PM

Antonio/Daniel,

Me aparece otro punto, quiero usar en una columna un SetCheck() para avisar si esta activo o no un valor, viendo ejemplos del foro y de la carpeta SAMPLES lo puedo realizar, el detalle es que el valor/columna a usar NO es logico, lo tengo como 0,1.

Alguna Data o Method por usar para lograrlo ?

Ahora, lo mas curioso del asunto.

Code (fw): Select all Collapse

REDEFINE XBROWSE lbSCatMar ID 101 OF oFldCat:aDialogs[1] ;
    COLUMNS 1,3 ;
    HEAD 'NOMBRE','FAV' ;
    COLSIZES 265,30 ;
    ARRAY aSCatMar ;
    FOOTERS ;
    FONT aSysFnts[1]

AdjRStXBrws( lbSCatMar, .T., {0,1} )
lbSCatMar:aCols[2]:SetCheck( ,.t.)

Esto son los datos originales :

Y estos cambiando el valor de la columna :

Ahora me aparecen todas las columnas en el Browse, aunque al inicio estoy usando solo 2

Se que estoy haciendo algo mal, pero no encuentro que cosa es, lo unico que apunta a la falla es lo siguiente :

Al inicio, tengo el array vacio, despues, al obtener los datos tengo un :

Code (fw): Select all Collapse

lbSCatMar:SetArray( aSCatMar )
lbSCatMar:ReFresh()

Podrian indicarme cual(es) son mi(s) error(es) ??

Muchas Gracias

Saludos

FWH 10.6 + xHarbour + Borland 582

Raymundo Islas M.

Posts: 592

Joined: Tue Mar 14, 2006 11:34 PM

Re: Ajustes en XBrowse.
Posted: Tue May 11, 2010 02:27 PM

Ok,

Ya encontre el porque de esto :

El valor inicial del array que va a ser mostrado, si es diferente al obtenido despues de inicializado en XBrowse muestra todo el contenido.

Incluso, ya puedo ver mi setcheck() !!! :lol:

Jejejejeje

Uds perdonen el oso ...... :oops:

Pero como comento, estoy empezando con esta clase.

Saludos

FWH 10.6 + xHarbour + Borland 582

rolando

Posts: 593

Joined: Sat May 12, 2007 11:47 AM

Re: Ajustes en XBrowse. ( Resuelto )
Posted: Tue May 11, 2010 03:22 PM

gdeteran wrote:Hola Raymundo:

Yo tambien estoy cambiando TWBrowse por XBrowse
Todavia no me queda claro como debo desarrollar para XBrowse, lo equivalente a bEdit de TWBrowse.
Tu me podrias ayudar en esto por favor
De antemanos, gracias

Te adjunto un ejemplo de como lo hago, espero te sirva.

Code (fw): Select all Collapse

 oBrw:aCols[ 1 ]:nEditType := EDIT_GET          
oBrw:aCols[ 1 ]:bOnPostEdit := {|oCol, xVal, nKey| iif( nKey != VK_ESCAPE, ;
                 (oDbf:UBICACION:=upper(xVal) , oDbf:save() , oBrw:refresh() ) , ) }
oBrw:aCols[1]:cEditPicture := "@!"

Saludos.

Rolando

gdeteran

Posts: 115

Joined: Fri Oct 14, 2005 07:10 PM

Re: Ajustes en XBrowse.
Posted: Tue May 11, 2010 04:38 PM

Gracias Rolando y Raimundo

Saludos,

Gonzalo

Puerto Montt - CHILE

FWH 22.12 - Harbour 3.2.0dev (r2008190002) - Borland/Embarcadero C++ 7.0(32-bit)

Raymundo Islas M.

Posts: 592

Joined: Tue Mar 14, 2006 11:34 PM

Re: Ajustes en XBrowse.
Posted: Fri May 14, 2010 06:06 PM

Antonio/Daniel,

Sigo con mis dudas/preguntas con la clase.

El uso del metodo ToExcel() esta excelente, realmente nos ahorra mucho tiempo y codigo, sin embargo, hasta donde lo veo solo nos exporta el contenido del XBrowse, sin darnos opcion a poner al titulo/encabezado.

Me explico, si estoy alguna opcion (X) y si tomo un cliente (Y) con un rango de fechas (Z)
Estaria fenomenal si pudieramos mandar un array con estos datos y que la funcion nos los ponga como titulo/encabezado.

Code (fw): Select all Collapse

                   CONCENTRADO DE OPERACIONES         (x)
                  EL MUNDO DEL ZAPATO S.A. DE C.V.    (y)
                    DEL : 01/05/2010  AL 15/05/2010   (z)

Y a partir de aqui el contenido del XBrowse
..
..

o quizas ya lo haga, pero no se como hacerlo.

Muchas Gracias y Saludos

FWH 10.6 + xHarbour + Borland 582

Raymundo Islas M.

Posts: 592

Joined: Tue Mar 14, 2006 11:34 PM

Re: Ajustes en XBrowse.
Posted: Sun May 16, 2010 10:07 PM

Antonio/Daniel,

Otra mas :

Es muy similar a la que me pasaba al usar un array, pero ahora con un RecordSet, por mas que indico las columnas que necesito me salen todas.

De momento lo solucione "reconstruyendo" el XBrowse enseguida de obtener los datos del query y ocultando algunas columnas (con indicaciones del Sr. Rao en otros posts ), sin embargo, se mira muy "patiño".

Me explico : De un RecordSet de 4 datos solo quiero mostrar 2, al principio creo el RS vacio, mismo que se llenara de datos segun la opcion seleccionada por el usuario. Asi que cuando se muestra el browse salen las 4 columnas, al obtener datos ya me salen 2, peeero, unicamente si oculto las 2 que no deseo mostrar.

Ya cheque los valores del RS por si eran diferentes ( vease punto anterior con array ) y son de valores correctos.

Gracias y Saludos

FWH 10.6 + xHarbour + Borland 582

Daniel Garcia-Gil

Posts: 2365

Joined: Wed Nov 02, 2005 11:46 PM

Re: Ajustes en XBrowse.
Posted: Sun May 16, 2010 10:49 PM

Raymundo

como creas el browse?

our best documentation is the source code
Isla de Margarita Venezuela.
danielgarciagil@gmail.com
http://tdolphin.blogspot.com/
https://www.dropbox.com/referrals/NTI5Njk4MDc1OQ?src=global9

Raymundo Islas M.

Posts: 592

Joined: Tue Mar 14, 2006 11:34 PM

Re: Ajustes en XBrowse.
Posted: Wed May 19, 2010 04:39 PM

Daniel,

Perdon por no contestarte pronto, pero estuve checando algunas cosas.

Acerca del punto anterior, ya hice algunas pruebas y estoy optando por usar solo los XBrowses + arrays, dejando a un lado el XBrowse + recordSet.
Ya que siempre use arrays con el browse de Hernan, me acomoda mas generar el RS, vaciarlo a un array con GetRows() y listo.

Ahora, quiero usar el XBrowse para mostrar un archivo de texto, viendo el ejemplo que viene es facil y rapido, la unica diferencia, es que el archivo a mostrar esta encriptado.

En este momento estoy usando un RichEdit + MemoRead( DeCrypt( archivo.txt, miclave ) )

Mientras con XBrowse es tTxtFile( archivo.txt, 0 ) que me genera un object

Es necesario usar el object ?
o lo puedo hacer de otra manera.

Saludos

FWH 10.6 + xHarbour + Borland 582

elmoiquique

Posts: 336

Joined: Wed May 16, 2007 09:40 PM

Re: Ajustes en XBrowse.
Posted: Sun Oct 10, 2010 03:53 AM

como puedo sumar una columna del xbrowse

Fivewin-Xharbour 24.09, Iquique, Chile

FiveTech Support Forums