Embeber font en executable

[Caroso]

Hola muchachos yo de nuevo con una consulta... alguno de ustedes podría decirme si es posible.. y de ser así como hacer... para agregar un archivo tff (fuente) dentro del ejecutable del proyecto... eh estado buscando por varios lados... pero no eh logrado agregarlo dentro... desde ya muchas gracias..

Saludos:)

[ecfisa]

Hola Caroso.

Podes incluir el font como recurso, ejemplo:

Archivo font.rc

MFONT CORBEL "C:\Windows\Fonts\corbel.ttf"


Delphi:

...
{$R font.res}
procedure TForm1.FormCreate(Sender: TObject);
begin
with TResourceStream.Create(hInstance, 'MFONT', 'CORBEL') do
try
SavetoFile('Corbel.ttf');
AddFontResource('Corbel.ttf');
SendMessage(HWND_BROADCAST, WM_FONTCHANGE,0,0);
finally
Free;
end;
Label1.Font.Charset := SYMBOL_CHARSET;
Label1.Font.Size := 13;
Label1.Font.Name :='Corbel';
end;

Encontrarás variaciones de este código pegando una recorrida en la web, pero en esencia es la idea...

Saludos. :)

[Caroso]

muchísimas gracias ecfisa por tu respuesta... ahora lo pruebo...

saludos... :)

[ecfisa]

Hola Caroso.

Me olvidé un detalle... :o

Para crear el archivo .res, desde el símbolo de sistema:

C:\RUTA\brc32 -r -v font.rc

Donde RUTA dependerá de la versión de Delphi pero estará en ...\bin.
(Particularmente me queda mas cómodo y menos propenso a errores copiar y pegar el archivo brc32.exe en el directorio de trabajo del proyecto y así evitar la larguísima ruta)

Saludos. :)