No puedo cambiar el Font

[helvant]

Muy buenas, por fin estoy arrancando.....

estoy intentando cambiar el font de la window y del dialog, pero no hay forma:

- cuando le digo que quiero cambiar el Font del window no me hace caso, el título sigue en el Font del sistema y los MsgInfo igual, no se lo que estoy haciendo mal:

• DEFINE FONT oApp:oMainFont NAME "Calibri" SIZE 0, -12
  
  DEFINE WINDOW oApp:oWnd TITLE oApp:cSistema + " - " + oApp:xVersion ICON oApp:oIcon
  
  oApp:oWnd:SetFont( oApp:oMainFont )
  
  SET MESSAGE OF oApp:oWnd TO oApp:cEmpresa DATE KEYBOARD FONT oApp:oMainFont
  
  ACTIVATE WINDOW oApp:oWnd MAXIMIZED //ON INIT oApp:oWnd:SetFont( oApp:oMainFont )

en el MESSAGE si funciona, tambien, como se ve, lo he intentado en el ON INIT, pero nada, el título sigue en el font del sistema

También lo he intentado en el DIALOG :

DEFINE DIALOG oDlg NAME "REINDEX" WINDOW oApp:oWnd FONT oApp:oMainFont

pero nada, el título del dialog sigue en el font del sistama

¿que me falta o hago mal?

he mirado por el foro pero no encuentro respuesta por eso escribo.

Muchas gracias

[FranciscoA]

Hola, mira este post.
http://fivetechsupport.com/forums/viewt ... le#p143503
Saludos.

[helvant]

Bueno, perdona pero lo que se habla en ese post no tiene nada que ver con lo que yo digo, el quiere poner el título en el centro, yo lo que quiero es que mi aplicación use el font que yo quiero, lo consigo con componentes individuales, pero los títulos de los dialogs, el del window principal y los de los mensages emergentes no se cambian, siguen con el font del sistema.

Muchas gracias de todas formas.

[Pedro]

Hola helvant

¿puedes hacer estas pruebas a ver si te cambia la letra?
Te digo esto porque yo he hecho la última prueba, con diferentes tipos de letras y formatos (Bold, Italic) y me cambia el tipo y el formato a ver si en alguna de las pruebas notas que no toma el dato, bien de la ventana o del font

1

Code: Select all

DEFINE FONT oApp:oMainFont NAME "Calibri" SIZE 0, -12
DEFINE WINDOW oWnd TITLE oApp:cSistema + " - " + oApp:xVersion ICON oApp:oIcon
           oWnd:SetFont( oApp:oMainFont )

SET MESSAGE OF oWnd TO oApp:cEmpresa DATE KEYBOARD FONT oApp:oMainFont

ACTIVATE WINDOW oWnd MAXIMIZED 
 

2

Code: Select all

DEFINE FONT oMainFont NAME "Calibri" SIZE 0, -12
DEFINE WINDOW oApp:oWnd TITLE oApp:cSistema + " - " + oApp:xVersion ICON oApp:oIcon
           oApp:oWnd:SetFont( oMainFont )

SET MESSAGE OF oApp:oWnd TO oApp:cEmpresa DATE KEYBOARD FONT oMainFont

ACTIVATE WINDOW oWnd MAXIMIZED 
 

3

Code: Select all

DEFINE FONT oMainFont NAME "Calibri" SIZE 0, -12
DEFINE WINDOW oWnd TITLE oApp:cSistema + " - " + oApp:xVersion ICON oApp:oIcon
           oWnd:SetFont( oMainFont )

SET MESSAGE OF oWnd TO oApp:cEmpresa DATE KEYBOARD FONT oMainFont

ACTIVATE WINDOW oWnd MAXIMIZED 
 

[helvant]

Muchas gracias Pedro, no hay forma, he cambiado el tipo de font, aunque no es uno raro, pero no me fiaba, ni el "Courier" me lo acepta, lo curioso es que el font de los botones si _, pero ni los títulos de las ventanas (window y dialog) ni los mensages emergentes.

Saludos

[Antonio Linares]

El tamaño del font usado en el título y en los mensajes emergentes, es algo que se configura desde el Panel de control para todo Windows.

Es decir, Windows no permite de forma estandard el modificar esos fonts solo en una aplicación.

[helvant]

Perdona Antonio pero no te entiendo, me dices que solo se puede cambiar desde una aplicación..... ¿ eso quiere decir que no puedo cambiar el font de los títulos y los mensajes emergentes de mi programa ?, ¿a que aplicación te refieres ?

Muchas gracias