4D Write v14WR SELECT |
|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||
|
4D Write v14
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 | |||||
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 |
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
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
Produto: 4D Write
Tema: WR Gestão de texto
Número
89189
Modificado: 4D Write 6.7
WR Count
WR Replace
WR SELECT PICTURE IN PAGE
4D Write - Linguagem ( 4D Write v11.6)
4D Write - Linguagem ( 4D Write v12)
4D Write - Linguagem ( 4D Write v14)
4D Write - Linguagem ( 4D v13)
4D Write - Linguagem ( 4D Write v14 R2)
4D Write - Linguagem ( 4D Write v14 R3)
4D Write - Linguagem ( 4D Write v14 R4)