4D Write v14

WR Get text property

Home

 
4D Write v14
WR Get text property

WR Get text property 


 

WR Get text property ( Bereich ; Eigenschaft ; GleicheEigenschaft ) -> Funktionsergebnis 
Parameter Typ   Beschreibung
Bereich  Lange Ganzzahl in 4D Write Bereich
Eigenschaft  Ganzzahl in Nummer der Eigenschaft
GleicheEigenschaft  Ganzzahl in 1, wenn ganze Auswahl diese Eigenschaft hat, 0, wenn Teile oder die ganze Auswahl nicht diese Eigenschaft haben
Funktionsergebnis  Zahl in Richtet sich nach der Eigenschaft

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.

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

 
EIGENSCHAFTEN 

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

 
GESCHICHTE 

Geändert: 4D Write 2003

 
SIEHE AUCH 

WR SET TEXT PROPERTY

 
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)