4D Doc Center : WR Get font

Home

4D Write v14

WR Get font


WR Get font ( Bereich ; GleicheSchrift ) -> Funktionsergebnis

Parameter	Typ	Beschreibung
Bereich	Lange Ganzzahl	4D Write Bereich
GleicheSchrift	Lange Ganzzahl	1, wenn Schrift für gesamte Auswahl gleich ist, sonst 0
Funktionsergebnis	String	Name der Schrift des letzten Zeichens der Auswahl

Beschreibung

Die Funktion WR Get font gibt den Namen der Schrift zurück, die im 4D Write Dokument Bereich für das letzte Zeichen der Auswahl gilt.

Bei GleicheSchrift gleich 1 gilt die Schrift für die gesamte Auswahl.
Bei GleicheSchrift gleich 0 enthält die Auswahl andere Schriften.

Beispiel

Sie möchten die Schrift der aktuellen Auswahl erhalten und auf das ganze Dokument anwenden:

 vFont:=WR Get font(Bereich;vUniforme)

 If(vUniforme=0) `Gibt es verschiedene Schriften in der aktuellen Auswahl

    CONFIRM("Es gibt verschiedene Schriften in der Auswahl, die Schrift des letzten "+"Zeichens ist "+vFont+". OK, damit diese Schrift für gesamtes Dokument gilt?")

 Else

    CONFIRM("Die Schrift der Auswahl ist "+vFont+". OK, damit diese Schrift für gesamtes Dokument gilt?)

 End if

 If(OK=1)

    WR EXECUTE COMMAND(Bereich;wr cmd selec all) `Wähle gesamte Dokument aus

    WR SET FONT(Bereich;vFont) `Wende die neue Schrift an

    WR SET SELECTION(Bereich;0;0) `Bewege Einfügepunkt an Beginn des Dokuments

    WR SCROLL TO SELECTION(Bereich) `Zeige aktuelle Textauswahl

 End if