Schrift temporär nutzen

[EvilDragon]

hi leute

ich nutze folgendes beispiel allerdings mit zwei schriften nur irgendwie klappt nicht ganz, weiß jemand noch eine andere lösung z..b ein installer der halt das programm installiert (in einem verzeichnis) und die schriften oder so was in der art?

[Schubi]

Ich weiß jetzt nicht ob ich dich richtig versteh.
Willst du eine Schrift nutzen, die nicht installiert ist?

Hier ist ein Beispiel wie du eine Schrift temporär nutzen kannst
http://www.swissdelphicenter.ch/de/showcode.php?id=288

Ähm, ups. Das is jha das gleiche *g*
Sorry.
Aber bei mir gehts!!

[hitzi]

Hast du dir auch den Tipp zu dieser Lösung durchgelesen -> http://www.swissdelphicenter.ch/de/s...88&detail=1383

MfG Hitzi

[Schubi]

Also bei mir klappt das:

Delphi-Quellcode:

    AddFontResource(PChar(ExtractFilePath(Application.Exename)+'Dateien\Verdana.TTF'));
    AddFontResource(PChar(ExtractFilePath(Application.Exename)+'Dateien\Webdings.TTF'));
    AddFontResource(PChar(ExtractFilePath(Application.Exename)+'Dateien\Wingding.TTF'));
    AddFontResource(PChar(ExtractFilePath(Application.Exename)+'Dateien\WINGDNG2.TTF'));
    AddFontResource(PChar(ExtractFilePath(Application.Exename)+'Dateien\WINGDNG3.TTF'));
    SendMessage(HWND_BROADCAST, WM_FONTCHANGE, 0, 0);

[EvilDragon]

ich trottel jetz funtz hab vergessen *.ttf noch ranzuhängen

danke an schubi, denn im code habs grad gesehen