Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > OOP
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 26-08-2014
Jose Roman Jose Roman is offline
Miembro
 
Registrado: jul 2006
Ubicación: Colombia
Posts: 361
Poder: 18
Jose Roman Va por buen camino
Archivo RES y fuente OTF

Cordial saludo,

Deseo cargar una fuente OTF en mi aplicación por medio de una archivo RES, asi que por favor alguien que me indique que esto haciendo mal ya que no carga la fuente que deseo.

Esta es la estructura del archivo RC (el cual se llama Fuentes.rc):
Código Delphi [-]
1 RCDATA Hallo_sans.otf

Creo el archivo RES con el BRC32.exe:
Código Delphi [-]
brc32.exe -r -v Fuentes.rc

El codigo fuente es:
Código Delphi [-]
implementation

{$R *.dfm}
{$R Fuentes.res}

procedure TForm1.FormCreate(Sender: TObject);
var
  Recursos: TResourceStream;
  MiFuente: TFont;
begin
  MiFuente := TFont.Create;
  Recursos := TResourceStream.Create(hInstance,'#1',RT_RCDATA);
  MiFuente.Charset := SYMBOL_CHARSET;
  MiFuente.Name    := 'HALLO';
  Recursos.Free;
  Label1.Font.Assign(MiFuente);
  Label1.Font.Size := 16;
end;

He tratado pero no carga la fuente que deseo. Gracias de antemano.
Responder Con Cita
  #2  
Antiguo 26-08-2014
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola Jose Roman.

Revisa si te sirve este enlace: Embeber font en executable

Saludos

Edito: Ups! me apresuré, era otf. Probalo de ese modo por las dudas...
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 26-08-2014 a las 22:20:56.
Responder Con Cita
  #3  
Antiguo 26-08-2014
Jose Roman Jose Roman is offline
Miembro
 
Registrado: jul 2006
Ubicación: Colombia
Posts: 361
Poder: 18
Jose Roman Va por buen camino
Gracias por responder, pero no me da aun..
Responder Con Cita
  #4  
Antiguo 26-08-2014
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola Jose.

A ver, proba de este modo:
Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
   AddFontResource('c:\pruebas\CourierStd-Oblique.otf') ;
   SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0) ;
   Label1.Font.Name:= 'CourierStd-Oblique';
   Label1.Font.Size:= 13;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  RemoveFontResource('C:\pruebas\CourierStd-Oblique.otf') ;
  SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0) ;
end;
En la prueba que realicé funcionó correcto, por lo que tendría que ser igual desde recurso.

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....

Última edición por ecfisa fecha: 26-08-2014 a las 23:09:20.
Responder Con Cita
  #5  
Antiguo 26-08-2014
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola de nuevo.

Por si te sirviera de ayuda te adjunto la prueba con el recurso incluido, crea una carpeta y descomprimí los archivos fuentes allí.


Saludos
Archivos Adjuntos
Tipo de Archivo: zip Jose Roman.zip (64,9 KB, 1 visitas)
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
  #6  
Antiguo 26-08-2014
Jose Roman Jose Roman is offline
Miembro
 
Registrado: jul 2006
Ubicación: Colombia
Posts: 361
Poder: 18
Jose Roman Va por buen camino
Gracias ya me funciono, pero me surge la siguiente duda, como no deseo que el usuario pueda utilizar el tipo de letra, como elimino el archivo generado sin que pase por la papelera de reciclaje? como en tu ejemplo se crea con la sentencia:
Código Delphi [-]
SavetoFile('CourierStd-Oblique.otf');

Última edición por Jose Roman fecha: 26-08-2014 a las 23:23:44.
Responder Con Cita
  #7  
Antiguo 27-08-2014
Jose Roman Jose Roman is offline
Miembro
 
Registrado: jul 2006
Ubicación: Colombia
Posts: 361
Poder: 18
Jose Roman Va por buen camino
Muchas gracias ecfisa, ya solucione la otra parte, tu aporte es de mucha ayuda.
Responder Con Cita
  #8  
Antiguo 27-08-2014
Avatar de ecfisa
ecfisa ecfisa is offline
Moderador
 
Registrado: dic 2005
Ubicación: Tres Arroyos, Argentina
Posts: 10.508
Poder: 36
ecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to beholdecfisa is a splendid one to behold
Hola Jose Roman.

Esa línea me quedó de una prueba, podes eliminarla sin problemas.

Saludos
__________________
Daniel Didriksen

Guía de estilo - Uso de las etiquetas - La otra guía de estilo ....
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Fuente ean 128 newtron Varios 17 19-02-2019 14:36:01
nombre de archivo de una fuente TTF Gimli Varios 1 27-05-2011 17:39:49
Fuente EAN-13 altp Varios 11 12-03-2007 21:33:46
Código fuente chinchan C++ Builder 3 01-08-2006 05:59:25
Fuente superhopi Varios 5 20-08-2003 22:29:23


La franja horaria es GMT +2. Ahora son las 04:17:15.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi