WR Get text property

Version 2003 (Geändert)

WR Get text property (Bereich; Eigenschaft; GleicheEigenschaft) Zahl

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.

(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

(2) 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

WR SET TEXT PROPERTY.