4D v13
WR SELECT
- 4D Write - Linguagem
-
- WR Gestão de texto
-
- Gestão de texto, Introdução
- 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 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 ifO 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
Tema: WR Gestão de texto
Número
89189
Modificado: 4D Write 6.7
WR Count
WR Replace
WR SELECT PICTURE IN PAGE
