Ver Mensaje Individual
  #3  
Antiguo 31-07-2006
madriles madriles is offline
Miembro
 
Registrado: may 2003
Ubicación: madrid
Posts: 93
Reputación: 22
madriles Va por buen camino
usar fuentes temporalmente

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
Responder Con Cita