Schriftart mitliefern?

[TheAn00bis]

Eine Frage hätte ich doch noch:

Wenn ich jetzt statt einer Schriftart mehrere einfügen will, kann ich dann in die myfont.rc einfach mehrere Schriftarten reinschreiben? Also z.B.:

Zitat:

MY_FONT fontname1 "fontname1.ttf"
MY_FONT1 fontname2 "fontname2.TTF"
MY_FONT2 fontname3 "fontname3.TTF"
MY_FONT3 fontname4 "fontname4.ttf"

Die brrcc32.exe hat beim compilieren keinen Fehler gemeldet, allerdings weiß ich nicht, was ich jetzt statt:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var
 res : TResourceStream;
begin
 res := TResourceStream.Create(hInstance, 'My_FONT', Pchar('SMILLY'));
 res.SaveToFile('SMILLY.ttf');
 res.Free;
 AddFontResource(PChar('SMILLY.ttf'));
 SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
end;

[von hier]

schreiben muss.

Muss ich das dann 4mal aufrufen, mit

'My_Font' ersetzt durch MyFont1, MyFont2, MyFont3 und Myfont4? (und natürlich den Namen noch...)

?

Oder brauche ich für jede Schriftart eine eigene Datei?