WR Get text property

4D Write v16


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

Descripción

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.

Ejemplo 1

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 if

Usted 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

Ver también

WR SET TEXT PROPERTY

4D Write v16

WR Get text property