Page 1 of 1

problemas con xbrowse

PostPosted: Fri Jan 21, 2022 2:59 pm
by arturo tamayo
Estoy tabajando con la version fwh21 y se me ha presentado un problema en xbrowse

Cuando Incicio el xbrowse defino un font

Para el proceso ejecuto un procedimiento que tambien imvolucra un xbrowse con otros datos.

Despues de ejecutar varias veces por 8 a 10 veses el proceso segundo, el fonto del xbrowse primario se deconfigura dandome un fonto mucho mas grande y en bold

Si a alguien le a ocurrido este problema como se resuelve

Gracia

Saludos
Arturo Tamayo

Re: problemas con xbrowse

PostPosted: Fri Jan 21, 2022 3:30 pm
by cnavarro
Arturo, eso es porque en algún momento se destruye el font, habitualmente porque no se asigna correctamente en algún control.

Re: problemas con xbrowse

PostPosted: Fri Jan 21, 2022 3:39 pm
by arturo tamayo
Hola,

si esopense pero he buscado y no encuentro ningun proceso que destruya el font,

es posible que tenga que destruir los fonts del segundo xbrowse para evitar este problema

Saludos

Re: problemas con xbrowse

PostPosted: Fri Jan 21, 2022 3:47 pm
by cnavarro
Arturo, pon aquí cómo asignas el font al Xbrowse

Re: problemas con xbrowse

PostPosted: Fri Jan 21, 2022 3:50 pm
by arturo tamayo
ahi va

DEFINE FONT ofont0 NAME "Segoe UI" SIZE 0,-11

@30,214 XBROWSE oLbx;
FIELDS partfil(Computos->partid),;
xPadl(str(computos->Correl,4,0),30),;
strtran(Computos->Detall,chr(141)+chr(10),""),;
Computos->Unidad,;
Transform(Computos->VolObr,'99,999,999.99'),;
Transform(Computos->Cosdir,'9,999,999,999.999'),;
Transform(Computos->Cosdir*computos->VolObr,'99,999,999,999.99'),;
Transform(Computos->Prodia,'999,999.9999'),;
Transform(Computos->Herami,'99,999.99 %');
ALIAS "Computos"; ///
HEADERS getmensa(1105),;
getmensa(1419)+CRLF+getmensa(1333),;
getmensa(1197),;
getmensa(1571),;
getmensa(1098),;
getmensa(1445)+CRLF+getmensa(1572),;
getmensa(1547),; //+CRLF+getmensa(1001),;
getmensa(1460)+CRLF+getmensa(1301),;
getmensa(1437)+CRLF+getmensa(1297);
ON DBLCLICK (q2200Edit(oLbx,.f.,@modifico,,wCodpry,wcodpro,@wCosTot,oCosTot,,wtipcam), ;
FacMenu2200(wCodpry,@nWGa,@nWBs,@nWIv,@nWIt,@nWut,oWGa,oWBs,oWIv,oWIt,oWut)) ;
FIELDSIZES 50,40,nWincol-565-265,50,90,85,90,90,70 ; //450 -27
SIZE 165.1,nWinRow-68+8 PIXEL OF oWndChild ;
FONT oFont0

Re: problemas con xbrowse

PostPosted: Fri Jan 21, 2022 3:52 pm
by arturo tamayo
hice la prueba quitandole el font para que que tome el que te da por default el xbrowse

pasa lo mismo

Re: problemas con xbrowse

PostPosted: Fri Jan 21, 2022 5:44 pm
by karinha
LOCAL ó PUBLIC? Se PUBLIC, no use. Use siempre LOCAL.



Saludos.

Re: problemas con xbrowse

PostPosted: Fri Jan 21, 2022 7:40 pm
by arturo tamayo
Estan Como locales

Re: problemas con xbrowse

PostPosted: Fri Jan 21, 2022 10:51 pm
by karinha
Buenas noches, en todos mis años de FiveWin, este és un caso muy raro. Sería interesante entonces, a efectos de estudio y aprendizaje, que pudieras hacer un pequeño ejemplo para que hagamos pruebas con él y descubramos esta magia. En caso de duda cambiar la FUENTE por cualquier otra y su nombre, por ejemplo oFontNew para ver el resultado, por favor.

Code: Select all  Expand view

   LOCAL oFontNew

   ACTIVATE DIALOG...

   oFontNew:End()
 


Regards, saludos.

Re: problemas con xbrowse

PostPosted: Tue Jan 25, 2022 1:22 am
by arturo tamayo
Bueno siguiendo con el tema del xbrowse

les comento que no escontre las causas de este error

solo se perdio cuando hice que el xbrowse primario no tenga definido un fonto y tome el del sistema dinino como default

En conclusión voy a ver si medot tiempo hare un ejemplo que genere este cambios de font

regard, saludos

Re: problemas con xbrowse

PostPosted: Thu Jan 27, 2022 4:51 pm
by leandro
A mi me sucede exactamente lo mismo, gracias karinha y Cristobal

Voy a probar sus sugerencias (Local oFont)