|
|
|
|
|
|
|
|
|
|
Version 6.5
WR Get font (Bereich; GleicheSchrift) 
String
| 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
Referenz
WR Get stylesheet font, WR Get text property, WR SET FONT.
|
|
|
|
|
|
|
|
|
|