Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Tipo de letra (https://www.clubdelphi.com/foros/showthread.php?t=73684)

acertij022 10-05-2011 01:09:03

Tipo de letra
 
Hola delphianos alguna alma caritativa me podría indicar como incorporar una duente ( tipo de letra) para usarlo en las cajas de textos. Espero con ansias sus comentarios

ecfisa 10-05-2011 01:51:12

Hola.

Revisá este enlace: agregar fonts .

A los fonts instalados accedes desde la propiedad Font del componente.

Un saludo.

acertij022 10-05-2011 03:25:05

Muchas gracias por la rapides!!! es justamente lo que estaba buscando

acertij022 10-05-2011 05:23:04

lamentablemente el codigo no me funciona, al intentar agregar una fuente al crearse elformulario:

AddFontResource('D:\FONTS\FUENTE.TTF');
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);

al ejecutar la 2° linea deja de responder laaplicacion, supongo que queda esperando una respuesta que nunca llega

radenf 10-05-2011 12:58:46

Estimado acertij022 :

Si sigues las indicaciones que coloqué en el post de referencia y no modificas el código te debería funcionar sin problemas.
Saludos

acertij022 10-05-2011 13:50:26

Buenos días randef, he colocado como indicas en el post los 2 procedure y lo llamo en el form principal en los eventos que mencionas pero igualmente al ejecutar CargarFuente deja de responder la aplicación al hacer la llamada a sendmessage será que falta colocar una referencia en uses?

Como dato adicional estoy utilizando Delphi 6 con una pc con Windows 7 ejecutando Delphi en modo administrador

acertij022 10-05-2011 14:28:16

Buscando una solución encontré que otros delphianos tuvieron el mismo problema http://www.clubdelphi.com/foros/showthread.php?t=65723

radenf 11-05-2011 03:05:07

Estimado acertij022 :

El truco no es de mi creación. Lo obtuve en Trucomania.
Yo lo ocupo en casi todos mis programas y siempre me ha funcionado sin problemas.
Recuerda que debes copiar la fuente que quieres utilizar en la carpeta de tu ejecutable, porque si la llamas y está en otra ubicación obviamente no la va a encontrar.

Salu2

acertij022 12-05-2011 20:33:38

alguien sabe como instalar una fuente en el sistema sin usar la llamada:
Código Delphi [-]
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0)

Si es que a alguien le funciona hacer la llamada me podrían indicar con que versión del entorno realizó la prueba

olbeup 13-05-2011 08:13:57

Para instalar una fuente nueva, tienes que ir a C:\Windows\Fonts, Pulsar en el menú Archivo -> Instalar nueva fuente... y decirle donde están las fuentes nuevas que quieres instalar

Un saludo

acertij022 13-05-2011 11:27:57

Gracias Olbeup pero me refería instalarlo atraves de código sin usar la llamada a la api SendMessage ya que al hacerlo me paraliza la aplicación.


La franja horaria es GMT +2. Ahora son las 18:12:53.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi