4D v13
WR SET PICTURE IN PAGE INFO
WR SET PICTURE IN PAGE INFO
| 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 | |||||
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.
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)
Produto: 4D
Tema: WR Gestão de imagens
Número
89486
Modificado: 4D Write 2004
