FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour xbrowse con diferentes fuentes y tipos de letra
Posts: 564
Joined: Thu Oct 13, 2005 09:23 AM
xbrowse con diferentes fuentes y tipos de letra
Posted: Wed Nov 12, 2008 09:35 PM

Hola,
es posible en un xbrowse crear lineas que tengan distintos tipos o colores de letra en la misma linea ? Algo como esto: http://widefido.com/products/todopaper/

Saludos,

Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
xbrowse con diferentes fuentes y tipos de letra
Posted: Wed Nov 12, 2008 09:54 PM
en la misma linea si es posible... en la misma celda no creo...
para definir distintos font en una misma linea (Row)
Para los tipos de Letra...
DEFINE FONT aFont[ 1 ] NAME 'arial' SIZE 0,-8 
		
DEFINE FONT aFont[ 2 ] NAME 'arial' SIZE 0,-10 italic

DEFINE FONT aFont[ 3 ] NAME 'arial' SIZE 0,-12 bold

....

for j = 1 to len( oBrw:aArraydata )

     oBrw:aCols[ j ]:oDataFont := {|| if ( oBrw:aRow[ MB_NIVEL ] == 1, aFont[ 1 ],;
                                     ( if ( oBrw:aRow[ MB_NIVEL ] == 2, aFont[ 2 ], aFont[ 3 ] ) ) ) }
next

Para los Colores
oBrw:aCols[ MB_SALDO ]:bClrStd := {|| if ( val( oBrw:aRow[ MB_SALDO ] ) > 0, {negro, blanco}, {rojo,blanco} )}
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
xbrowse con diferentes fuentes y tipos de letra
Posted: Thu Nov 13, 2008 02:24 AM

Aprovechando el Tips de FONT, como puedo modificar el FONT cuando estoy en edicion de celda bajo xBrowse..? se ve muy pequeño, gracias..saluods... :shock:

PostData: MCFOX, ya hice algunas adaptaciones y pruebas en la edicion de celdas del xBw. y el uso de las teclas UP y DOWN, te la envio para que lo veas a tu privado, solo falta adaptar lo de cambiar los BITMAPS en los botones cuando edito...GET_BUTTON, para que no salgan los "...", me perdi haciendo los cambios, seguire intentando.gracias..saludos. :shock:

Dios no está muerto...



Gracias a mi Dios ante todo!
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
xbrowse con diferentes fuentes y tipos de letra
Posted: Thu Nov 13, 2008 04:38 AM
creo que no se le puede cambiar el font en la edicion, pero te doy una solucion...
en la clase TXBrwColumn agrega una nueva data
oEditFont

en el metodo Adjust()
   DEFAULT ::oDataFont   := ::oBrw:oFont,;
           ::oHeaderFont := ::oBrw:oFont,;
           ::oFooterFont := ::oBrw:oFont,;
           ::oEditFont	 := ::oBrw:oFont //<====agrega esto


en el metodo Edit()
   local oFont		// < == agregar
   
   if ValType ( ::oEditFont ) == "B"        // <== agregar
         oFont = Eval( ::oEditFont, Self )  // <== agregar
	 else                                     // <== agregar
         oFont = ::oEditFont                // <== agregar
   endif                                    // <== agregar


en el mismo metodo agregar el objeto oFont al crear el get

   if Empty( cPic ) .and. ::oBrw:nDataLines > 1
      ::oEditGet := TMultiGet():New( 0,0,{ | u | If(PCount()==0,uValue,uValue:= u ) },;
                                    ::oBrw,0,0,oFont,.F.,aColors[ 1 ],aColors[ 2 ];
                                    ,,.F.,,.F.,,lCenter,lRight,.F.,,,.F.,.T.,.T. )
   else
      ::oEditGet := TGet():New( 0,0,{ | u | If(PCount()==0,uValue,uValue:= u ) },;
                               ::oBrw,0,0,cPic,,aColors[ 1 ],aColors[ 2 ];
                               ,oFont,.F.,,.F.,,.F.,,lCenter,lRight,,.F.,.f.,.T.,,.F.,,,,)
   endif

si detallas bien esta incluido el objeto oFont en la creacion de GET.
la data oEditFont se puede usar como code block u objeto

oBrw:aCols[ 1 ]:oEditFont = oFont // objeto
oBrw:aCols[ 1 ]:oEditFont = {|| if ( verdadero, oFont1, oFont2 } // code block
Posts: 1283
Joined: Fri Feb 10, 2006 02:34 PM
xbrowse con diferentes fuentes y tipos de letra
Posted: Thu Nov 13, 2008 06:50 AM
Salutacions, saludos, regards

"...programar es fácil, hacer programas es difícil..."

UT Page -> https://carles9000.github.io/
Forum UT -> https://discord.gg/bq8a9yGMWh
HIX -> https://github.com/carles9000/hix
Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
xbrowse con diferentes fuentes y tipos de letra
Posted: Thu Nov 13, 2008 07:07 AM
Carles wrote:Jose Luis,

http://www.fivetechsoft.com/forums/view ... highlight=

Carles wrote:

CARLES, gracias man, pero alli esta en edicion de celda, haciendo GET o GET_BUTTON..?, eso lo hace pero navegando en el browse... como MCFOX hizo quedo listo, es decir puedo usar el FONT que quiera cuando hago edicion de columnas cambiando tipo y tamaño ....igual si tienes algun ejemplo o lo que sea sobre xBROWSE sera bienvenido... le estoy dando duro a la clase para usar en FACTURACION con la edicion por celda...saludos. :-)
Dios no está muerto...



Gracias a mi Dios ante todo!
Posts: 564
Joined: Thu Oct 13, 2005 09:23 AM
xbrowse con diferentes fuentes y tipos de letra
Posted: Thu Nov 13, 2008 11:57 AM

Gracias,

Posts: 1283
Joined: Fri Feb 10, 2006 02:34 PM
xbrowse con diferentes fuentes y tipos de letra
Posted: Thu Nov 13, 2008 01:07 PM
Jose Luis,

Piensa que con el nuevo metodo ::bPaintText puedes controlar toda la celda y pintar lo que te de la gana

Salutacions, saludos, regards

"...programar es fácil, hacer programas es difícil..."

UT Page -> https://carles9000.github.io/
Forum UT -> https://discord.gg/bq8a9yGMWh
HIX -> https://github.com/carles9000/hix
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 PM
xbrowse con diferentes fuentes y tipos de letra
Posted: Thu Nov 13, 2008 01:14 PM

gracias Carles, yo en lo personal no me habia percatado de esa posibilidad, a pesar de que he estudiado bastante la clase y me parece increible, el problema de Jose Luis era que queria cambiar el tipo de letra al momento de editar.

Posts: 2064
Joined: Fri Jan 06, 2006 09:28 PM
xbrowse con diferentes fuentes y tipos de letra
Posted: Thu Nov 13, 2008 02:13 PM
Carles wrote:Jose Luis,

Piensa que con el nuevo metodo ::bPaintText puedes controlar toda la celda y pintar lo que te de la gana


Carles, gracias por tu informacion, eso se ve super, el detalle cmo dijo MCFOX es que queria cambiar el FONT al momento de hacer edicion de celda, ahora puedo hacer ambas cosas, cambiar los FONT como me explicas al momento de navegar y al hacer la edicion de celdas, gracias a ambos por sus aportes y ayudas....saludos... :-)
Dios no está muerto...



Gracias a mi Dios ante todo!

Continue the discussion