[Lazarus-es] Usar fuentes (fonts) no estandar o no installadas en lazarus

[Paola Bruccoleri]

El 26/10/2013 23:05, metal box escribió:
> Encontre esto
> |procedure  TForm1.FormCreate(Sender:  TObject)  ;
> begin
>    AddFontResource('c:\FONTS\MyFont.TTF')  ;
>    SendMessage(HWND_BROADCAST,  WM_FONTCHANGE,  0,  0)  ;
> end;
>
>
> procedure  TForm1.FormDestroy(Sender:  TObject)  ;
> begin
>    RemoveFontResource('C:\FONTS\MyFont.TTF')  ;
>    SendMessage(HWND_BROADCAST,  WM_FONTCHANGE,  0,  0)  ;
> end;
>
> |
> |Esta interesante, solo lo coloco por compartir.
> |
>
Hola José, muchas gracias por compartirlo!
buen fin de semana!
byeeeeeee

------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20131027/50528b26/attachment-0002.html>