4D Write v14

WR Get text property

Página Inicial

 
4D Write v14
WR Get text property

WR Get text property 


 

WR Get text property ( area ; propriedade ; uniforme ) -> Resultado 
Parâmetro Tipo   Descrição
area  Inteiro longo in Área 4D Write
propriedade  Inteiro in Número da propriedade
uniforme  Inteiro in 1 se toda a seleção tem essa propriedade, 0 se parte ou toda a seleção não tem a propriedade
Resultado  Real in 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 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

 
PROPRIEDADES 

Produto: 4D Write
Tema: WR Gestão de texto
Número 89442

 
HISTÓRIA 

Modificado: 4D Write 2003

 
VER TAMBÉM 

WR SET TEXT PROPERTY

 
ARTICLE USAGE

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)