Eigene Schriftarten nutzen

[g0rmed]

Also, ich will mit Andorra 2D ne Schriftart nutzen, die im verzeichnis der Exe liegt. Nun nimmt das Programm nicht die Schriftart (ist ja klar, es weiß ja net, dass die da liegt) sondern ne Standardschriftart von Windows. Ist es möglich die Schriftart, ohne in den Windows/Fonts-Ordner zu kopieren, zu nutzen, wenn ja wie :?: :gruebel:
Wenn die Frage zu unpräzise formuliert ist...sorry, müsst ihr dann sagen ;)

[xaromz]

Hallo,

dafür gibt es die beiden Funktionen AddFontResource und RemoveFontResource. So kannst Du das verwenden (WideChar-Version):

Delphi-Quellcode:

procedure AddFontRes(const FileName: WideString);
begin
  AddFontResourceW(PWideChar(FileName));
  SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
end;

procedure RemoveFontRes(const FileName: WideString);
begin
  if RemoveFontResourceW(PWideChar(FileName)) then
    SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);
end;

Gruß
xaromz

[g0rmed]

Danke, werde ich dann gleich mal implementieren :)