4D Write v14
WR Get text property
- 4D Write Programmiersprache
-
- WR Textgestaltung
-
- Einleitung zu WR Textgestaltung
- WR BACKSPACE
- WR DELETE SELECTION
- WR Direct find
- WR Find
- WR Get font
- WR GET PARAGRAPHS
- WR Get selected text
- WR GET SELECTION
- WR Get styled text
- WR Get text
- WR Get text property
- WR GET WORDS
- WR INSERT STYLED TEXT
- WR INSERT TEXT
- WR Mouse to selection
- WR Replace
- WR SELECT
- WR SET FONT
- WR SET SELECTION
- WR SET TEXT PROPERTY
WR Get text property
| 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 | |||||
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 ifDer 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 ifDie 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
Produkt: 4D Write
Thema: WR Textgestaltung
Nummer:
89442
Geändert: 4D Write 2003
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)
