4D Write v16

WR SET PICTURE IN PAGE INFO

Inicio

 
4D Write v16
WR SET PICTURE IN PAGE INFO

WR SET PICTURE IN PAGE INFO 


 

WR SET PICTURE IN PAGE INFO ( area ; numImagen ; pag ; detras ; pagUno ; posHor ; posVer ; ancho ; alto ) 
Parámetro Tipo   Descripción
area  Entero largo in Área 4D Write
numImagen  Entero largo in Número de la imagen
pag  Entero largo in Ubicación de la imagen
detras  Entero in 0=imagen sobre el texto 1=imagen detrás del texto
pagUno  Entero in ***Obsoleto, no utilizar***
posHor  Entero largo in Posición horizontal en la página
posVer  Entero largo in Posición vertical en la pagina
ancho  Entero largo in Ancho actual de la imagen
alto  Entero largo in Alto actual de la imagen

El comando WR SET PICTURE IN PAGE INFO le permite modificar las propiedades de la imagen, cuyo número se pasa en numImagen.

Atención: este comando no debe ser usado con imágenes que se encuentren en el texto.

pag permite definir las páginas en que se muestra la imagen. Para ello, pase el número de página en pag. Este número debe tener en cuenta la numeración de páginas, definida en el diálogo de preferencias.

  • Si pag es igual a -11, la imagen será visible en las páginas de la derecha si los encabezados pares e impares son diferentes, de lo contrario, será visible en cada página.
  • Si pag es igual a -12, la imagen será visible en las páginas de la izquierda si los encabezados pares e impares son diferentes.
  • Si pag es igual a -4, el valor anterior no se modifica.

detras: en este parámetro, puede pasar una de las siguientes constantes del tema "WR Parámetros":

Constante Tipo Valor
wr above text Entero largo 0
wr behind text Entero largo 1

pagUno: este parámetro sólo se conserva por razones de compatibilidad y no debe  utilizarse a partir de la versión 2004. Pase -1 para ignorarlo.

posHor y posVer le permiten definir las coordenadas de la esquina superior izquierda de la imagen en relación con la esquina superior izquierda de la página. El valor de posHor puede estar entre 0 y el ancho total de la página. En este caso, los márgenes de la impresora no se tendrán en cuenta y la imagen puede terminar ubicada fuera del área imprimible de la página.

Nota: al pegar una imagen en el entorno del usuario, los márgenes de la impresora se tienen en cuenta.

ancho y alto permiten definir las nuevas dimensiones de la imagen. Los valores se expresan en la unidad por defecto del documento.

Nota: si pasa -1 en los siguientes parámetros no modificará su valor inicial: detras, pagUno, posHor, posVer, ancho y alto.

Ejemplo  

Usted quiere insertar la misma imagen en el encabezado de todos sus 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])
  `Inserción de la imagen
 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) `Selección de la imagen
  `Lectura de las propiedades de la imagen
 MyPict:=WR Get selected picture(Area;$NumPict)
 WR GET PICTURE IN PAGE INFO(Area;$NumPict;$Page;$Behind;$PageOne;$PosHoriz;$PosVert;
 $PictWidth;$PictHeight;$OrigWidth;$OrigHeight)
  `Reducción de la imagen del 50%
 $PictHeight:=$PictHeight*1/2
 $PictWidth:=$PictWidth*1/2
 WR SET PICTURE IN PAGE INFO(Area;$NumPict;$Page;$Behind;$PageOne;$PosHoriz;$PosVert;
 $PictWidth;$PictHeight)
  `Verificación de que el encabezado "cubre" el 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 también 

WR GET PICTURE IN PAGE INFO

 
PROPIEDADES 

Producto: 4D Write
Tema: WR Gestión de imágenes
Número 89486

 
HISTORIA 

Modificado: 4D Write 2004

 
ARTICLE USAGE

4D Write - Lenguaje ( 4D Write v16)