Ich habe hier eine Schriftart, die ich für mein Programm benutzen will. Blöderweise heisst die (intern) Terminal, obwohl es eine andere Schriftart ist, als die "Terminal" des Systems.
Wie kann ich nun meine Schriftart benutzen? Wenn ich sie mit dem folgenden Code lade, wird leider trotzdem die System-Terminal verwendet
Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
begin
AddFontResource(PChar('schriftart.fon'));
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
Memo1.Font.Name:='Terminal';
end;
procedure TForm1.FormDestroy(Sender: TObject);
begin
RemoveFontResource(PChar('schriftart.fon'));
SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
end;
MfG Z4ppy
PS.: Oder weiss jemand eine Möglichkeit, den Fontnamen zu ändern? Alle meine bisherigen Versuche sind leider gescheitert