Ir al contenido



Foto

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


  • Por favor identifícate para responder
3 respuestas en este tema

#1 razadi

razadi

    Advanced Member

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

Escrito 25 septiembre 2009 - 08:08

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
  • 7.408 mensajes
  • LocationRepública Dominicana

Escrito 25 septiembre 2009 - 08:48

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 mensajes
  • LocationMéxico D.F.

Escrito 25 septiembre 2009 - 09:48

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
  • 2.137 mensajes

Escrito 11 octubre 2009 - 10:21

Buen aporte amigo.
Gracias
  • 0