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;
procedure TForm1.FormDestroy(Sender: TObject; var Action: TCloseAction) ;
begin
RemoveFontResource('C:\FONTS\MyFont.TTF') ;
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0) ;
end;
Saludos.