Schriftart in .exe als Resource einbinden und ohne export auch benutzen.

[KodeZwerg]

Zitat von Der schöne Günther:

Ich habe direkt eine Frage zu Schritt 1 und 2:

Kann man nicht genauso Datei -> Neu -> Textdatei -> .rc-Datei und es dort hineinschreiben? Damit gehört die Datei zum Projekt und die IDE kümmert sich bei jedem Kompilieren darum dass die .res-Datei vorliegt.

Probiere es doch einfach aus? ^_^
Jeder hat da so seine Vorlieben wie was womit usw, ich nannte halt die Methode die für mich Okay ist.

[Der schöne Günther]

Die Variable FontsCount ist überhaupt nicht initialisiert!

[Zacherl]

Zitat von Der schöne Günther:

Die Variable FontsCount ist überhaupt nicht initialisiert!

Dafür FontHandle sogar zweimal Ne glaube aber FontsCount ist ein reiner out Parameter, also muss nicht zwingend initialisiert werden.

[KodeZwerg]

Zitat von Der schöne Günther:

Die Variable FontsCount ist überhaupt nicht initialisiert!

Wozu auch?

Zitat von Zacherl:

Dafür FontHandle sogar zweimal

Sorry, lösch das FontHanlde := 0 und gut ist.

Zitat von Schokohase:

Nun ja, man findet schon etwas
https://www.delphipraxis.net/194521-...-resource.html
https://stackoverflow.com/questions/...-resource-file

Verzeihung falls doppelt. Dann los Admins, löscht das schnell wieder.

[Der schöne Günther]

Stimmt, ich habe in der Doku nicht gesehen dass der Parameter wohl wirklich ein reiner out-Parameter ist. Normalerweise steht das immer schön drin.

[EWeiss]

Ich finde es unnötig Fonts in die Resource einzubinden bin da lieber flexibel falls ich ihn doch mal schnell ändern möchte.
Aber wie du sagst jedem das sein.

Ich erstelle den Font indirekt ohne ihn extra zu registrieren und verwende ihn dann.
Besser wäre auch noch den Font Namen selbst zurückzugeben anstatt ihn zu übergeben.

Delphi-Quellcode:

function GDIP_PrivateFontCollection(var FontCollection: Pointer
): GPSTATUS; stdcall;
begin

  PrvFontCollection := TGPPrivateFontCollection.Create;
  FontCollection := PrvFontCollection.nativeFontCollection;
  result:= PrvFontCollection.GetLastStatus;
end;

Delphi-Quellcode:

function GDIP_PrivateAddFontFile(filename: PWideChar
): GPSTATUS; stdcall;
begin

  result := PrvFontCollection.AddFontFile(filename);
end;

Delphi-Quellcode:

function GDIP_GdipGetFontCollectionFamilyCount(var count: Integer
): GPSTATUS; stdcall;
begin

  count := PrvFontCollection.GetFamilyCount;
  result:= PrvFontCollection.GetLastStatus;
end;

Delphi-Quellcode:

function GDIP_FontFamilyCreate(Count: Integer; var pFontFamily: array of TGPFontFamily
): GPSTATUS; stdcall;
var
  numFound: Integer;
  FontFamily: array of TGPFontFamily;
begin

  SetLength(FontFamily, Count + 1);
  FontFamily[Count] := TGPFontFamily.Create;

  result:= FontFamily[Count].GetLastStatus;

  GDIP_GetFamilies(Length(FontFamily), FontFamily, numFound);
  pFontFamily[Count] := FontFamily[Count];
end;

Delphi-Quellcode:

function GDIP_GetFamilies(numSought: Integer; out gpfamilies: array of TGPFontFamily;
  out numFound: Integer
): GPSTATUS; stdcall;
begin

  result := PrvFontCollection.GetFamilies(numSought, gpfamilies, numFound);
end;

Delphi-Quellcode:

function TSkinEngine.LoadPrivateFontCollection(Path: string; var FontCollection: Pointer;
  var FontName: string
): GPSTATUS; stdcall;
var
  i: integer;
  Count: integer;
  gFontFamily: array of TGPFontFamily;
begin
  Result := GenericError;
  if FileExists(Path) then
  begin
    GDIP_PrivateFontCollection(FontCollection);
    GDIP_PrivateAddFontFile(PWideChar(Path));
    GDIP_GdipGetFontCollectionFamilyCount(Count);
    SetLength(gFontFamily, Count + 1);

    for i := 0 to Count - 1 do
      GDIP_FontFamilyCreate(i, gFontFamily);

    for i := 0 to count - 1 do
      // Get the font family name.
      gFontFamily[i].GetFamilyName(FontName);

    Result := OK;
  end;
end;

Bsp.

Delphi-Quellcode:

    if not Assigned(TTFCaption) then
      GDIP_LoadPrivateFontCollection(SpriteResPath + 'lcd.ttf', TTFCaption, FontCaption);

gruss

[KodeZwerg]

Zitat von EWeiss:

Ich finde es unnötig Fonts in die Resource einzubinden bin da lieber flexibel falls ich ihn doch mal schnell ändern möchte.
Aber wie du sagst jedem das sein.

Ich erstelle den Font indirekt ohne ihn extra zu registrieren und verwende ihn dann.
Besser wäre auch noch den Font Namen selbst zurückzugeben anstatt ihn zu übergeben.

Na genau deswegen habe ich doch diesen Thread erstellt, um auch andere Ansichten / Möglichkeiten zu erfahren, abgesehen von Post #1.
Also Danke Dir für diese Variante!

[EWeiss]

Zitat:

Ich finde es unnötig Fonts in die Resource einzubinden

Sagen wir besser es ist flexibler kommt halt auf den Verwendungszweck an welche Variante man verwenden möchte.
Es gibt ja immer mehrerer Varianten.

gruss

[KodeZwerg]

Eine weitere Möglichkeit eine Font in einer .exe abzulegen wäre so...
So kann keiner auf die schnelle die Font extrahieren da sie nun nicht mehr in Resource liegt.


Anleitung:
kopiert die Font in Euer Projekt-Root rein.
entpackt die Datei im Anhang auch dahin.
öffnet eine CMD und ruft bin2inc "Name der Font-Datei" auf.
nun solltet ihr eine "Dateiname.inc" erhalten haben.

für dieses Beispiel nehmen wir an Datei lautet MyFont.ttf die nun MyFont.inc geworden ist und in der das Array auch so heißt.
ihr könnt/müßt sogar manchmal die .inc umbennen und bearbeiten wenn original dateiname als array-bezeichner unzulässig ist.
bin2inc ist halt für generellen krams da, nicht explizit für font integration.

startet Delphi mit Eurem Projekt.
fügt unter implementation diese zeile ein: {$I MyFont.inc}
nun brauchen wir auch noch eine funktion die uns die font bereit stellt, das mache ich so:

Delphi-Quellcode:

function LoadInternalFont: THandle;
var
  FontsCount : DWORD;
begin
  Result := AddFontMemResourceEx(@MyFont, Length(MyFont), nil, @FontsCount);
end;

ersetzt halt "MyFont" mit euren namen.
so hier könnte man es benutzen:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
begin
  FontHandle := LoadInternalFont;
  if FontHandle <> 0 then Label1.Font.Name := 'Name der Font?';
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  RemoveFontMemResourceEx(FontHandle);
end;

edit
ps:
nicht erschrecken, dateigröße von .inc ist idR sehr viel größer aber keine bange, im kompilat ist es wieder binär.
also größentechnisch ist da kein doller unterschied ob per resource oder intern/direkt in .exe

[MicMic]

Hallo,
ich suche gerade eine einfache Möglichkeit um Symbole zu nutzen, die in verschiedenen Größen dann auch gut aussehen. Also skalierbar sind und auch einfach in Farben geändert werden können. SVG würde ich gerne nutzen aber ich möchte einfach keine fremden Komponenten nehmen. Mir sind die meist viel zu unübersichtlich, sprich 5 PAS-Dateien oder Source-Abschnitte die ich gar nicht dann aufrufe. Und verstehen will ich das ganze dann auch immer. Da mach ich stets lieber alles selbst Also mir kam gerade die Idee wegen IconFonts, die so im Web genutzt werden. Also bin ich auf diesem Beitrag gestoßen, da es hier wichtig ist, eine TTF in der EXE einzubinden und nicht in Windows zu registrieren. Also damit einfach stets die Symbole vorhanden sind und sie in meinem Programm angezeigt werden können.

Wie schon erwähnt, mit fremden TTFs darf man nicht alles machen. Jetzt habe ich noch "fontello.com" gefunden. Das ist doch eine "MIT Lizenz" Oder nicht? Also darüber könnte ich doch einfach meine Symbol-TTF erstellen und mit dem Beispiel hier dies alles umsetzen, ohne irgendwelche Lizenzen zu kaufen oder zu beachten?

Wenn das so ist, wäre das wohl auch für andere eine einfache Idee für skalierbare Symbole für die eigene Anwendung. Mir fällt aber noch etwas dazu ein. In Windows gab oder gibt es noch irgendwelche Schriftartglättungs-Einstellungen. Nicht das meine Idee jetzt am Ende doch nicht so toll ist, weil der Endbenutzer in Windows evtl. eine Einstellung hat und die Symbole doch nicht so schön ausschauen.

Jedenfalls könnte man durch eine Doppelbelegung (in zwei Farben + versetzter Pixel) auch Symbole vielleicht in eine 2Farb-Technik etwas aufhübschen. So zumindest die Idee.

Ausprobiert habe ich jetzt aber noch nichts.