WR Get text property

4D Write v16


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

Descrição

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.

Exemplo 1

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 if

Você 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

Ver também

WR SET TEXT PROPERTY

4D Write v16

WR Get text property