xbrowse con diferentes fuentes y tipos de letra

xbrowse con diferentes fuentes y tipos de letra

Postby José Luis Sánchez » Wed Nov 12, 2008 9: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,
User avatar
José Luis Sánchez
 
Posts: 556
Joined: Thu Oct 13, 2005 9:23 am
Location: Novelda - Alicante - España

Postby Daniel Garcia-Gil » Wed Nov 12, 2008 9: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...
Code: Select all  Expand view  RUN
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  RUN
oBrw:aCols[ MB_SALDO ]:bClrStd := {|| if ( val( oBrw:aRow[ MB_SALDO ] ) > 0, {negro, blanco}, {rojo,blanco} )}
User avatar
Daniel Garcia-Gil
 
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 pm
Location: Isla de Margarita

Postby joseluisysturiz » Thu Nov 13, 2008 2: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!
User avatar
joseluisysturiz
 
Posts: 2064
Joined: Fri Jan 06, 2006 9:28 pm
Location: Guatire - Caracas - Venezuela

Postby Daniel Garcia-Gil » Thu Nov 13, 2008 4: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()
Code: Select all  Expand view  RUN
   DEFAULT ::oDataFont   := ::oBrw:oFont,;
           ::oHeaderFont := ::oBrw:oFont,;
           ::oFooterFont := ::oBrw:oFont,;
           ::oEditFont    := ::oBrw:oFont //<====agrega esto


en el metodo Edit()
Code: Select all  Expand view  RUN
   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  RUN
   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
User avatar
Daniel Garcia-Gil
 
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 pm
Location: Isla de Margarita

Postby Carles » Thu Nov 13, 2008 6: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
Skype -> https://join.skype.com/cnzQg3Kr1dnk
User avatar
Carles
 
Posts: 1139
Joined: Fri Feb 10, 2006 2:34 pm
Location: Barcelona

Postby joseluisysturiz » Thu Nov 13, 2008 7:07 am

Carles wrote:Jose Luis,

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

Carles wrote:Image

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. :shock:
Dios no está muerto...

Gracias a mi Dios ante todo!
User avatar
joseluisysturiz
 
Posts: 2064
Joined: Fri Jan 06, 2006 9:28 pm
Location: Guatire - Caracas - Venezuela

Postby José Luis Sánchez » Thu Nov 13, 2008 11:57 am

Gracias,
User avatar
José Luis Sánchez
 
Posts: 556
Joined: Thu Oct 13, 2005 9:23 am
Location: Novelda - Alicante - España

Postby Carles » Thu Nov 13, 2008 1:07 pm

Jose Luis,

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

Image
Salutacions, saludos, regards

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

UT Page -> https://carles9000.github.io/
Forum UT -> https://discord.gg/bq8a9yGMWh
Skype -> https://join.skype.com/cnzQg3Kr1dnk
User avatar
Carles
 
Posts: 1139
Joined: Fri Feb 10, 2006 2:34 pm
Location: Barcelona

Postby Daniel Garcia-Gil » Thu Nov 13, 2008 1: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.
User avatar
Daniel Garcia-Gil
 
Posts: 2365
Joined: Wed Nov 02, 2005 11:46 pm
Location: Isla de Margarita

Postby joseluisysturiz » Thu Nov 13, 2008 2: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

Image

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... :shock:
Dios no está muerto...

Gracias a mi Dios ante todo!
User avatar
joseluisysturiz
 
Posts: 2064
Joined: Fri Jan 06, 2006 9:28 pm
Location: Guatire - Caracas - Venezuela


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 55 guests