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

Paola Bruccoleri pbruccoleri en adinet.com.uy
Dom Oct 27 14:57:13 CET 2013


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>


More information about the Lazarus-es mailing list