Einzelnen Beitrag anzeigen

Z4ppy

Registriert seit: 25. Apr 2008
269 Beiträge
 
Delphi 7 Enterprise
 
#1

Schriftart mit gleichem Namen benutzen?

  Alt 3. Dez 2008, 23:26
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
  Mit Zitat antworten Zitat