4D Doc Center : WR Get font

4D Write v14

WR Get font


WR Get font ( area ; uniforme ) -> Resultado

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

Descriçã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