Cita:
Empezado por odiseeus
...
Adicionalmente como se configura para usar un archivo de fuente de letras (Recurso tipo: FONT) en el programa, sé que es mucho pedir... pero Gracias
|
Hola odiseus.
Ejemplo, archivo
FONT.RC :
Cita:
MFONT CORBEL "C:\WINDOWS\FONTS\CORBEL.TTF"
|
Generar .RES:
Código:
...
#pragma resource "FONT.RES" // ó "C:\\UBICACION_DEL_RES\\FONT.RES"
TFont *GlobalFont;
// Cargar font
void __fastcall TForm1::FormCreate(TObject *Sender)
{
TResourceStream *res = new TResourceStream((int)HInstance, "MFONT", "CORBEL");
if (AddFontResource("CORBEL.TTF")==0)
MessageBox(Handle,"Error al cargar el font","",MB_ICONERROR);
else {
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
GlobalFont = new TFont;
GlobalFont->Charset = SYMBOL_CHARSET;
GlobalFont->Name = "corbel";
}
delete res;
}
// Uso:
void __fastcall TForm1::Button1Click(TObject *Sender)
{
Edit1->Font->Assign(GlobalFont);
Edit1->Font->Size = 14;
}
void __fastcall TForm1::FormDestroy(TObject *Sender)
{
delete GlobalFont;
}
Saludos