WR SET PICTURE IN PAGE INFO

4D Write v16


WR SET PICTURE IN PAGE INFO ( area ; numImagem ; pagina ; atras ; pagUm ; posHor ; verticalPos ; largo ; alto )

Parâmetro	Tipo	Descrição
area	Inteiro longo	Área 4D Write
numImagem	Inteiro longo	Número da imagem
pagina	Inteiro longo	Localização da imagem
atras	Inteiro	0=imagem sobre o texto 1=imagem atrás do texto
pagUm	Inteiro	*Obsoleto, não utilizar*
posHor	Inteiro longo	Posição horizontal na página
verticalPos	Inteiro longo	Posição vertical na página
largo	Inteiro longo	Largura atual da imagem
alto	Inteiro longo	Altura atual da imagem

Descrição

O comando WR SET PICTURE IN PAGE INFO lhe permite modificar as propriedades da imagem, cujo número é passado em numImagem.

Atenção: Este comando não deve ser usado com imagens que se encontrem no texto.

pag permite definir as páginas em que é mostrada a imagem. Para isso, passe o número de página em pag. Este número deve ter em conta a numeração de páginas, definida no diálogo de preferências.

Se pag é igual a -11, a imagem será visível nas páginas da direita se os cabeçalhos pares e impares são diferentes, caso contrário, será visível em cada página.
Se pag é igual a -12, a imagem será visível nas páginas da esquerda se os cabeçalhos pares e impares são diferentes.
Se pag é igual a -4, o valor anterior não se modifica.

atras: neste parâmetro, pode passar uma das seguintes constantes do tema "WR Parâmetros":

Constante	Tipo	Valor
wr above text	Inteiro longo	0
wr behind text	Inteiro longo	1

pagUm: este parâmetro somente é conservado por razões de compatibilidade e não deve ser utilizado a partir da versão 2004. Passe -1 para ignorar.

posHor e posVer lhe permitem definir as coordenadas da esquina superior esquerda da imagem em relação com a esquina superior esquerda da página. O valor de posHor pode estar entre 0 e o largo total da página. Neste caso, as margens da impressora não serão levadas em consideração e a imagem pode terminar localizada fora da área imprimível da página.

Nota: Ao colar uma imagem no entorno do usuário, as margens da impressora são levadas em conta.

largo e alto permitem definir as novas dimensões da imagem. Os valores se expressam na unidade por padrão do documento.

Nota: Se passar -1 nos seguintes parâmetros não modificará seu valor inicial: atras, pagUm, posHor, posVer, largo e alto.

Exemplo

Você quer inserir a mesma imagem no cabeçalho de todos seus documentos:

 C_REAL($PosHoriz;$PosVert;$PictWidth;$PictHeight;$OrigWidth;$OrigHeight;$TxtMgTop;$HeadMgBottom)

 WR SET DOC PROPERTY(Area;wr view mode;0)

 $PosHoriz:=WR Get doc property(Area;wr text left margin)

 $PosVert:=WR Get doc property(Area;wr header top margin)

 ALL RECORDS([Interface])

  `Inserção da imagem

 WR INSERT PICTURE(Area;[Interface]Logo;-1;$PosHoriz;$PosVert;1;0) `Picture is stored in the Logo field

 WR SELECT PICTURE IN PAGE(Area;1) `Seleção da imagem

  `Leitura das propriedades da imagem

 MyPict:=WR Get selected picture(Area;$NumPict)

 WR GET PICTURE IN PAGE INFO(Area;$NumPict;$Page;$Behind;$PageOne;$PosHoriz;$PosVert;

 $PictWidth;$PictHeight;$OrigWidth;$OrigHeight)

  `Redução da imagem de 50%

 $PictHeight:=$PictHeight*1/2

 $PictWidth:=$PictWidth*1/2

 WR SET PICTURE IN PAGE INFO(Area;$NumPict;$Page;$Behind;$PageOne;$PosHoriz;$PosVert;

 $PictWidth;$PictHeight)

  `Verificação de que o cabeçalho "cobre" o logo

 $TxtMgTop:=WR Get doc property(Area;wr text top margin)

 $HeadMgBottom:=WR Get doc property(Area;wr header bottom margin)

 WR SET DOC PROPERTY(Area;wr text top margin;$PosVert+$PictHeight+

 $TxtMgTop+$HeadMgBottom)

 WR SET DOC PROPERTY(Area;wr header bottom margin;$PosVert+$PictHeight)

Ver também

WR GET PICTURE IN PAGE INFO