Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   incluir fuente (tipo de letra) en aplicacion Delphi (https://www.clubdelphi.com/foros/showthread.php?t=61237)

advancexz 31-10-2008 01:22:04

incluir fuente (tipo de letra) en aplicacion Delphi
 
que onda, estaba pensando en cambiar el tipo de letra que usamos en los programas, para hacerlos un poco mas atractivos, pero hasta hoy que se me ocurrio hacer el cambio me di cuenta de que los programas toman las fuentes de las que tienes instaladas en tu computadora, no viene empotrada. Mi pregunta es la siguiente: ¿Existe alguna forma de hacer que mi aplicacion tenga un tipo de fuente empotrado?, es decir que no lo tome de tu SO sino que ya la traiga??? o tendria que instalarsela al SO??

gulder 31-10-2008 06:05:25

hola advancexz como andas espero que bien bueno lo que se me ocurre es hacer lo siguiente, este truco es el numero 33 de trucomania y lo que hace es cargar el font desde una direccion especifica, que tal si tu agregas la fuente an la carpeta de tu aplicacion y con este truco podrias cargarlo aqui va:

Para cargarlo, (por ejemplo en el evento OnCreate de tu form):

Código Delphi [-]
   procedure TForm1.FormCreate(Sender: TObject);
      begin
        AddFontResource('c:\FONTS\FUENTE.TTF');
        SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
      end;

Y al salir de tu aplicación, lo liberas con:


Código Delphi [-]
procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
      begin
        RemoveFontResource('D:\FONTS\FUENTE.TTF');
        SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
      end;


espero que te funcione puesto que de casualidad en estos momentos lo estoy utilizando para lo mismo que preguntas saludes transmitiendo en directo desde mi cuarto

advancexz 31-10-2008 19:04:01

yeaaah
 
aaaa gracias Gulder, nomas que me queda la duda, ya lo puse en los dos eventos y puse una carpeta de fuentes donde tengo el exe y de ahi saque la fuente AddFontResource(pchar(ExtractFilePath(Application.ExeName)+'Fuentes\calibri.ttf'));
pero despues no se que onda, como la uso, porque puse el exe en una pc que no tiene ese tipo de fuente y no la cargo, que estare haciendo mal???

egostar 31-10-2008 19:42:45

Cita:

Empezado por advancexz (Mensaje 323614)
porque puse el exe en una pc que no tiene ese tipo de fuente y no la cargo, que estare haciendo mal???

:rolleyes::rolleyes::rolleyes:

Salud OS

advancexz 31-10-2008 19:47:23

no, no, no
 
creo que no me explique, la otra makina no tiene instalado el tipo de fuente, pero en la misma carpeta donde esta el exe tengo una que se llama fuentes y ahi tengo la fuente, obviamente lo que queria hacer era no instalar la fuente, sino jalarla de una ubicacion especifica
;)


La franja horaria es GMT +2. Ahora son las 12:11:58.

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