WR SELECT

4D Write v16

WR SELECT


WR SELECT ( area ; tipo ; inicio ; fim )

Parâmetro	Tipo	Descrição
area	Inteiro longo	Área 4D Write
tipo	Inteiro	Tipo a selecionar
inicio	Inteiro longo	Primeiro caractere
fim	Inteiro longo	Último caractere. Opcional para certos seletores

Descrição

O comando WR SELECT seleciona texto definido por tipo, inicio, e fim. WR SELECT não muda a seleção atual se o valor buscado não existe.

Defina o parâmetro tipo utilizando uma das seguintes constantes, do tema "WR Select type":

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

Exemplo 1

O seguinte exemplo realiza as diferentes operações em função da presença ou não de um salto de página:

  `Estabelecer a seleção

 WR SET SELECTION(area;0;0)

  `Tente selecionar o primeiro salto de página

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

  `Recuperação dos limites da nova seleção

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

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

  `Não há salto de página

 Else

  `Fazer algo com o salto de página

 End if

Exemplo 2

O seguinte exemplo seleciona as referencias na área 4D Write referenciada por área e aplica um estilo que elas se tornam reconhecíveis facilmente:

 NbObjects:=WR Count(area;4)

  `Contar o número de referencias

 For(i;1;NbObjects)

    WR SELECT(area;wr select expression;i)

  `Selecionar 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 e Negrito a seleção

 End for

Ver também

WR Count
WR Replace
WR SELECT PICTURE IN PAGE