Usar fuentes no instaladas en Lazarus
 

Hola.

¿Es posible en Lazarus usar fuentes que no se han instalado?, ¿alguien sabe cómo hacerlo o donde hay algún enlace que explique cómo hacerlo?.

He buscado y he encontrado este código (para Delphi), pero no funciona en Lazarus (uso la versión 1.6).

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject) ;
 begin
 
   AddFontResource('c:\FONTS\MyFont.TTF') ;
   SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0) ;
 end;
 
{Before application terminates we must remove our font:}
 procedure TForm1.FormDestroy(Sender: TObject; var Action: TCloseAction) ;
 begin
   RemoveFontResource('C:\FONTS\MyFont.TTF') ;
   SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0) ;
 end;

Saludos.

Hola,

Igual tienes que declarar la función o algo, pero, "AddFontResource" pertenece al API de Windows y no a Delphi en particular.

Gracias por tu comentario David. Pensaba que pertenecía a Delphi.

He encontrado una explicación detallada en este enlace:

http://www.pascalgamedevelopment.com...in-application

Incluí ShellAPI en el uses y añadí el código del enlace anterior, y da errores al compilar.

Uno de los mensajes que aparecen es:
"Error: Identifier not found "AddFontResource""

Y lo mismo pasa con: RemoveFontResource, SendMessage, HWND_BROADCAST y WM_FONTCHANGE cuando se compila.

No tengo experiencia usando las órdenes del API de Windows y supongo que falta algo que desconozco.

¿Alguien tiene alguna sugerencia?.

Gracias y saludos.

He probado el código de
en Delphi 7 con Windows XP y funcionó sin problema.

Esa aplicación la convertí en una aplicación Lazarus usando Lazarus y no dió problemas en la conversión.

Sin embargo, al compilar, aparecieron los mismos errores, aunque no consideraba como un error 'WM_FONTCHANGE', cosa que sí que ocurría en mis anteriores intentos.

Supongo que Lazarus no puede trabajar con órdenes como esa o hay que hacer algo que desconozco.

Saludos.