4D Write v14

WR Get font

Home

 
4D Write v14
WR Get font

WR Get font 


 

WR Get font ( Bereich ; GleicheSchrift ) -> Funktionsergebnis 
Parameter Typ   Beschreibung
Bereich  Lange Ganzzahl in 4D Write Bereich
GleicheSchrift  Lange Ganzzahl in 1, wenn Schrift für gesamte Auswahl gleich ist, sonst 0
Funktionsergebnis  String in Name der Schrift des letzten Zeichens der Auswahl

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.

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

 
EIGENSCHAFTEN 

Produkt: 4D Write
Thema: WR Textgestaltung
Nummer: 89463

 
GESCHICHTE 

Erstellt: 4D Write 6.5

 
SIEHE AUCH 

WR Get stylesheet font
WR Get text property
WR SET FONT

 
ARTIKELVERWENDUNG

4D Write Programmiersprache ( 4D Write v11.6)
4D Write Programmiersprache ( 4D Write v12)
4D Write Programmiersprache ( 4D Write v14)
4D Write Programmiersprache ( 4D v13)
4D Write Programmiersprache ( 4D Write v14 R2)
4D Write Programmiersprache ( 4D Write v14 R3)
4D Write Programmiersprache ( 4D Write v14 R4)