4D Doc Center : PV SET STYLE PROPERTY

4D View v14

PV SET STYLE PROPERTY


PV SET STYLE PROPERTY ( area ; estilo ; propriedade ; valor )

Parâmetro	Tipo	Descrição
area	Inteiro longo	Área 4D View
estilo	Inteiro longo	Número da folha de estilo
propriedade	Inteiro longo	Número da propriedade
valor	Inteiro longo	Valor da propriedade

Descrição

O comando PV SET STYLE PROPERTY fixa o valor de propriedade para a folha de estilo cujo número é estilo.

Utilize as constantes do tema PV Propriedades estilo para definir o parâmetro propriedade e as constantes do tema PV Valores estilo para definir o parâmetro valor. A escolha da constante a atribuir ao parâmetro valor depende da propriedade escolhida:

Constante	Tipo	Valor
pv style automatic word wrap	Inteiro longo	33
pv style based on	Inteiro longo	4
pv style color back even	Inteiro longo	11
pv style color back odd	Inteiro longo	12
pv style color minus even	Inteiro longo	17
pv style color minus odd	Inteiro longo	18
pv style color text even	Inteiro longo	13
pv style color text odd	Inteiro longo	14
pv style color zero even	Inteiro longo	15
pv style color zero odd	Inteiro longo	16
pv style format alpha	Inteiro longo	6
pv style format bool	Inteiro longo	8
pv style format date time	Inteiro longo	9
pv style format forced text	Inteiro longo	32
pv style format num	Inteiro longo	7
pv style format picture	Inteiro longo	10
pv style hidden	Inteiro longo	1
pv style hor alignment	Inteiro longo	29
pv style locked	Inteiro longo	0
pv style rotation	Inteiro longo	31
pv style spellcheck	Inteiro longo	2
pv style text bold	Inteiro longo	22
pv style text condensed	Inteiro longo	27
pv style text extended	Inteiro longo	28
pv style text face	Inteiro longo	21
pv style text font	Inteiro longo	19
pv style text italic	Inteiro longo	23
pv style text outline	Inteiro longo	25
pv style text shadow	Inteiro longo	26
pv style text size	Inteiro longo	20
pv style text underline	Inteiro longo	24
pv style use picture height	Inteiro longo	3
pv style vert alignment	Inteiro longo	30

Se quer definir as propriedades das folhas de estilo por padrão, passe uma das constantes do tema PV Estilo valores especiais no parâmetro estilo:

Constante	Tipo	Valor	Comentário
pv style cells	Inteiro longo	-1	Folha de estilo por padrão chamada "Células”, aplicada as células.
pv style col row headers	Inteiro longo	-2	Folha de estilo por padrão chamada "Cabeçalho e rodapé de página", aplicada ao cabeçalho e ao rodapé de página durante a impressão.
pv style page footer header	Inteiro longo	-3	Folha de estilo por padrão chamada "Cabeçalhos de linhas/colunas", aplicado aos cabeçalhos de colunas e de linhas.

Nota: Estas Folhas de estilo podem ser editadas utilizando o comando Folhas de estilo do menu Formato de 4D View.

Exemplo

Este método permite definir as propriedades de um novo estilo. Neste exemplo, vamos a definir um valor para cada uma das três propriedades de estilos a personalizar:

A propriedade "alinhamento horizontal" se converterá "na esquerda",
A propriedade "alinhamento vertical" se converterá em "centrado",
A propriedade "rotação" se converterá em "90 graus".

 ARRAY LONGINT($ArrayProps;3) `Array de propriedades da folha de estilo

 ARRAY LONGINT($ArrayValues;3) `Valor de cada propriedade

 

 C_STRING(255;$StyleName) `Nome do estilo a adicionar a Área

 

 ARRAY LONGINT($StyleNumArray;0) `Array dos números de estilos

 ARRAY STRING(255;$StyleNameArray;0) `Array dos nomes de estilos

 C_INTEGER($Index) `Índice de laço

 C_INTEGER($Position) `Posição do novo estilo nos arrays de números e de nomes

 

  `Inicialização

 $ArrayProps{1}:=pv style hor alignment `Propriedades correspondentes...

 $ArrayProps{2}:=pv style vert alignment

 $ArrayProps{3}:=pv style rotation

 

 $ArrayValues{1}:=pv value hor alignment left `...e valores

 $ArrayValues{2}:=pv value hor alignment center

 $ArrayValues{3}:=pv value rotation 90

 

 $StyleName:="subparagraph"

 

 PV GET STYLE LIST(Area;$StyleNumArray;$StyleNameArray) `Lista de estilos disponíveis

 

 If(Find in array($StyleNameArray;$StyleName)=-1) `Estilo $StyleName ausente?

    $Position:=Size of array($StyleNameArray)+1 `O adicionamos

    INSERT IN ARRAY($StyleNameArray;$Position) `Redimensionamento dos arrays

    INSERT IN ARRAY($StyleNumArray;$Position)

    $StyleNameArray{$Position}:=$StyleName  `Atribuição do nome do novo estilo

    $StyleNumArray{$Position}:=PV Add style(Area;$StyleName) `Atribuição do número do novo estilo

 

    For($Index;1;Size of array($ArrayProps)) `Para todas as propriedades a definir

       If(PV Get style property(Area;$StyleNumArray{$Position};$ArrayProps{$Index})#$ArrayValues{$Index})

          PV SET STYLE PROPERTY(Area;$StyleNumArray{$Position};$ArrayProps{$Index};$ArrayValues{$Index})

       End if `Propriedade não tem o valor desejado?

    End for `Revisar array $ArrayProps das propriedades da folha de estilo

 

 Else

    ALERT("O estilo'"+$StyleName+"' já está presente na área.")

 End if