Utilizar una font en la aplicacion....

[JXJ]

Usar un font en tu aplicacion sin tener que instalarlo en Windows

http://www.q3.nu/trucomania/truco.cgi?33&esp


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;

[yoennis]

Para quien me dice que la instale en las Fonts de windows creo que no tengo acceso si estoy trabajando por un usuario restringido...

para quien me dio el truco yo lo tengo pero es que si cojo la font desde esa direccion es de las mismas de Windows

De todas formas les agradezco sus intentos pero si hay otra sujerencia hagamela llegar...Gracias

[JXJ]

enviame tu fuente o cuelgala en el rapidshare o algun otro servidor de esos


¿ya probaste cambiar la ruta=?

AddFontResource('c:\FONTS\FUENTE.TTF');

por

AddFontResource('c:\archivos de programa\tu programa\FONTS\FUENTE.TTF');

o la direccion done este tu applicacion y su carpeta de fuentes.