Fonts in Delphi

[Listener666]

Ich habe in einem meiner Programme Schriften eingebunden, die nicht zum Windows-Standart gehören.Kann ich diese irgendwie so in mein Programm einbinden, dass sie auf jedem Rechner angezeigt werden?Also quasi dazuladen?
Vielen Dank schon jetz.

[Dagon]

Ja, es ist möglich, Schriftarten nur temporär zu installieren (also während des Programm läuft). Ich habe sowas schonmal gemacht, aber ich finde das Programm auf meinem Rechner gerade nicht.

[Dagon]

Ich habs dochnoch gefunden!

Wie folgt installierst/deinstallierts du eine Schrift (im Quelltext eingeben):

Delphi-Quellcode:

program Project2;

uses
  Forms, windows, sysutils, messages,
  
Unit1 in 'Unit1.pas' {Form1};

{$R *.RES}

begin
  // Anmelden der Schrift:
  AddFontResource(Pchar(ExtractFilePath(ParamStr(0))+'NAME DER SCHRIFFT'));
  SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);

  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
  
  // Schrift abmelden
  RemoveFontResource(pchar(ExtractFilePath(ParamStr(0))+'NAME DER SCHRIFFT'));
  SendMessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);
end.

Im Programm schreibst du dann einfach (als Beispiel):
Edit1.Font.Name := 'Name der Schrifft';

[Listener666]

Beim Namen der Schrift muss ich doch wohl den Dateiname angeben,oder wie?Ausserdem muss sich die Schrift ungepackt im Verzeichnis des programms befinden und ich muss sie auch immer beim Programm lassen wenn ich es z.B. weitergebe,oder?
Sorry für die blöden Fragen,aber ich bin neu hier...

[Dagon]

Zitat:

Beim Namen der Schrift muss ich doch wohl den Dateiname angeben,oder wie?

Ja, der Dateiname der Schriftdatei (ohne Pfad).

Zitat:

Ausserdem muss sich die Schrift ungepackt im Verzeichnis des programms befinden und ich muss sie auch immer beim Programm lassen wenn ich es z.B. weitergebe,oder?

Ja

Zitat:

Sorry für die blöden Fragen,aber ich bin neu hier...

Macht nichts!

Ich hoffe ich konnte dir dadurch helfen!

[Gregor]

werde es auch gleich mal testen!!! Habe immer gedacht, dass man nur die standart Fonts nehemen kann

Mach doch mal nen Eintrag in die CodeLibery! find das ganze sehr genial

[Listener666]

Bei mir bringt der jede menge Fehlermedungen,ähnlich der hier:

Code:

[Error] Zahlenraten_Spiel.dpr(11): Undeclared identifier: 'AddFontResource'

Aber ich hab alles so wie bei dir?!?

[Dagon]

Hast du auch die nötigen Units eigebunden (windows, sysutils, messages)?

[Listener666]

Hab ich jetzt gemacht.Die Fehlermeldung is weg und das Programm läuft, aber die Schrift wird nicht angezeigt...Muss ich dir irgendwie noch ins Programm laden?!

[Dagon]

Das ist wohl meine Schuld!

Ich habe ja geschrieben:
Edit1.Font.Name := 'Name der Schrifft'; Da muss aber der echte Name der Schrift stehen, nicht der Dateiname!
Du findest ihn heraus, indem du die Fontdatei öffnest! Er steht dann zu oberst.