Extraer Archivo de los recursos

[ecfisa]

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 :

MFONT CORBEL "C:\WINDOWS\FONTS\CORBEL.TTF"

Generar .RES:

brc32 -r -v FONT.RC

...
#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