Version 6.5
WR Get stylesheet font (Bereich; StilvorlageNr) String
Parameter | Typ | Beschreibung | |
Bereich | Lange Ganzzahl | 4D Write Bereich | |
StilvorlageNr | Lange Ganzzahl | Nummer der Stilvorlage | |
Funktionsergebnis | String | Name der Schrift oder "" wenn nicht definiert |
Beschreibung
Die Funktion WR Get stylesheet font gibt den Namen der Schrift zurück, die der Stilvorlage StilvorlageNr im 4D Write Dokument Bereich zugewiesen wurde. Stilvorlagen sind wie im Dialogfenster Stilvorlagen von oben nach unten numeriert. Wurde für diese Stilvorlage keine Schrift definiert, wird ein leerer String zurückgegeben.
Beispiel
Sie wollen das Attribut "Schrift" immer aus den betreffenden Stilvorlagen entfernen, wenn die Schrift nicht im System installiert ist:
ARRAY STRING(80;FontsArray) WR FONTS TO ARRAY(FontsArray) $StyleSheetNum:=WR Count(Bereich;wr nb stylesheets) For ($i;1;$StyleSheetNum) $Fonts:=WR Get stylesheet font(Bereich;$i) If (($Fonts#"") & (Find in array(Bereich;$Fonts)=0)) WR SET STYLESHEET FONT(Bereich;$i;"") End if End for
Referenz
WR Get font, WR SET STYLESHEET FONT.