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:

Código 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...

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.