Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Programmieren allgemein (https://www.delphipraxis.net/40-programmieren-allgemein/)
-   -   Font.name mitliefern? (https://www.delphipraxis.net/178940-font-name-mitliefern.html)

Natcree 4. Feb 2014 19:08

Font.name mitliefern?
 
Ist esmöglich eine Schriftart mitzuliefern da andere systeme ja eingige Schriftarten nicht besitzen?

hoika 4. Feb 2014 19:10

AW: Font.name mitliefern?
 
Hallo,

wenn sie frei sind, ja,
wenn nicht, dann natürlich nicht.

Die TTF muss dann ins Font-Verzeichnis kopiert werden.


Heiko

himitsu 4. Feb 2014 19:40

AW: Font.name mitliefern?
 
Zitat:

Zitat von hoika (Beitrag 1246674)
wenn sie frei sind, ja,

Schriftarten, untliegen auch gewissen Lizenzrechten, so wie Bilder oder ganze Programme.

Zitat:

Zitat von hoika (Beitrag 1246674)
Die TTF muss dann ins Font-Verzeichnis kopiert werden.

Nur wenn sie global für alle Programme instaliert werden soll.

Es wäre aber auch möglich Schriftarten temporär zu registrieren, während der Programmlaufzeit.

Popov 4. Feb 2014 20:25

AW: Font.name mitliefern?
 
@Natcree

Ist die Frage rechtlich oder technisch gemeint?

Wenn technisch, und du die Schrift nur für dein Programm nutzen willst. Hier zwei Funktionen aus einem meiner Programme. Die Parameter-Beschreibung ist nur grob:
Delphi-Quellcode:
function AddFont(FileName: String): Boolean;
begin
  //AddFontResourceEx entspricht etwa AddFontResource, hat aber einige Extras
  //Param A: Name/Pfad einer gültigen Schriftdatei (nullterminierter String)
  //Param B: FR_PRIVATE, FR_NOT_ENUM.
  //- FR_PRIVATE: nur der eigene Prozess kann die Schrift nutzen.
  //- FR_NOT_ENUM: Schrift wird nicht der Schriftliste hinzugefügt.
  //Param C: Reserviert, muss 0 sein.
  Result := AddFontResourceEx(PChar(FileName), FR_PRIVATE, 0) > 0;
end;

function RemoveFont(FileName: String): Boolean;
begin
  //Param B: muss gleich sein wie bei AddFontResourceEx beim Hinzugefügen.
  //Param C: Reserviert, muss 0 sein.
  Result := RemoveFontResourceEx(PChar(FileName), FR_PRIVATE, 0)
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  AddFont(ExtractFilePath(ParamStr(0)) + 'test.ttf');
  Label1.Font.Name := 'test';
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
   RemoveFont(ExtractFilePath(ParamStr(0)) + 'test.ttf');
end;

Natcree 4. Feb 2014 21:58

AW: Font.name mitliefern?
 
technisch natürlich


:)

also dann wird mit der Button1click routin der font.name von label1 gezogen und als ttf
datei gespeichert richtig ?????

und bei button2.... ??????????

Popov 4. Feb 2014 22:19

AW: Font.name mitliefern?
 
Nein. Die erste Zeile in Button1Click läd die Schrift Test.ttf, die sich im gleichen Ordner befindet wie das Programm (bei dem Parameter nur für dein Programm). Nach der Zeile ist die Schrift "Test" für dein Programm verfügbar. In der zweiten Zeile wird nur Label1 eine Schrift zugewiesen. Vorher geht das nicht, da vorher die Schrift noch nicht angemeldet ist.

In Button2 wird die Schrift wieder entladen. Das kann man explizit machen, man kann es auch sein lassen. In dem Fall wird das beim beenden des Programms gemacht.

Natcree 4. Feb 2014 22:25

AW: Font.name mitliefern?
 
und wo finde ich dann die datei für die Schriftart ???

Luckie 4. Feb 2014 22:45

AW: Font.name mitliefern?
 
Hat er doch geschrieben. Die Datei muss bei seinem Beispiel im Ordner des Programmes liegen.

Natcree 4. Feb 2014 23:10

AW: Font.name mitliefern?
 
nee ich meint wenn ich z.b. die schriftart clarence die es auf winxp nicht gibt übertragen will dann muss ich ja die Datei dieser schriftart ja irgendwo herholen..

himitsu 4. Feb 2014 23:19

AW: Font.name mitliefern?
 
Zitat:

Zitat von Natcree (Beitrag 1246714)
nee ich meint wenn ich z.b. die schriftart clarence die es auf winxp nicht gibt übertragen will dann muss ich ja die Datei dieser schriftart ja irgendwo herholen..

Ja, das mußt du, wobei man sich das doch eigentlich denken sollte?

Entweder von da, wo sie jetzt liegt (aus'm Font-Ordner des Windows), oder aus einer der vielen Quellen im Internet runterladen. (es gibt massig Webseiten, welche Schriftarten anbieten)

ABER, und das wurde auch schon gesagt, du darfst es nur kopieren und mitgeben, wenn du auch das Recht dazu hast. (Stichwort: Lizenzen)
Es gibt mehrere Fonts mit dem Namen "Clarence" ... einige kostenlos, bzw. aus unbekannter Herkunft und mit unbekannter Lizenz und Andere kosten schon einige Euros.
Aber da keiner weiß wie dein Font aussieht, bzw. Welcher es nun ist, kann keiner Genaueres sagen.

Bei den installierten Fonts muß man erstmal rausfinden wer den Font installiert hat und dann müsste man bei dem Progamm in die Lizenzbedingungen schauen,
was auch wieder oftmals nur hilft, wenn der Font auch zu der Software gehörte und die nicht selber nur ein eingeschränktes Recht besitzen.


Alle Zeitangaben in WEZ +1. Es ist jetzt 03:48 Uhr.

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