problemas con xbrowse

[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

[cnavarro]

Arturo, eso es porque en algún momento se destruye el font, habitualmente porque no se asigna correctamente en algún control.

[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

[cnavarro]

Arturo, pon aquí cómo asignas el font al Xbrowse

[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

[arturo tamayo]

hice la prueba quitandole el font para que que tome el que te da por default el xbrowse

pasa lo mismo

[karinha]

LOCAL ó PUBLIC? Se PUBLIC, no use. Use siempre LOCAL.



Saludos.

[arturo tamayo]

Estan Como locales

[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  RUN

   LOCAL oFontNew

   ACTIVATE DIALOG...

   oFontNew:End()
 

Regards, saludos.

[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

[leandro]

A mi me sucede exactamente lo mismo, gracias karinha y Cristobal

Voy a probar sus sugerencias (Local oFont)