4D v13
WR Get text property
- 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 Get text property
| WR Get text property ( area ; propriedade ; uniforme ) -> Resultado | ||||||||
| Parâmetro | Tipo | Descrição | ||||||
| area | Inteiro longo |
|
Área 4D Write | |||||
| propriedade | Inteiro |
|
Número da propriedade | |||||
| uniforme | Inteiro |
|
1 se toda a seleção tem essa propriedade, 0 se parte ou toda a seleção não tem a propriedade | |||||
| Resultado | Real |
|
Depende da propriedade | |||||
O comando WR Get text property permite determinar se a propriedade passada se encontra na seleção atual da área 4D Write referenciada por area.
- Se uniforme vale 1, a propriedade se aplica a toda a seleção.
- Se uniforme vale 0, a propriedade não se aplica a toda a seleção.
O valor devolvido corresponde ao estado do último caráter da seleção.
O parâmetro propriedade permite definir a propriedade a examinar. Para maior informação, consulte a descrição dos comandos WR SET TEXT PROPERTY.
Se passar um número de propriedade incorreto, se devolve o erro 1075.
Você quer verificar que as margens não excedam um valor fixo:
LEFT:=WR Get text property(Area;wr left margin;$Uniform)
If(LEFT<3) `Definição da margem esquerda em 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) `Definição da margem direita em 43
WR SET TEXT PROPERTY(Area;wr right margin;43)
End ifVocê quer que os usuários possam definir o espaço e o alinhamento, mas não quer que eles tenham acesso aos menus e as regras. O formulário de entrada inclui um botão Info e duas variáveis, Espaço e Alinhamento, associados a um método.
- O seguinte é o método de objeto para o botão Info, que recupera a informação sobre a posição do cursor atual:
LineSpacing:=WR Get text property(Area;wr line spacing;$Uniform)
If($Uniform=0)
ALERT("A seleção contém vários tipos de entrelinhas.")
$Assign:=True
Else
$Assign:=False
End if
Alignment:=WR Get text property(Area;wr justification;$Uniform)
If($Uniform=0)
ALERT("A seleção contém vários tipos de alinhações.")
End if- entrelinha fixa a eleição do usuário para espaço::
WR SET TEXT PROPERTY(Area;LineSpacing)- O método objeto de Alinhamento fixa a escolha do usuário para o alinhamento:
WR SET TEXT PROPERTY(Area;Alignment)- No evento de formulário On load, se ocultam os menus e as regras:
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
Produto: 4D
Tema: WR Gestão de texto
Número
89442
Modificado: 4D Write 2003
