Sign in Join

Live chat for Free Pascal, Lazarus, Delphi and every Pascal programmer.

Mailing lists / lazarus-es / 2013-10

Usar fuentes (fonts) no estandar o no installadas en lazarus

2 messages · 2 people ·

Reply by email Subscribe to this list Your subscription

Read-only archive. Use j and k to move between messages.

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.freepascal.org/pipermail/lazarus-es/attachments/20131026/5d956840/attachment.html>

Reply by email

Paola Bruccoleri
to metal box

El 26/10/2013 23:05, metal box escribi�:

Show quoted text 18 lines
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.freepascal.org/pipermail/lazarus-es/attachments/20131027/50528b26/attachment.html>

Reply by email