4D Write v14

WR Get font

Página Inicial

 
4D Write v14
WR Get font

WR Get font 


 

WR Get font ( area ; uniforme ) -> Resultado 
Parâmetro Tipo   Descrição
area  Inteiro longo in Área 4D Write
uniforme  Inteiro longo in 1 se toda a seleção tem a mesma fonte, caso contrário 0
Resultado  cadeia in Nome da fonte do último caractere da seleção

O comando WR Get font devolve o nome da fonte aplicada ao último caractere da seleção na área 4D Write referenciada por area.

  • Se uniforme = 1, é aplicada a mesma fonte a toda seleção.
  • Se uniforme = 0, outras fontes são utilizadas na seleção.

Exemplo  

Você quer recuperar a fonte da seleção atual para lhe aplicar a todo o documento:

 vFont:=WR Get font(Area;vUniform)
 If(vUniform=0) `Se há várias fontes na seleção atual
    CONFIRM("Há várias fontes na seleção, a fonte do último caracter é "+"
    "+vFont+". Quer aplicar esta fonte a todo o documento?")
 Else
    CONFIRM("A fonte de sua seleção é "+vFont+". Quer aplicar esta fonte a todo o documento?)
 End if
 If(OK=1)
    WR EXECUTE COMMAND(Area;wr cmd select all`Seleção de todo o documento
    WR SET FONT(Area;vFont`Aplicar a nova fonte
  `Mover o ponto de inserção ao começo do documento
    WR SET SELECTION(Area;0;0)
    WR SCROLL TO SELECTION(Area) `Mostrar a seleção de texto atual
 End if

 
PROPRIEDADES 

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

 
HISTÓRIA 

Criado por: 4D Write 6.5

 
VER TAMBÉM 

WR Get stylesheet font
WR Get text property
WR SET FONT

 
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)