Cargar archivo de tipo de letra TTF

[dabas]

¿Alguien sabe como se puede cambiar el tipo de letra de un Memo por ejemplo, dado un archivo externo *.TTF?

Gracias por tu ayuda.

[[Lepe]]

El archivo TTF tienes que copiarlo en C:\windows\Fonts, despues ya puedes usarlo como otra fuente cualquiera.

Saludos

[madriles]

hola
si lo que quieres es usar una fuente determinada, pero sin cargarla en las fuentes de windows puedes hacer lo siguiente

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
   AddFontResource('RutaCompletaDeLaFuente\nombre.ttf');
   SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);
   Memo1.Font.Name := 'RutaCompletaDeLaFuente\nombre.ttf';
end;

procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
   RemoveFontResource('RutaCompletaDeLaFuente\nombre.ttf'');
   SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);
end;

para evitarte problemas es aconsejable que la fuente este en el directorio donde este tu ejecutable, aunque no es necesario.
un saludo

[dabas]

No funciona bien del todo.
Esta linea debe contener el nombre de la fuente.

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
   ...
   Memo1.Font.Name :='nombre interno de la fuente';
end;

Como obtengo dicho nombre con una funcion?
Lo que pretendo es visualizar las fuentes que tengo en una carpeta sin tener que instalarlas en windows.

PD:
Evidentemente el evento no sera FormCreate
y si cada vez que pico en una lista para cargar una fuente, ¿cuando la descargo, o libero los recursos?

Gracias.

[hackcgm]

Empezado por dabas

No funciona bien del todo.
Esta linea debe contener el nombre de la fuente.

Código Delphi [-]procedure TForm1.FormCreate(Sender: TObject); begin ... Memo1.Font.Name :='nombre interno de la fuente'; end;


Como obtengo dicho nombre con una funcion?
Lo que pretendo es visualizar las fuentes que tengo en una carpeta sin tener que instalarlas en windows.

PD:
Evidentemente el evento no sera FormCreate
y si cada vez que pico en una lista para cargar una fuente, ¿cuando la descargo, o libero los recursos?

Gracias.

como puedo cargar todos los tipos de letra de windows en un memo

[Draker]

Creo que seria mejor en un ListBox no?, jeje bueno eso digo yo, y lo harias de la siguiente manera:

Código Delphi [-]
    ListBox1.Items.Clear;
    ListBox1.Items := Screen.Fonts;
    ListBox1.ItemIndex := 0;

Claro solo las fuentes que tienes instaladas en el sistema.