Delphi - Como incrustar fuentes

Hola

He notado que si le asigno un tipo de letra a un label u otro componente, si corro el programa en otra maquina que no tenga ese tipo de letra, el componente adopta un tipo de letra estandar.

Queria preguntarles como puedo hacer para el tipo de letra se incruste en el componente y se muestre sin importar que la maquina donde se ejecuta tenga o no ese tipo de letra.

Muchas Gracias

Roberto

En el Boletín Pascal #25 publiqué un artículo sobre como incrustar archivos en un ejecutable:

http://www.latiumsoftware.com/es/pascal/0025.php#5

Puedes incrustar una fuente por ejemplo poniendo esta línea en el archivo de .RC:

fuente_ttf FONT fuente.ttf

Luego, cuando tu aplicación se ejecuta la guardas en un archivo:

SaveResourceAsFile('fuente_ttf', 'FONT', 'fuente.ttf');

O puede ser a un archivo temporal:

fuente := SaveResourceAsTmpFile('fuente_ttf', 'FONT');

Luego debes registrarla con la API AddFontResource:

HFuente := AddFontResource(''fuente.ttf');

O si la guardaste con fuente := SaveResourceAsTmpFile entonces el nombre del archivo está en la variable fuente:

HFuente := AddFontResource(fuente);

Cuando tu aplicación termina, remueves la fuente:

RemoveFontResource(HFuente);

Y en el caso de un archivo temporal, lo eliminas.

Espero que te sirva.

Ernesto De Spirito
http://www.latiumsoftware.com/es/index.php