topic-26706

Posts: 682

Joined: Tue Feb 14, 2006 09:48 AM

font xBrowse desde recurso
Posted: Tue Jul 02, 2013 04:46 PM

Al crear un dialogo desde recursos, por defecto se usa el fuente definido en el dialogo al diseñarlo en el editor de recuros (normal).

Si dicho dialogo incorpora un xBrowse, al crearse el xbrowse hace que se cambie el font de todos los controles del dialogo por otro distinto al definido en el diálogo.

Por lo que veo, esto es debido que en el momento de crear el xBrowse, el dialogo todavia no esta incializado y no tiene font definido.
En el método new de xBrose se ejecuta el siguiente código

Code (fw): Select all Collapse

   if oWnd:oFont == nil
         oWnd:GetFont()
      endif
      ::oFont := oWnd:oFont

que hace que varie el font de todo el dialogo.
Se os ocurre alguna alternativa sin necesidad de añadir un oDlg:SetFont, ni cambiar xBrowse.

Saludos desde Mallorca
Biel Maimó
http://bielsys.blogspot.com/

Biel EA6DD

Posts: 682

Joined: Tue Feb 14, 2006 09:48 AM

Re: font xBrowse desde recurso
Posted: Fri Aug 23, 2013 07:50 AM

+1

Saludos desde Mallorca
Biel Maimó
http://bielsys.blogspot.com/

cnavarro

Posts: 6755

Joined: Wed Feb 15, 2012 08:25 PM

Re: font xBrowse desde recurso
Posted: Fri Aug 23, 2013 07:59 AM

Hola
Creas el XBrowse entre el DEFINE DIALOG y el ACTIVATE o en el ON INIT del ACTIVATE?

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

Biel EA6DD

Posts: 682

Joined: Tue Feb 14, 2006 09:48 AM

Re: font xBrowse desde recurso
Posted: Fri Aug 23, 2013 09:52 AM

cnavarro wrote:Hola
Creas el XBrowse entre el DEFINE DIALOG y el ACTIVATE o en el ON INIT del ACTIVATE?

Hola Cristobal,
Si creo el xBrowse entre DEFINE y ACTIVATE, como el resto de controles.

Code (fw): Select all Collapse

   DEFINE DIALOG oDlg RESOURCE "TPV"
   ...
   REDEFINE SAY PROMPT DToC(Date()) ID 403 OF oDlg
   ...
   oBrw := txBrowse():New( oDlg )
   WITH OBJECT oBrw
      :cAlias:='det'
      ...
      :SetRdd()
      :CreateFromResource(301)
   END
   ACTIVATE DIALOG oDlg CENTERED ON INIT ( IniBtn( ) ) VALID (Salir())

Saludos desde Mallorca
Biel Maimó
http://bielsys.blogspot.com/

albeiroval

Posts: 400

Joined: Tue Oct 16, 2007 05:51 PM

Re: font xBrowse desde recurso
Posted: Fri Aug 23, 2013 02:34 PM

Biel,

Yo lo hago asi :

Code (fw): Select all Collapse

  DEFINE FONT oFont NAME "TAHOMA" SIZE 0,-12
  
  DEFINE DIALOG oDlg RESOURCE "Calendario" TITLE cTitulo ICON oApp:aRes[ ICON_FINGER ] FONT oFont

  REDEFINE SAY ....... OF oDlg

  REDEFINE GET ..... OF oDlg

  REDEFINE XBROWSE ..... OF oDlg

  REDEFINE BTNBMP .... OF oDlg

  ACTIVATE DIALOG oDlg ..

Como vez cuando le asigno el font al dialogo al crearlo me hereda el mismo font para todos los demas controles que
pertenescan a el dialogo.

Espero te sirva.

Saludos,

Albeiro,

Saludos,
Regards,

Albeiro Valencia
www.avcsistemas.com

Biel EA6DD

Posts: 682

Joined: Tue Feb 14, 2006 09:48 AM

Re: font xBrowse desde recurso
Posted: Fri Aug 23, 2013 04:07 PM

Cierto, si especificas el font en el momento de definir el dialogo, funciona correctamente, al igual que si ejecutas oDlg:SetFont(). Debido a que oDlg:oFont ya no es nulo, y xBrowse no tiene neceisdad de ejecutar GetFont().

El tema es que yo no defino el font en el prg, simplemente espero que se utilice el que está definido en el fichero de recursos.

Entiendo que la función DialogBox()( que se ejeucta al realizase el activate del dialogo), lee el recurso y recupera el font definido en él, siempre que oFont sea NIL, y eso deja de ser cierto si antes hemos creado un xBrowse, puesto que ha necistado del font, y al ejecutar GetFont asigna el font al dialogo.

O algo así, realemente el que sabe exactamente lo que hace es Antonio.

Puedo sobrevivir con ese comportamiento, solo era por si habia alguna forma sin definir el font, para que todos los objetos contenidos en el dialogo usasen el font especificado en el editor de recursos.

Saludos desde Mallorca
Biel Maimó
http://bielsys.blogspot.com/

albeiroval

Posts: 400

Joined: Tue Oct 16, 2007 05:51 PM

Re: font xBrowse desde recurso
Posted: Fri Aug 23, 2013 04:44 PM

Biel,

Tienes razon, no lo habia probado definiendo el font desde recursos, Ya es un tema para Antonio o el Sr. Rao.

Saludos,

Saludos,
Regards,

Albeiro Valencia
www.avcsistemas.com

FiveTech Support Forums

Continue the discussion