4D Doc Center : WR SET PICTURE IN PAGE INFO

4D Write v14

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	Área 4D Write
numImagen	Entero largo	Número de la imagen
pag	Entero largo	Ubicación de la imagen
detras	Entero	0=imagen sobre el texto 1=imagen detrás del texto
pagUno	Entero	*Obsoleto, no utilizar*
posHor	Entero largo	Posición horizontal en la página
posVer	Entero largo	Posición vertical en la pagina
ancho	Entero largo	Ancho actual de la imagen
alto	Entero largo	Alto actual de la imagen

Descripción

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)