4D Write v14
WR Get text property
- 4D Write - Lenguaje
-
- WR Gestión de texto
-
- Gestión de texto, Introducción
- 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 ( area ; propiedad ; uniforme ) -> Resultado | ||||||||
| Parámetro | Tipo | Descripción | ||||||
| area | Entero largo |
|
Área 4D Write | |||||
| propiedad | Entero |
|
Número de la propiedad | |||||
| uniforme | Entero |
|
1 si toda la selección tiene esa propiedad, 0 si parte o toda la selección no tiene la propiedad | |||||
| Resultado | Real |
|
Depende de la propiedad | |||||
El comando WR Get text property permite determinar si la propiedad pasada se encuentra en la selección actual del área 4D Write referenciada por area.
- Si uniforme vale 1, la propiedad se aplica a toda la selección.
- Si uniforme vale 0, la propiedad no se aplica a toda la selección.
El valor devuelto corresponde al estado del último carácter de la selección.
El parámetro propiedad permite definir la propiedad a examinar. Para mayor información, consulte la descripción de los comandos WR SET TEXT PROPERTY.
Si pasa un número de propiedad incorrecto, se devuelve el error 1075.
Usted quiere verificar que los márgenes no excedan un valor fijo:
LEFT:=WR Get text property(Area;wr left margin;$Uniform)
If(LEFT<3) `Definición del márgen izquierdo en 3
WR SET TEXT PROPERTY(Area;wr left margin;3)
End if
RIGHT:=WR Get text property(Area;wr right margin;$Uniform)
If(RIGHT>43) `Definición del márgen derecho en 43
WR SET TEXT PROPERTY(Area;wr right margin;43)
End ifUsted quiere que los usuarios puedan definir el interlineado y la alineación, pero no quiere que ellos tengan acceso a los menús y a las reglas. El formulario de entrada incluye un botón Info y dos variables, Interlineado y Alineación, asociados a un método.
- El siguiente es el método de objeto para el botón Info, que recupera la información sobre la posición del cursor actual:
LineSpacing:=WR Get text property(Area;wr line spacing;$Uniform)
If($Uniform=0)
ALERT("La selección contiene varios tipos de interlineados.")
$Assign:=True
Else
$Assign:=False
End if
Alignment:=WR Get text property(Area;wr justification;$Uniform)
If($Uniform=0)
ALERT("La selección contiene varios tipos de alienaciones.")
End if- interlineado fija la elección del usuario para el interlineado:
WR SET TEXT PROPERTY(Area;LineSpacing)- El método objeto de Alineación fija la elección del usuario para la alineación:
WR SET TEXT PROPERTY(Area;Alignment)- En el evento de formulario On load, se ocultan los menús y las reglas:
If(Form event=On Load)
WR SET DOC PROPERTY(Area;wr view menubar;0)
WR SET DOC PROPERTY(Area;wr view rulers;0)
End if
Producto: 4D Write
Tema: WR Gestión de texto
Número
89442
Modificado: 4D Write 2003
4D Write - Lenguaje ( 4D Write v11.6)
4D Write - Lenguaje ( 4D Write v12)
4D Write - Lenguaje ( 4D Write v14)
4D Write - Lenguaje ( 4D v13)
4D Write - Lenguaje ( 4D Write v14 R2)
4D Write - Lenguaje ( 4D Write v14 R3)
4D Write - Lenguaje ( 4D Write v14 R4)
