WR Get text property

Home

4D Write v16


WR Get text property ( Bereich ; Eigenschaft ; GleicheEigenschaft ) -> Funktionsergebnis

Parameter	Typ	Beschreibung
Bereich	Lange Ganzzahl	4D Write Bereich
Eigenschaft	Ganzzahl	Nummer der Eigenschaft
GleicheEigenschaft	Ganzzahl	1, wenn ganze Auswahl diese Eigenschaft hat, 0, wenn Teile oder die ganze Auswahl nicht diese Eigenschaft haben
Funktionsergebnis	Zahl	Richtet sich nach der Eigenschaft

Beschreibung

Mit der Funktion WR Get text property stellen Sie fest, ob die in Eigenschaft übergebene Eigenschaft in der aktuellen Auswahl des 4D Write Dokuments Bereich verwendet wird.

Bei GleicheEigenschaft gleich 1 gilt die Eigenschaft für die ganze Auswahl.
Bei GleicheEigenschaft gleich 0 gilt die Eigenschaft nicht für die ganze Auswahl.
Der zurückgegebene Wert entspricht dann dem Status des letzten Zeichens der Auswahl.

Mit dem Parameter Eigenschaft setzen Sie die zu überprüfende Eigenschaft. Weitere Informationen dazu finden Sie unter dem Befehl WR SET TEXT PROPERTY.

Übergeben Sie eine falsche Eigenschaftsnummer, wird der Fehler 1075 zurückgegeben. Die komplette Beschreibung der Fehlermeldungen finden Sie im Anhang C: Fehlermeldungen.

Hinweis: Eigenschaft können Sie mit Konstanten festlegen. Die vordefinierten Konstanten finden Sie unter dem Thema WR Texteigenschaften.

Beispiel 1

Sie wollen prüfen, ob die Ränder unter einem bestimmten Wert liegen:

 Links:=WR Get text property(Bereich;wr left margin;$Uniforme)

 If(Links<3) `Setze linken Rand auf 3

    WR SET TEXT PROPERTY(Bereich;wr left margin;3)

 End if

 Rechts:=WR Get text property(Bereich;wr right margin;$Uniforme)

 If(Rechts>43) `Setze rechten Rand auf 43

    WR SET TEXT PROPERTY(Bereich;wr right margin;43)

 End if

Der Benutzer soll Zeilenabstand und Ausrichtung festlegen können, aber keinen Zugriff auf Menüs und Lineale haben. Das Eingabeformular enthält eine Schaltfläche Info und die Variablen Zeilenabstand und Ausrichtung, die alle einer Methode zugeordnet sind.

Die Objektmethode Info erhält vom Lineal Information über die aktuelle Cursor-Position:

 Zeilenabstand:=WR Get text property(Bereich;wr line spacing;$Uniforme)

 If($Uniforme=0)

    ALERT("Auswahl enthält verschiedene Zeilenabstände.")

    $Assign:=True

 Else

    $Assign:=False

 End if

 Zeilenabstand:=WR Get text property(Bereich;wr justification;$Uniforme)

 If($Uniforme=0)

    ALERT("Auswahl enthält verschiedene Zeilenabstände.")

 End if

Die Objektmethode Zeilenabstand setzt den vom Benutzer gewählten Zeilenabstand:

WR SET TEXT PROPERTY(Bereich;Zeilenabstand)

Die Objektmethode Ausrichtung setzt die vom Benutzer gewählte Ausrichtung:

WR SET TEXT PROPERTY(Bereich;Ausrichtung)

In der Formularmethode On load blenden Sie die Menüs und Lineale aus:

 If(Form event=On load)

    WR SET DOC PROPERTY(Bereich;wr view menubar;0)

    WR SET DOC PROPERTY(Bereich;wr view rulers;0)

 End if

Siehe auch

WR SET TEXT PROPERTY

4D Write v16

WR Get text property