FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour problemas con xbrowse
Posts: 37
Joined: Fri Jan 02, 2009 03:12 PM
problemas con xbrowse
Posted: Fri Jan 21, 2022 02:59 PM

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

Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: problemas con xbrowse
Posted: Fri Jan 21, 2022 03:30 PM

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

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
Posts: 37
Joined: Fri Jan 02, 2009 03:12 PM
Re: problemas con xbrowse
Posted: Fri Jan 21, 2022 03:39 PM

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

Posts: 6755
Joined: Wed Feb 15, 2012 08:25 PM
Re: problemas con xbrowse
Posted: Fri Jan 21, 2022 03:47 PM

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

Cristobal Navarro

Hay dos tipos de personas: las que te hacen perder el tiempo y las que te hacen perder la noción del tiempo

El secreto de la felicidad no está en hacer lo que te gusta, sino en que te guste lo que haces
Posts: 37
Joined: Fri Jan 02, 2009 03:12 PM
Re: problemas con xbrowse
Posted: Fri Jan 21, 2022 03:50 PM

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
Posts: 37
Joined: Fri Jan 02, 2009 03:12 PM
Re: problemas con xbrowse
Posted: Fri Jan 21, 2022 03:52 PM

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

pasa lo mismo

Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: problemas con xbrowse
Posted: Fri Jan 21, 2022 05:44 PM

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

Saludos.

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 37
Joined: Fri Jan 02, 2009 03:12 PM
Re: problemas con xbrowse
Posted: Fri Jan 21, 2022 07:40 PM

Estan Como locales

Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
Re: problemas con xbrowse
Posted: Fri Jan 21, 2022 10:51 PM
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 (fw): Select all Collapse
   LOCAL oFontNew

   ACTIVATE DIALOG...

   oFontNew:End()


Regards, saludos.
João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 37
Joined: Fri Jan 02, 2009 03:12 PM
Re: problemas con xbrowse
Posted: Tue Jan 25, 2022 01:22 AM

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

Posts: 1816
Joined: Wed Oct 26, 2005 02:49 PM
Re: problemas con xbrowse
Posted: Thu Jan 27, 2022 04:51 PM

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

Voy a probar sus sugerencias (Local oFont)

Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Turbo Incremental Link64 6.98 Embarcadero 7.70 ] [ FiveWin 25.01 ] [ xHarbour 64 bits) ]

Continue the discussion