Was passiert, wenn Schriftart nicht vorhanden ist?

[greenmile]

Hallo,

ich habe die Frage ja schon an anderer Stelle gestellt, leider ohne Antwort. Wenn ich mein Projekt auf die Schrift "Segoe UI 9 pt" umstelle und auf dem Zielsystem diese Schriftart nicht existiert, was passiert dann? Gibt es einen "Plan B", also sowas wie "Screen.AltFont := "?

[himitsu]

Was? Probier es doch aus.
Einfach irgendeinen Fantasienamen bei Font.Name eingeben und fertig.

Es gibt ja nur zwei Möglichkeiten:
- beim Laden wird der "ungültige" Fontname nicht angenommen und die vorher eingestellte Schrift bleibt unverändert (das wird dann wohl eine Standardschrift sein)
- der ungültige Name wird angenommen und es wird als Ersatz eine Standardschrift vom Windows verwendet

Du kannst ja in Screen.Fonts nachsehn, ob die existiert und wenn nicht, dann schreibst du überall deine Alternative rein.

[greenmile]

Hmmm ... hat noch niemand damit Erfahrungen gemacht?

[Neutral General]

Probiers doch einfach aus
Ist ne Sache von 5 Minuten.

[Union]

Willst Du etwa dass FMX auf dem Mac wie ein Mac-Programm aussieht - das wäre ja ein Sakrileg! Dann musst Du folgende Schriftarten verwenden, evtl. mit {ifdef} in die Font.Family eintragen:

• "System" 13 für Edits und Buttons
• "Label" 10 für normale Label
• "Title" 13 Für größere Label

[greenmile]

Nein es geht um VCL. Ich habe jetzt eine ungültige Schriftart genommen (die berühmte "Fadsouewhk") und es wird eine Standard-Schrift genommen (welche auch immer). Die Frage ist jetzt, ob ich das irgendwie beeinflussen kann.

Nachtrag: Hier ist die Lösung bzw. die Erklärung: http://www.delphipraxis.net/157257-v...rledigt**.html

[Neutral General]

Zitat von greenmile:

Nein es geht um VCL. Ich habe jetzt eine ungültige Schriftart genommen (die berühmte "Fadsouewhk") und es wird eine Standard-Schrift genommen (welche auch immer). Die Frage ist jetzt, ob ich das irgendwie beeinflussen kann.

Ja kannst du indirekt:

Zitat von himitsu:

Du kannst ja in Screen.Fonts nachsehn, ob die existiert und wenn nicht, dann schreibst du überall deine Alternative rein.

[Bernhard Geyer]

Ab Win2000 ist "Tahoma" vorhanden. Ab Vista "Segoe UI".

Sollten diese Schriftarten nicht vorhanden sein hat der User eh ein Problem mit seinem Windows ...

Ansonsten frag doch ab welche Schriftart eingestellt ist.

[Popov]

Zitat von greenmile:

Hallo,

ich habe die Frage ja schon an anderer Stelle gestellt, leider ohne Antwort. Wenn ich mein Projekt auf die Schrift "Segoe UI 9 pt" umstelle und auf dem Zielsystem diese Schriftart nicht existiert, was passiert dann? Gibt es einen "Plan B", also sowas wie "Screen.AltFont := "?

Jajn. Ich hab das mal schon durchgespielt, weil ich es auch brauchte. Die Standardschrift ist "MS Sans Serif". Gibst du den Namen einer Schrift die es nicht gibt, wird erst einmal die letzte gültige Schrift genommen.

Allerdings mit diesem Verhalten (zumindest bei mir bisher): ist am Anfang "MS Sans Serif" eingestellt und du gibst "" ein, wird "MS Sans Serif" genommen. Gibst du "Blabla" (also eine Schrift die es nicht gibt) wird, zumindest bei XP, Tahoma genommen. Das ist die Standardschrift die eingestellt ist. Ist eine andere eingestellt, wird vermutlich die genommen. Gibst du noch mal "", bleibt es bei Tahoma. Gibt man nach Tahoma "Times New Roman" ein und dann "Blabla", bleibt Times New Roman", als letzte funktionierende Schrift.

Willst du die Möglichkeiten von HTML, also Alternativschriften, ich benutze schon lange (gelegentlich in abgewandelter Form) so eine Prozedur:

Delphi-Quellcode:

procedure SetFont(Font: TFont);
const
  FontList: array[0..3] of String = ('Segoe UI', 'Courier New', 'Times New Roman', 'Arial1');
var
  i: Integer;
begin
  for i := Low(FontList) to High(FontList) do
    if Screen.Fonts.IndexOf(FontList[i]) > -1 then
    begin
      Font.Name := FontList[i];
      Break;
    end;
end;

Ist die erste Schrift nicht vorhanden, wird die zweite genommen, usw.