4D Doc Center : WR Get stylesheet font

Home

4D Write v14

WR Get stylesheet font


WR Get stylesheet font ( Bereich ; StilvorlageNr ) -> Funktionsergebnis

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