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

[metal box]

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.


-- 
*Saludos.

Jose Daboin*
------------ próxima parte ------------
Se ha borrado un adjunto en formato HTML...
URL: <http://lists.lazarus-ide.org/pipermail/lazarus-es/attachments/20131026/5d956840/attachment-0002.html>