4D Doc Center : WR SELECT

4D Write v14

WR SELECT


WR SELECT ( area ; tipo ; inicio ; fin )

Parámetro	Tipo	Descripción
area	Entero largo	Área 4D Write
tipo	Entero	Tipo a seleccionar
inicio	Entero largo	Primer carácter
fin	Entero largo	Último carácter. Opcional para ciertos selectores

Descripción

El comando WR SELECT selecciona texto definido por tipo, inicio, y fin. WR SELECT no cambia la selección actual si el valor buscado no existe.

Defina el parámetro tipo utilizando una de las siguientes constantes, del tema "WR Seleccionar tipo":

Constante	Tipo	Valor
wr select characters	Entero largo	0
wr select expression	Entero largo	1
wr select paragraphs	Entero largo	2
wr select ruler	Entero largo	3
wr select picture	Entero largo	4
wr select style	Entero largo	5
wr select word	Entero largo	6
wr select page break	Entero largo	7
wr select column break	Entero largo	8
wr select hyphen	Entero largo	9
wr select page number	Entero largo	10
wr select date and time	Entero largo	11
wr select hyperlink	Entero largo	12
wr select HTML expression	Entero largo	13
wr select RTF expression	Entero largo	14

Ejemplo 1

El siguiente ejemplo efectúa las diferentes operaciones en función de la presencia o no de un salto de página:

  `Establecer la selección

 WR SET SELECTION(area;0;0)

  `Intente seleccionar el primer salto de página

 WR SELECT(area;wr select page break;1)

  `Recuperación de los límites de la nueva selección

 WR GET SELECTION(area;$vlbegin;$vlend)

 If(($vlbegin=0) & ($vlend=0))

  `No hay salto de página

 Else

  `Hacer algo con el salto de página

 End if

Ejemplo 2

El siguiente ejemplo selecciona las referencias en el área 4D Write referenciada por area y les aplica un estilo que las vuelve reconocibles fácilmente:

 NbObjects:=WR Count(area;4)

  `Contar el número de referencias

 For(i;1;NbObjects)

    WR SELECT(area;wr select expression;i)

  `Seleccionar cada referencia

    WR GET REFERENCE(area;TableNo;FieldNo;vName;vType)

    WR SET TEXT PROPERTY(area;wr bold;1)

    WR SET TEXT PROPERTY(area;wr text color;wr blue)

  `Aplicar Azul y Negrita a la selección

 End for