xbrowse con diferentes fuentes y tipos de letra

[José Luis Sánchez]

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,

[Daniel Garcia-Gil]

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

Code: Select all  Expand view

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

Code: Select all  Expand view

oBrw:aCols[ MB_SALDO ]:bClrStd := {|| if ( val( oBrw:aRow[ MB_SALDO ] ) > 0, {negro, blanco}, {rojo,blanco} )}


[joseluisysturiz]

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

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.

[Daniel Garcia-Gil]

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()

Code: Select all  Expand view

   DEFAULT ::oDataFont   := ::oBrw:oFont,;
           ::oHeaderFont := ::oBrw:oFont,;
           ::oFooterFont := ::oBrw:oFont,;
           ::oEditFont    := ::oBrw:oFont //<====agrega esto


en el metodo Edit()

Code: Select all  Expand view

   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

Code: Select all  Expand view

   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

[Carles]

Jose Luis,

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

[joseluisysturiz]

Jose Luis,

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

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.

[José Luis Sánchez]

Gracias,

[Carles]

Jose Luis,

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

[Daniel Garcia-Gil]

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.

[joseluisysturiz]

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