Jump to content


Photo

Usara un font ttf(True Type Font) que no se encuentre instalado en windows


  • Please log in to reply
3 replies to this topic

#1 razadi

razadi

    Advanced Member

  • Miembro Platino
  • PipPipPip
  • 681 posts
  • LocationMéxico D.F.

Posted 25 September 2009 - 08:08 AM

Hola comuneros,

aquí de paso saludandolos y aprovechando para dejarles algunos codes que en alguna ocación use o sigo usando, espero les sirva tanto como a mi sirvieron o me sirven.

Antes que otro código, primero escriba estas lineas en su create de la form principal para declarar el font a utilizar



delphi
  1. ...
  2. begin
  3.   AddFontResource('c:\mis fuentes\fuente.ttf');
  4.   SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
  5.   ...



cuando se cierra el sistema ubiquen este otro fragmento de código en el destroy de la form para desinstalar el font


delphi
  1.   ...
  2.   RemoveFontResource('c:\mis fuentes\fuente.ttf');
  3.   SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);



Saludos  (y) (y) (y)
  • 0

#2 enecumene

enecumene

    Webmaster

  • Administrador
  • 7419 posts
  • LocationRepública Dominicana

Posted 25 September 2009 - 08:48 AM

Vaya, primera vez que veo acerca de esas dos funciones, ¿es más factible usar eso que un archivo de recursos?.

Saludos.
  • 0

#3 razadi

razadi

    Advanced Member

  • Miembro Platino
  • PipPipPip
  • 681 posts
  • LocationMéxico D.F.

Posted 25 September 2009 - 09:48 AM

Hola, pues, al menos a mí si me simplifico el hecho de usar una font que no estaba instalada en la maquina, de los demás recurso no profundice, deja lo reviso y te comento.
  • 0

#4 Wilson

Wilson

    Advanced Member

  • Moderadores
  • PipPipPip
  • 2137 posts

Posted 11 October 2009 - 10:21 AM

Buen aporte amigo.
Gracias
  • 0




IP.Board spam blocked by CleanTalk.