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?