Thema: Delphi Fonts

Einzelnen Beitrag anzeigen

Popov
(Gast)

n/a Beiträge
 
#3

AW: Fonts

  Alt 27. Mär 2012, 00:26
Google und du wirst Listen mit Standardschriften für die jeweiligen Systeme finden. Hier als Beispiel XP und 98.

Zufällig habe ich bei einem Programm auch das "Problem" gehabt. Der Font Segoe UI paßte zum Programm am besten, MS Sans Serif gar nicht, da einiges kursiv ist. Also habe ich Arial genommen, als zweite Wahl, und Segoe UI so eingebunden (s.u.). Beim Start durchlaufen einige Komponenten diese Prozedur. Wenn Segoe UI installiert ist, wird es gewählt.

Delphi-Quellcode:
procedure SetNewFont(AFont: TFont);
const
  FontName = 'Segoe UI';
begin
  if Screen.Fonts.IndexOf(FontName) > -1 then
    AFont.Name := FontName;
end;
Ansonsten kannst du die Schrift als Ressource mitliefern und sie beim Start entpacken.
  Mit Zitat antworten Zitat