Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Win32/Win64 API (native code) (https://www.delphipraxis.net/17-win32-win64-api-native-code/)
-   -   Delphi Schriftart einbinden (https://www.delphipraxis.net/169664-schriftart-einbinden.html)

WizoHulk 3. Aug 2012 10:34

Schriftart einbinden
 
Hallo an alle,

ich habe hier im Forum schon so einige tolle antworten zu meiner Frage bekommen, aber anscheind ist es so, das der Font im Windows registriert wird.
Gibt es eine Möglichkeit den Font ohne ihn im Windows zu registrieren, da ja einige Benutzer nicht die Adminrechte haben.

Bernhard Geyer 3. Aug 2012 10:38

AW: Schriftart einbinden
 
Soweit ich verstehe benötigt die AddFontResourceEx-API keine Admin-Rechte.

WizoHulk 3. Aug 2012 10:48

AW: Schriftart einbinden
 
Gibt es nicht eine Möglichkein diese nur Programmintern zu nutzen ohne das ich im Windows rumfummeln muss?

Sir Rufo 3. Aug 2012 10:51

AW: Schriftart einbinden
 
Zitat:

Zitat von WizoHulk (Beitrag 1176799)
Gibt es nicht eine Möglichkein diese nur Programmintern zu nutzen ohne das ich im Windows rumfummeln muss?

Genau dafür ist das doch gedacht, wo musst du denn im Windows rumfummeln?

Iwo Asnet 3. Aug 2012 10:54

AW: Schriftart einbinden
 
Zitat:

Zitat von Sir Rufo (Beitrag 1176801)
wo musst du denn im Windows rumfummeln?

WinAPI => rumfummeln.

Sir Rufo 3. Aug 2012 11:02

AW: Schriftart einbinden
 
Zitat:

Zitat von Iwo Asnet (Beitrag 1176802)
Zitat:

Zitat von Sir Rufo (Beitrag 1176801)
wo musst du denn im Windows rumfummeln?

WinAPI => rumfummeln.

axo, dann ist die Verwendung von einem VCL Edit auch rumfummeln, oder etwa nur deswegen nicht, weil es schon mundgerecht gekapselt ist?

Iwo Asnet 3. Aug 2012 11:04

AW: Schriftart einbinden
 
Zitat:

Zitat von Sir Rufo (Beitrag 1176804)
...oder etwa nur deswegen nicht, weil es schon mundgerecht gekapselt ist?

Genau.So.Isses.

Für Einige. ;-)

p80286 3. Aug 2012 11:26

AW: Schriftart einbinden
 
zum Einlesen:http://msdn.microsoft.com/en-us/libr...(v=vs.85).aspx

Zum kopieren:
Delphi-Quellcode:
var
  selfont: string;
  wsel  : pchar;
begin
..
        selfont:=selfont+#0;
        wsel:=@selfont[1];
        if addfontresource(wsel)>0 then begin
          ttf_selfontlist.add(selfont);
          sendmessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);
        end
ggf entfernen:
Delphi-Quellcode:
removefontresource(wsel));
sendmessage(HWND_BROADCAST,WM_FONTCHANGE,0,0);
Gruß
K-H


Alle Zeitangaben in WEZ +1. Es ist jetzt 10:20 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz